FMS Coupler 2022.03
Loading...
Searching...
No Matches
Modules | Functions/Subroutines | Variables
atmos_ocean_fluxes_calc.F90 File Reference

(d27fe18b9e643a70ef25739048bed2f0dc83bfcf)

Calculates gas fluxes for atmosphere and ocean. More...

Modules

module  atmos_ocean_fluxes_calc_mod
 

Functions/Subroutines

subroutine, public atmos_ocean_fluxes_calc_mod::atmos_ocean_fluxes_calc (gas_fields_atm, gas_fields_ice, gas_fluxes, seawater, tsurf, ustar, cd_m)
 Calculate the ocean gas fluxes. Units should be mol/m^2/s, upward flux is positive.
 
real function atmos_ocean_fluxes_calc_mod::calc_kw (tk, p, u10, h, vb, mw, sc_w, ustar, cd_m)
 Calculate $k_w$.
 
real function atmos_ocean_fluxes_calc_mod::calc_ka (t, p, mw, vb, u10, ustar, cd_m)
 Calculate $k_a$.
 
real function atmos_ocean_fluxes_calc_mod::calc_kl (t, v, sc)
 Calculate $k_l$.
 
real function atmos_ocean_fluxes_calc_mod::schmidt_g (t, p, mw, vb)
 Schmidt number of the gas in air.
 
real function atmos_ocean_fluxes_calc_mod::d_air (t, p, mw, vb)
 From Fuller, Industrial & Engineering Chemistry (https://doi.org/10.1021/ie50677a007)
 
real function atmos_ocean_fluxes_calc_mod::p_air (t)
 kinematic viscosity in air
 
real function atmos_ocean_fluxes_calc_mod::v_air (t)
 Kinematic viscosity in air ( $m^2/s$.
 
real function atmos_ocean_fluxes_calc_mod::n_air (t)
 dynamic viscosity in air
 

Variables

character(len= *), parameter atmos_ocean_fluxes_calc_mod::mod_name = "cdwfe"
 
real, parameter atmos_ocean_fluxes_calc_mod::epsln =1.0e-30
 

Detailed Description

Calculates gas fluxes for atmosphere and ocean.