Module that calculates gas transmission functions
fms_mod
constants_mod
rad_utilities_mod
longwave_params_mod
call gas_tf_init (pref)
pref | Model pressure coordinate array [real] |
call co2coef (Atmos_input, Gas_tf)
Atmos_input | The input data of the atmosphere structure and gas concentration [atmos_input_type] |
Gas_tf | The gas transmission function table [gas_tf_type] |
call transcol (kcol, krow, kcols, kcole, co21c, Gas_tf)
kcol | Not used [integer] |
krow | The row index where co2 transmission is calculated [integer] |
kcols | The starting column index number [integer] |
kcole | The ending column index number [integer] |
Gas_tf | The pre temperature-corrected co2 transmission functions [gas_tf_type] |
co21c | The column of transmission functions [real] |
call transcolrow (Gas_tf, kcol, krow, kcols, kcole, krows, krowe, & co21c, co21r, tch4n2oe)
kcol | The column index of temperature-corrected transmission function [integer] |
krow | The row index of temperature-corrected transmission function [integer] |
kcols | The starting column index number [integer] |
kcole | The ending column index number [integer] |
krows | The starting row index number [integer] |
krowe | The ending row index number [integer] |
tch4n2oe | The ch4 and n2o transmission functions [real] |
Gas_tf | The pre temperature-corrected co2 transmission functions [gas_tf_type] |
co21c | The column of transmission functions [real] |
co21r | The row of transmission functions [real] |
call trans_nearby (Gas_tf, Atmos_input, overod, co2diag)
Gas_tf | The gas transmission functions at model coordinate system [gas_tf_type] |
Atmos_input | The atmospheric input data [atmos_input_type] |
overod | CO2 data [real] |
co21diag | CO2 transmission function [real] |
call trans_sfc (Gas_tf, Atmos_input, overod, co21c, co21r)
Gas_tf | The gas transmission functions at model coordinate system [gas_tf_type] |
Atmos_input | The atmospheric input data [atmos_input_type] |
overod | CO2 data [real] |
co21c | CO2 transmission function [real] |
co21r | CO2 transmission function [real] |
call put_co2_stdtf_for_gas_tf (nf, & co251_o, co258_o, & cdt51_o, cdt58_o, & c2d51_o, c2d58_o)
nf | index variable [integer] |
co251_o co258_o cdt51_o cdt58_o c2d51_o c2d58_o | CO2 transmission functions [real] |
call put_co2_nbltf_for_gas_tf (nf, & co2m51_o, cdtm51_o, c2dm51_o, & co2m58_o, cdtm58_o, c2dm58_o, & co215nbps1_o, co215nbps8_o, & co2dt15nbps1_o, co2dt15nbps8_o, & co2d2t15nbps1_o, co2d2t15nbps8_o )
nf | index variable [integer] |
co2m51_o, cdtm51_o, c2dm51_o, co2m58_o, cdtm58_o, c2dm58_o, co215nbps1_o, co215nbps8_o, co2dt15nbps1_o, co2dt15nbps8_o, co2d2t15nbps1_o, co2d2t15nbps8_o | CO2 transmission functions [real] |
call put_ch4_stdtf_for_gas_tf ( & ch451_o, ch458_o, & ch4dt51_o, ch4dt58_o, & ch4d2t51_o, ch4d2t58_o)
nf | index variable [integer] |
ch451_o, ch458_o, ch4dt51_o, ch4dt58_o, ch4d2t51_o, ch4d2t58_o | CH4 transmission functions [real] |
call put_n2o_stdtf_for_gas_tf (nf, & n2o1_o, n2o8_o, & n2odt1_o, n2odt8_o, & n2od2t1_o, n2od2t8_o)
nf | index variable [integer] |
n2o1_o, n2o8_o, n2odt1_o, n2odt8_o, n2od2t1_o, n2od2t8_o | N2O transmission functions [real] |
call get_control_gas_tf (calc_co2, calc_ch4, calc_n2o)
calc_co2, calc_ch4, calc_n2o | logical variables that determine whether gas transmission functions
should be calculated. [logical] |
call gas_tf_dealloc (Gas_tf)
Gas_tf | gas_tf_type variable containing information needed
to define the gas transmission functions [gas_tf_type] |
call gas_tf_end
call process_co2_input_file (gas_name, gas_amount, nstdlvls, & kbegin, kend, pd, plm, pa)
gas_name | Name of the gas specy [character] |
gas_amount | Amount of the gas specy [real] |
nstdlvls | Number of standard levels [integer] |
kbegin, kend | Index of the starting and ending vertical levels [integer] |
pd, plm, pa | Pressure coordinate variables, at boundaries, mid points. [real] |
call process_ch4_input_file (gas_name, gas_amount, nstdlvls, & kbegin, kend, pd, plm, pa)
gas_name | Name of the gas specy [character] |
gas_amount | Amount of the gas specy [real] |
nstdlvls | Number of standard levels [integer] |
kbegin, kend | Index of the starting and ending vertical levels [integer] |
pd, plm, pa | Pressure coordinate variables, at boundaries, mid points. [real] |
call process_n2o_input_file (gas_name, gas_amount, nstdlvls, & kbegin, kend, pd, plm, pa)
gas_name | Name of the gas specy [character] |
gas_amount | Amount of the gas specy [real] |
nstdlvls | Number of standard levels [integer] |
kbegin, kend | Index of the starting and ending vertical levels [integer] |
pd, plm, pa | Pressure coordinate variables, at boundaries, mid points. [real] |
call ptz (plm, pd)
plm | pressure at midpoint of layer (average of adjacent
pd values) [real] |
pd | pressures (mb) for layer boundaries. (also known
as flux levels). [real] |
temp = antemp (z)
z | Height [real] |
call transfn ( Gas_tf)
Gas_tf | The output variable of temperature corrected co2 transmission
functions [gas_tf_type] |
call process_gas_input_file (gas_name, gas_amount, nstdlvls, & kbegin, kend, pd, plm, pa, unit)
gas_name | Name of the gas specy [character] |
gas_amount | Amount of the gas specy [real] |
nstdlvls | Number of standard levels [integer] |
kbegin, kend | Index of the starting and ending vertical levels [integer] |
pd, plm, pa | Pressure coordinate variables, at boundaries, mid points. [real] |
unit | The input file descriptor [integer] |