FV3 Bundle
atmos_ocean_fluxes_mod Module Reference

Ocean Carbon Model Intercomparison Study II: Gas exchange coupler. Implementation of routines to solve the gas fluxes at the ocean surface for a coupled model as outlined in the Biotic-HOWTO documentation, revision 1.7, 1999/10/05. More...

Functions/Subroutines

integer function, public aof_set_coupler_flux (name, flux_type, implementation, atm_tr_index, param, flag, mol_wt, ice_restart_file, ocean_restart_file, units, caller, verbosity)
 Set the values for a coupler flux and return its index (0 on error) More...
 
subroutine, public atmos_ocean_fluxes_init (gas_fluxes, gas_fields_atm, gas_fields_ice, verbosity)
 Initialize gas flux structures. More...
 
subroutine, public atmos_ocean_type_fluxes_init (verbosity)
 Initialize the coupler type flux tracers. More...
 

Variables

character(len= *), parameter mod_name = 'atmos_ocean_fluxes_mod'
 
real, parameter epsln =1.0e-30
 

Detailed Description

Ocean Carbon Model Intercomparison Study II: Gas exchange coupler. Implementation of routines to solve the gas fluxes at the ocean surface for a coupled model as outlined in the Biotic-HOWTO documentation, revision 1.7, 1999/10/05.

Author
Richard Slater Richa.nosp@m.rd.S.nosp@m.later.nosp@m.@noa.nosp@m.a.gov
John Dunne John..nosp@m.Dunn.nosp@m.e@noa.nosp@m.a.go.nosp@m.v

http://ocmip5.ipsl.fr/documentation/OCMIP/phase2/simulations/Biotic/HOWTO-Biotic.html

Function/Subroutine Documentation

◆ aof_set_coupler_flux()

integer function, public atmos_ocean_fluxes_mod::aof_set_coupler_flux ( character(len=*), intent(in)  name,
character(len=*), intent(in)  flux_type,
character(len=*), intent(in)  implementation,
integer, intent(in), optional  atm_tr_index,
real, dimension(:), intent(in), optional  param,
logical, dimension(:), intent(in), optional  flag,
real, intent(in), optional  mol_wt,
character(len=*), intent(in), optional  ice_restart_file,
character(len=*), intent(in), optional  ocean_restart_file,
character(len=*), intent(in), optional  units,
character(len=*), intent(in), optional  caller,
integer, intent(in), optional  verbosity 
)

Set the values for a coupler flux and return its index (0 on error)

Parameters
[in]verbosityA 0-9 integer indicating a level of verbosity.

Definition at line 108 of file atmos_ocean_fluxes.F90.

◆ atmos_ocean_fluxes_init()

subroutine, public atmos_ocean_fluxes_mod::atmos_ocean_fluxes_init ( type(coupler_1d_bc_type), intent(inout)  gas_fluxes,
type(coupler_1d_bc_type), intent(inout)  gas_fields_atm,
type(coupler_1d_bc_type), intent(inout)  gas_fields_ice,
integer, intent(in), optional  verbosity 
)

Initialize gas flux structures.

Parameters
[in,out]gas_fluxesStructure containing the gas fluxes between the atmosphere and the ocean and parameters related to the calculation of these fluxes. The properties stored in this type are set here, but the actual value arrays are set later.
[in,out]gas_fields_atmStructure containing atmospheric surface variables that are used in the calculation of the atmosphere-ocean gas fluxes. The properties stored in this type are set here, but the actual value arrays are set later.
[in,out]gas_fields_iceStructure containing ice-top and ocean surface variables that are used in the calculation of the atmosphere-ocean gas fluxes. The properties stored in this type are set here, but the actual value arrays are set later.
[in]verbosityA 0-9 integer indicating a level of verbosity.

Definition at line 418 of file atmos_ocean_fluxes.F90.

Here is the call graph for this function:

◆ atmos_ocean_type_fluxes_init()

