This code allows the implementation of black and organic carbon tracers in the FMS framework.
fms_mod
time_manager_mod
diag_manager_mod
tracer_manager_mod
field_manager_mod
atmos_tracer_utilities_mod
constants_mod
call atmos_blackc_sourcesink (lon, lat, land, pwt, & black_cphob, black_cphob_dt, & black_cphil, black_cphil_dt, & Time, is, ie, js, je, kbot)
+------------+ Trans- +------------+ | Hydro- | formation | Hydro- | | phobic | | philic | | black |---------->| black | | carbon | | carbon | | | | | +------------+ +------------+ ^ | ^ | | | | | | | | = | = = Source Dry Source Dry Wet Dep. Dep DepThe transformation time used here is 1 day, which corresponds to an e-folding time of 1.44 days. This can be varied as necessary.
lon | Longitude of the centre of the model gridcells [real, dimension(:,:)] |
lat | Latitude of the centre of the model gridcells [real, dimension(:,:)] |
land | Land/sea mask. [real, dimension(:,:)] |
pwt | The pressure weighting array. = dP/grav [real, dimension(:,:,:)] |
black_cphob | The array of the hydrophobic black carbon aerosol mixing ratio [real, dimension(:,:,:)] |
black_cphil | The array of the hydrophilic black carbon aerosol mixing ratio [real, dimension(:,:,:)] |
Time | Model time. [type(time_type)] |
is, ie, js, je | Local domain boundaries. [integer] |
kbot | Integer array describing which model layer intercepts the surface. [integer, optional, dimension(:,:)] |
black_cphob_dt | The array of the tendency of the hydrophobic black carbon aerosol mixing ratio. [real, dimension(:,:,:)] |
black_cphil_dt | The array of the tendency of the hydrophilic black carbon aerosol mixing ratio. [real, dimension(:,:,:)] |
call atmos_organic_sourcesink (lon, lat, land, pwt, organic_carbon, organic_carbon_dt, & Time, is, ie, js, je, kbot)
+------------+ Trans- +------------+ | Hydro- | formation | Hydro- | | phobic | | philic | | organic |---------->| organic | | carbon | | carbon | | | | | +------------+ +------------+ ^ | ^ | | | | | | | | = | = = Source Dry Source Dry Wet Dep. Dep DepThe transformation time used here is 2 days, which corresponds to an e-folding time of 2.88 days. This can be varied as necessary.
lon | Longitude of the centre of the model gridcells [real, dimension(:,:)] |
lat | Latitude of the centre of the model gridcells [real, dimension(:,:)] |
land | Land/sea mask. [real, dimension(:,:)] |
pwt | The pressure weighting array. = dP/grav [real, dimension(:,:,:)] |
organic_carbon | The array of the organic carbon aerosol mixing ratio [real, dimension(:,:,:)] |
Time | Model time. [type(time_type)] |
is, ie, js, je | Local domain boundaries. [integer] |
kbot | Integer array describing which model layer intercepts the surface. [integer, optional, dimension(:,:)] |
organic_carbon_dt | The array of the tendency of the organic carbon aerosol mixing ratio. [real, dimension(:,:,:)] |
call atmos_carbon_aerosol_init (lonb, latb, r, axes, Time, mask)
lonb | The longitudes for the local domain. [real, dimension(:)] |
latb | The latitudes for the local domain. [real, dimension(:)] |
mask | optional mask (0. or 1.) that designates which grid points
are above (=1.) or below (=0.) the ground dimensioned as
(nlon,nlat,nlev). [real, optional, dimension(:,:,:)] |
Time | Model time. [type(time_type)] |
axes | The axes relating to the tracer array dimensioned as
(nlon, nlat, nlev, ntime) [integer, dimension(4)] |
r | Tracer fields dimensioned as (nlon,nlat,nlev,ntrace). [real, dimension(:,:,:,:)] |
call atmos_carbon_aerosol_end