This module contains the CCPP-compliant dcyc2t3 codes that fits radiative fluxes and heating rates from a coarse radiation calculation time interval into model's more frequent time steps. More...
Solar heating rates and fluxes are scaled by the ratio of cosine of zenith angle at the current time to the mean value used in radiation calculation. Surface downward LW flux is scaled by the ratio of current surface air temperature to the corresponding temperature saved during LW radiation calculation. Upward LW flux at the surface is computed by current ground surface temperature. Surface emissivity effect will be taken in other part of the model.
program history:
local_name | standard_name | long_name | units | type | dimensions | kind | intent | optional |
---|---|---|---|---|---|---|---|---|
solhr | forecast_hour_of_the_day | time in hours after 00z at the current timestep | h | real | () | kind_phys | in | False |
slag | equation_of_time | equation of time | radian | real | () | kind_phys | in | False |
sdec | sine_of_solar_declination_angle | sine of solar declination angle | none | real | () | kind_phys | in | False |
cdec | cosine_of_solar_declination_angle | cosine of solar declination angle | none | real | () | kind_phys | in | False |
sinlat | sine_of_latitude | sine of latitude | none | real | (horizontal_dimension) | kind_phys | in | False |
coslat | cosine_of_latitude | cosine of latitude | none | real | (horizontal_dimension) | kind_phys | in | False |
xlon | longitude | longitude of grid box | radian | real | (horizontal_dimension) | kind_phys | in | False |
coszen | cosine_of_zenith_angle | average of cosine of zenith angle over daytime shortwave call time interval | none | real | (horizontal_dimension) | kind_phys | in | False |
tsfc_lnd | surface_skin_temperature_over_land_interstitial | surface skin temperature over land (temporary use as interstitial) | K | real | (horizontal_dimension) | kind_phys | in | False |
tsfc_wat | surface_skin_temperature_over_ocean_interstitial | surface skin temperature over ocean (temporary use as interstitial) | K | real | (horizontal_dimension) | kind_phys | in | False |
tsfc_ice | surface_skin_temperature_over_ice_interstitial | surface skin temperature over ice (temporary use as interstitial) | K | real | (horizontal_dimension) | kind_phys | in | False |
tf | air_temperature_at_lowest_model_layer | air temperature at lowest model layer | K | real | (horizontal_dimension) | kind_phys | in | False |
tsflw | surface_midlayer_air_temperature_in_longwave_radiation | surface (first layer) air temperature saved in longwave radiation call | K | real | (horizontal_dimension) | kind_phys | in | False |
sfcemis_lnd | surface_longwave_emissivity_over_land_interstitial | surface lw emissivity in fraction over land (temporary use as interstitial) | frac | real | (horizontal_dimension) | kind_phys | in | False |
sfcemis_ice | surface_longwave_emissivity_over_ice_interstitial | surface lw emissivity in fraction over ice (temporary use as interstitial) | frac | real | (horizontal_dimension) | kind_phys | in | False |
sfcemis_wat | surface_longwave_emissivity_over_ocean_interstitial | surface lw emissivity in fraction over ocean (temporary use as interstitial) | frac | real | (horizontal_dimension) | kind_phys | in | False |
sfcdsw | surface_downwelling_shortwave_flux_on_radiation_time_step | total sky surface downwelling shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcnsw | surface_net_downwelling_shortwave_flux_on_radiation_time_step | total sky surface net downwelling shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcdlw | surface_downwelling_longwave_flux_on_radiation_time_step | total sky surface downwelling longwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
swh | tendency_of_air_temperature_due_to_shortwave_heating_on_radiation_time_step | total sky shortwave heating rate on radiation time step | K s-1 | real | (horizontal_dimension, vertical_dimension) | kind_phys | in | False |
swhc | tendency_of_air_temperature_due_to_shortwave_heating_assuming_clear_sky_on_radiation_time_step | clear sky shortwave heating rate on radiation time step | K s-1 | real | (horizontal_dimension, vertical_dimension) | kind_phys | in | False |
hlw | tendency_of_air_temperature_due_to_longwave_heating_on_radiation_time_step | total sky longwave heating rate on radiation time step | K s-1 | real | (horizontal_dimension, vertical_dimension) | kind_phys | in | False |
hlwc | tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_time_step | clear sky longwave heating rate on radiation time step | K s-1 | real | (horizontal_dimension, vertical_dimension) | kind_phys | in | False |
sfcnirbmu | surface_upwelling_direct_near_infrared_shortwave_flux_on_radiation_time_step | total sky surface upwelling beam near-infrared shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcnirdfu | surface_upwelling_diffuse_near_infrared_shortwave_flux_on_radiation_time_step | total sky surface upwelling diffuse near-infrared shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcvisbmu | surface_upwelling_direct_ultraviolet_and_visible_shortwave_flux_on_radiation_time_step | total sky surface upwelling beam ultraviolet plus visible shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcvisdfu | surface_upwelling_diffuse_ultraviolet_and_visible_shortwave_flux_on_radiation_time_step | total sky surface upwelling diffuse ultraviolet plus visible shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcnirbmd | surface_downwelling_direct_near_infrared_shortwave_flux_on_radiation_time_step | total sky surface downwelling beam near-infrared shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcnirdfd | surface_downwelling_diffuse_near_infrared_shortwave_flux_on_radiation_time_step | total sky surface downwelling diffuse near-infrared shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcvisbmd | surface_downwelling_direct_ultraviolet_and_visible_shortwave_flux_on_radiation_time_step | total sky surface downwelling beam ultraviolet plus visible shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
sfcvisdfd | surface_downwelling_diffuse_ultraviolet_and_visible_shortwave_flux_on_radiation_time_step | total sky surface downwelling diffuse ultraviolet plus visible shortwave flux on radiation time step | W m-2 | real | (horizontal_dimension) | kind_phys | in | False |
im | horizontal_loop_extent | horizontal loop extent | count | integer | () | in | False | |
levs | vertical_dimension | number of vertical layers | count | integer | () | in | False | |
deltim | time_step_for_dynamics | dynamics timestep | s | real | () | kind_phys | in | False |
fhswr | frequency_for_shortwave_radiation | frequency for shortwave radiation | s | real | () | kind_phys | in | False |
dry | flag_nonzero_land_surface_fraction | flag indicating presence of some land surface area fraction | flag | logical | (horizontal_dimension) | in | False | |
icy | flag_nonzero_sea_ice_surface_fraction | flag indicating presence of some sea ice surface area fraction | flag | logical | (horizontal_dimension) | in | False | |
wet | flag_nonzero_wet_surface_fraction | flag indicating presence of some ocean or lake surface area fraction | flag | logical | (horizontal_dimension) | in | False | |
dtdt | tendency_of_air_temperature_due_to_model_physics | total radiative heating rate at current time | K s-1 | real | (horizontal_dimension, vertical_dimension) | kind_phys | inout | False |
dtdtc | tendency_of_air_temperature_due_to_radiative_heating_assuming_clear_sky | clear sky radiative (shortwave + longwave) heating rate at current time | K s-1 | real | (horizontal_dimension, vertical_dimension) | kind_phys | inout | False |
adjsfcdsw | surface_downwelling_shortwave_flux | surface downwelling shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjsfcnsw | surface_net_downwelling_shortwave_flux | surface net downwelling shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjsfcdlw | surface_downwelling_longwave_flux | surface downwelling longwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjsfculw_lnd | surface_upwelling_longwave_flux_over_land_interstitial | surface upwelling longwave flux at current time over land (temporary use as interstitial) | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjsfculw_ice | surface_upwelling_longwave_flux_over_ice_interstitial | surface upwelling longwave flux at current time over ice (temporary use as interstitial) | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjsfculw_wat | surface_upwelling_longwave_flux_over_ocean_interstitial | surface upwelling longwave flux at current time over ocean (temporary use as interstitial) | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
xmu | zenith_angle_temporal_adjustment_factor_for_shortwave_fluxes | zenith angle temporal adjustment factor for shortwave fluxes | none | real | (horizontal_dimension) | kind_phys | out | False |
xcosz | instantaneous_cosine_of_zenith_angle | cosine of zenith angle at current time | none | real | (horizontal_dimension) | kind_phys | out | False |
adjnirbmu | surface_upwelling_direct_near_infrared_shortwave_flux | surface upwelling beam near-infrared shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjnirdfu | surface_upwelling_diffuse_near_infrared_shortwave_flux | surface upwelling diffuse near-infrared shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjvisbmu | surface_upwelling_direct_ultraviolet_and_visible_shortwave_flux | surface upwelling beam ultraviolet plus visible shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjvisdfu | surface_upwelling_diffuse_ultraviolet_and_visible_shortwave_flux | surface upwelling diffuse ultraviolet plus visible shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjnirbmd | surface_downwelling_direct_near_infrared_shortwave_flux | surface downwelling beam near-infrared shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjnirdfd | surface_downwelling_diffuse_near_infrared_shortwave_flux | surface downwelling diffuse near-infrared shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjvisbmd | surface_downwelling_direct_ultraviolet_and_visible_shortwave_flux | surface downwelling beam ultraviolet plus visible shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
adjvisdfd | surface_downwelling_diffuse_ultraviolet_and_visible_shortwave_flux | surface downwelling diffuse ultraviolet plus visible shortwave flux at current time | W m-2 | real | (horizontal_dimension) | kind_phys | out | False |
errmsg | ccpp_error_message | error message for error handling in CCPP | none | character | () | len=* | out | False |
errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | integer | () | out | False |
Functions/Subroutines | |
subroutine, public | dcyc2t3::dcyc2t3_run |