Code that initializes and calculates shortwave radiative quantities such as flux and heating rate.
fms_mod
constants_mod
esfsw_parameters_mod
rad_utilities_mod
call esfsw_driver_init
call swresf (is, ie, js, je, Atmos_input, Surface, Rad_gases, Aerosol, Astro, & Cldrad_props, Cld_spec, Sw_output)
is | starting subdomain i indices of data in
the physics_window being integrated [integer] |
ie | ending subdomain i indices of data in
the physics_window being integrated [integer] |
js | starting subdomain j indices of data in
the physics_window being integrated [integer] |
je | ending subdomain j indices of data in
the physics_window being integrated [integer] |
Atmos_input | Atmos_input_type variable containing the atmospheric
input fields on the radiation grid [atmos_input_type] |
Aerosol | Aerosol input data for shortwave radiation calculation [aerosol_type] |
Astro | Astronomy_type variable containing the astronomical
input fields on the radiation grid [astronomy_type] |
Rad_gases | Radiative_gases_type variable containing the radiative
gas input fields on the radiation grid [radiative_gases_type] |
Cldrad_props | The cloud radiative property input fields on the
radiation grid [cldrad_properties_type] |
Surface | Surface data as boundary condition to radiation [surface_type] |
Cld_spec | Cloud specification data as initial condition to radiation [cld_specification_type] |
Sw_output | The shortwave radiation calculation result [sw_output_type] |
call adding ( ix, jx, kx, & rlayerdir, tlayerdir, rlayerdif, tlayerdif, & tlayerde, sfcalb, calc_flag, reflectance, & transmittance)
ix | ix is the current longitudinal index in the physics cell being
integrated. [integer] |
jx | jx is the current latitudinal index in the physics cell being
integrated. [integer] |
kx | ix is the current vertical index in the physics cell being
integrated. [integer] |
rlayerdir | layer reflectivity to direct incident beam [real] |
tlayerdir | layer transmissivity to direct incident beam [real] |
rlayerdif | layer reflectivity to diffuse incident beam [real] |
tlayerdir | layer transmissivity to diffuse incident beam [real] |
tlayerde | layer diffuse transmissivity to direct incident beam [real] |
sfcalb | surface albedo [real] |
calcflag | flag to indicate columns where adding is to be done [integer] |
reflectance | diffuse reflectance at a level [real] |
transmittance | diffuse transmittance at a level [real] |
call deledd (ix, jx, kx, & taustr, omegastr, gstr, cosang, ng , daylight, & rlayerdir, tlayerdir, rlayerdif, tlayerdif, & tlayerde, cloud)
ix | ix is the current longitudinal index in the physics cell being
integrated. [integer] |
jx | jx is the current latitudinal index in the physics cell being
integrated. [integer] |
kx | ix is the current vertical index in the physics cell being
integrated. [integer] |
taustr | the scaled optical depth, true optical depth normalized using
delta-eddington approximation [real] |
omegastr | the scaled single-scattering albedo [real] |
gstr | the scaled asymmetry factor [real] |
cosang | cosine of the solar zenith angle [real] |
ng | the number of gaussian angles to compute the diurnally
averaged solar radiation (=1 unless lswg = true) [real] |
cloud | flag for existence of a cloud (used only in 'ovc' mode) [real] |
rlayerdir | layer reflectivity to direct incident beam [real] |
tlayerdir | layer transmissivity to direct incident beam [real] |
rlayerdif | layer reflectivity to diffuse incident beam [real] |
tlayerdir | layer transmissivity to diffuse incident beam [real] |
tlayerde | layer diffuse transmissivity to direct incident beam [real] |