subroutine, public atmos_ocean_fluxes_mod::atmos_ocean_type_fluxes_init ( integer, intent(in), optional  verbosity)

Initialize the coupler type flux tracers.

Initialize the /coupler_mod/types/ fields in the field manager. These fields include:

 air_sea_gas_flux_generic/
                          implementation/
                                         ocmip2/
                                                num_parameters = 2
                          num_flags = 0
                          use_atm_pressure = t
                          use_10m_wind_speed = t
                          pass_through_ice = f
                          atm/
                              name/
                                   pcair, u10, psurf
                              long_name/
                                        'Atmospheric concentration'
                                        'Wind speed at 10 m'
                                        'Surface atmospheric pressure'
                              units/
                                    'mol/mol', 'm/s', 'Pa'
                          ice/
                              name/
                                   alpha, csurf, sc_no
                              long_name/
                                        'Solubility from atmosphere'
                                        'Surface concentration from ocean'
                                        'Schmidt number'
                              units/
                                    'mol/m^3/atm', 'mol/m^3', 'dimensionless'
                          flux/
                               name/
                                    flux, deltap, kw
                               long_name/
                                         'Surface gas flux'
                                         'ocean-air delta pressure'
                                         'piston velocity'
                               units/
                                     'mol/m^2/s', 'uatm', 'm/s'
 air_sea_gas_flux/
                  implementation/
                                 ocmip2/
                                        num_parameters = 2
                                 ocmip2_data/
                                             num_parameters = 2
                                 linear/
                                        num_parameters = 3
                  num_flags = 0
                  use_atm_pressure = t
                  use_10m_wind_speed = t
                  pass_through_ice = f
                  atm/
                      name/
                           pcair, u10, psurf
                      long_name/
                                'Atmospheric concentration'
                                'Wind speed at 10 m'
                                'Surface atmospheric pressure'
                      units/
                            'mol/mol', 'm/s', 'Pa'
                  ice/
                      name/
                           alpha, csurf
                      long_name/
                                'Solubility from atmosphere'
                                'Surface concentration from ocean'
                      units/
                            'mol/m^3/atm', 'mol/m^3'
                  flux/
                       name/
                            flux
                       long_name/
                                 'Surface gas flux'
                       units/
                             'mol/m^2/s'
 air_sea_deposition/
                    implementation/
                                   dry/
                                       num_parameters = 1
                                   wet/
                                       num_parameters = 1
                    num_flags = 0
                    use_atm_pressure = f
                    use_10m_wind_speed = f
                    pass_through_ice = t
                    atm/
                        name/
                             depostion
                        long_name/
                                  'Atmospheric deposition'
                        units/
                              'kg/m^2/s'
                    ice/
                        name/
                        long_name/
                        units/
                    flux/
                         name/
                              flux
                         long_name/
                                   'Surface deposition'
                         units/
                               'mol/m^2/s'
 land_sea_runoff/
                 implementation/
                                river/
                                      num_parameters = 1
                 num_flags = 0
                 use_atm_pressure = f
                 use_10m_wind_speed = f
                 pass_through_ice = t
                 atm/                  ! really land (perhaps should change this?)
                     name/
                          runoff
                     long_name/
                               'Concentration in land runoff'
                     units/
                           'kg/m^3'
                 ice/
                     name/
                     long_name/
                     units/
                 flux/
                      name/
                           flux
                      long_name/
                                'Concentration in land runoff'
                      units/
                            'mol/m^3'
Exceptions
FATAL,Could not set the \,coupler_mod

Definition at line 890 of file atmos_ocean_fluxes.F90.

Here is the caller graph for this function:

Variable Documentation

◆ epsln

real, parameter atmos_ocean_fluxes_mod::epsln =1.0e-30
private

Definition at line 72 of file atmos_ocean_fluxes.F90.

◆ mod_name

character(len=*), parameter atmos_ocean_fluxes_mod::mod_name = 'atmos_ocean_fluxes_mod'
private

Definition at line 71 of file atmos_ocean_fluxes.F90.