FV3 Bundle
|
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 |
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.
http://ocmip5.ipsl.fr/documentation/OCMIP/phase2/simulations/Biotic/HOWTO-Biotic.html
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)
[in] | verbosity | A 0-9 integer indicating a level of verbosity. |
Definition at line 108 of file atmos_ocean_fluxes.F90.
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.
[in,out] | gas_fluxes | Structure 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_atm | Structure 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_ice | Structure 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] | verbosity | A 0-9 integer indicating a level of verbosity. |
Definition at line 418 of file atmos_ocean_fluxes.F90.
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'
FATAL,Could not set the \,coupler_mod |
Definition at line 890 of file atmos_ocean_fluxes.F90.
|
private |
Definition at line 72 of file atmos_ocean_fluxes.F90.
|
private |
Definition at line 71 of file atmos_ocean_fluxes.F90.