RRTMG dcyc2t3 Module

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...

Functions/Subroutines
subroutine, public	dcyc2t3::dcyc2t3_run (solhr, slag, sdec, cdec, sinlat, coslat, con_g, con_cp, con_pi, con_sbc, xlon, coszen, tsfc_lnd, tsfc_ice, tsfc_wat, tf, tsflw, tsfc, sfcemis_lnd, sfcemis_ice, sfcemis_wat, sfcdsw, sfcnsw, sfcdlw, swh, swhc, hlw, hlwc, sfcnirbmu, sfcnirdfu, sfcvisbmu, sfcvisdfu, sfcnirbmd, sfcnirdfd, sfcvisbmd, sfcvisdfd, im, levs, deltim, fhswr, dry, icy, wet, damp_LW_fluxadj, lfnc_k, lfnc_p0, use_LW_jacobian, sfculw, fluxlwUP_jac, t_lay, p_lay, p_lev, flux2D_lwUP, flux2D_lwDOWN, pert_radtend, do_sppt, ca_global, tsfc_radtime, dtdt, dtdtnp, htrlw, adjsfcdsw, adjsfcnsw, adjsfcdlw, adjsfculw, adjsfculw_lnd, adjsfculw_ice, adjsfculw_wat, xmu, xcosz, adjnirbmu, adjnirdfu, adjvisbmu, adjvisdfu, adjnirbmd, adjnirdfd, adjvisbmd, adjvisdfd, errmsg, errflg)

Detailed Description

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:

• 198? nmc mrf - created, similar as treatment in gfdl radiation treatment
• 1994 y. hou - modified solar zenith angle calculation
• nov 2004 x. wu - add sfc sw downward flux to the variable list for sea-ice model
• mar 2008 y. hou - add cosine of zenith angle as output for sunshine duration time calc.
• sep 2008 y. hou - separate net sw and downward lw in slrad, changed the sign of sfc net sw to consistent with other parts of the mdl (positive value defines from atmos to the ground). rename output fluxes as adjusted fluxes. other minor changes such as renaming some of passing argument names to be consistent with calling program.
• apr 2009 y. hou - integrated with the new parallel model along with other modifications
• mar 2011 y. hou - minor modification including rearrange loop orders and loop structures to improve efficiency
• mar 2014 x. wu - add sfc nir/vis bm/df to the variable list for the coupled model input
• jul 2014 s moorthi - merge gfs and nems versions
• jun 2014 y. hou - revised to include both up and down sw spectral component fluxes
• Oct 2014 y. hous s. moorthi - add emissivity contribution to upward longwave flux
• Mar 2019 s. moorthi - modify xmu calculation in a time centered way and add more accuracy when physics time step is close to radiation time step

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
solhr	forecast_utc_hour	time in hours after 00z at the current timestep	h	real	()	kind_phys	in
slag	equation_of_time	equation of time	radian	real	()	kind_phys	in
sdec	sine_of_solar_declination_angle	sine of solar declination angle	none	real	()	kind_phys	in
cdec	cosine_of_solar_declination_angle	cosine of solar declination angle	none	real	()	kind_phys	in
sinlat	sine_of_latitude	sine of latitude	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
coslat	cosine_of_latitude	cosine of latitude	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
con_g	gravitational_acceleration	gravitational acceleration	m s-2	real	()	kind_phys	in
con_cp	specific_heat_of_dry_air_at_constant_pressure	specific heat of dry air at constant pressure	J kg-1 K-1	real	()	kind_phys	in
con_pi	pi	ratio of a circle's circumference to its diameter	none	real	()	kind_phys	in
con_sbc	stefan_boltzmann_constant	Stefan-Boltzmann constant	W m-2 K-4	real	()	kind_phys	in
xlon	longitude	longitude of grid box	radian	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
coszen	cosine_of_solar_zenith_angle_for_daytime_points_on_radiation_timestep	average of cosine of zenith angle over daytime shortwave call time interval	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfc_lnd	surface_skin_temperature_over_land	surface skin temperature over land	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfc_ice	surface_skin_temperature_over_ice	surface skin temperature over ice	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfc_wat	surface_skin_temperature_over_water	surface skin temperature over water	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tf	air_temperature_at_surface_adjacent_layer	air temperature at lowest model layer	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsflw	air_temperature_at_surface_adjacent_layer_on_radiation_timestep	surface (first layer) air temperature saved in longwave radiation call	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfc	surface_skin_temperature	surface skin temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcemis_lnd	surface_longwave_emissivity_over_land	surface lw emissivity in fraction over land	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcemis_ice	surface_longwave_emissivity_over_ice	surface lw emissivity in fraction over ice	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcemis_wat	surface_longwave_emissivity_over_water	surface lw emissivity in fraction over water	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcdsw	surface_downwelling_shortwave_flux_on_radiation_timestep	total sky surface downwelling shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcnsw	surface_net_downwelling_shortwave_flux_on_radiation_timestep	total sky surface net downwelling shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcdlw	surface_downwelling_longwave_flux_on_radiation_timestep	total sky surface downwelling longwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
swh	tendency_of_air_temperature_due_to_shortwave_heating_on_radiation_timestep	total sky shortwave heating rate on radiation time step	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
swhc	tendency_of_air_temperature_due_to_shortwave_heating_assuming_clear_sky_on_radiation_timestep	clear sky shortwave heating rate on radiation time step	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
hlw	tendency_of_air_temperature_due_to_longwave_heating_on_radiation_timestep	total sky longwave heating rate on radiation time step	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
hlwc	tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_timestep	clear sky longwave heating rate on radiation time step	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
sfcnirbmu	surface_upwelling_direct_nir_shortwave_flux_on_radiation_timestep	total sky surface upwelling beam near-infrared shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcnirdfu	surface_upwelling_diffuse_nir_shortwave_flux_on_radiation_timestep	total sky surface upwelling diffuse near-infrared shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcvisbmu	surface_upwelling_direct_uv_and_vis_shortwave_flux_on_radiation_timestep	total sky surface upwelling beam ultraviolet plus visible shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcvisdfu	surface_upwelling_diffuse_uv_and_vis_shortwave_flux_on_radiation_timestep	total sky surface upwelling diffuse ultraviolet plus visible shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcnirbmd	surface_downwelling_direct_nir_shortwave_flux_on_radiation_timestep	total sky surface downwelling beam near-infrared shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcnirdfd	surface_downwelling_diffuse_nir_shortwave_flux_on_radiation_timestep	total sky surface downwelling diffuse near-infrared shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcvisbmd	surface_downwelling_direct_uv_and_vis_shortwave_flux_on_radiation_timestep	total sky surface downwelling beam ultraviolet plus visible shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfcvisdfd	surface_downwelling_diffuse_uv_and_vis_shortwave_flux_on_radiation_timestep	total sky surface downwelling diffuse ultraviolet plus visible shortwave flux on radiation time step	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
levs	vertical_layer_dimension	number of vertical layers	count	integer	()		in
deltim	timestep_for_dynamics	dynamics timestep	s	real	()	kind_phys	in
fhswr	period_of_shortwave_radiation_calls	frequency for shortwave radiation	s	real	()	kind_phys	in
dry	flag_nonzero_land_surface_fraction	flag indicating presence of some land surface area fraction	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		in
icy	flag_nonzero_sea_ice_surface_fraction	flag indicating presence of some sea ice surface area fraction	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		in
wet	flag_nonzero_wet_surface_fraction	flag indicating presence of some ocean or lake surface area fraction	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		in
damp_LW_fluxadj	flag_to_damp_rrtmgp_lw_jacobian_flux_adjustment	logical flag to control RRTMGP LW calculation	flag	logical	()		in
lfnc_k	transition_pressure_length_scale_for_flux_damping	depth of transition layer in logistic function for LW flux adjustment damping	Pa	real	()	kind_phys	in
lfnc_p0	transition_pressure_for_flux_damping	transition pressure for LW flux adjustment damping	Pa	real	()	kind_phys	in
use_LW_jacobian	flag_to_calc_rrtmgp_lw_jacobian	logical flag to control RRTMGP LW calculation	flag	logical	()		in
sfculw	surface_upwelling_longwave_flux_on_radiation_timestep	total sky sfc upward lw flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
fluxlwUP_jac	rrtmgp_jacobian_of_lw_flux_upward	RRTMGP Jacobian upward longwave flux profile	W m-2 K-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
t_lay	air_temperature_of_new_state	model layer mean temperature updated by physics	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
p_lay	air_pressure	mean layer pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
p_lev	air_pressure_at_interface	air pressure at model layer interfaces	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
flux2D_lwUP	rrtmgp_lw_flux_profile_upward_allsky_on_radiation_timestep	RRTMGP upward longwave all-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
flux2D_lwDOWN	rrtmgp_lw_flux_profile_downward_allsky_on_radiation_timestep	RRTMGP downward longwave all-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
pert_radtend	flag_for_stochastic_radiative_heating_perturbations	flag for stochastic radiative heating perturbations	flag	logical	()		in
do_sppt	flag_for_stochastic_physics_perturbations	flag for stochastic physics perturbations	flag	logical	()		in
ca_global	flag_for_global_cellular_automata	switch for global ca	flag	logical	()		in
tsfc_radtime	surface_skin_temperature_on_radiation_timestep	surface skin temperature on radiation timestep	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
dtdt	process_split_cumulative_tendency_of_air_temperature	total radiative heating rate at current time	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
dtdtnp	tendency_of_air_temperature_to_withold_from_sppt	temp. change from physics that should not be perturbed by sppt	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
htrlw	updated_tendency_of_air_temperature_due_to_longwave_heating_on_physics_timestep	total sky longwave heating rate on physics time step	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
adjsfcdsw	surface_downwelling_shortwave_flux	surface downwelling shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjsfcnsw	surface_net_downwelling_shortwave_flux	surface net downwelling shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjsfcdlw	surface_downwelling_longwave_flux	surface downwelling longwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjsfculw	surface_upwelling_longwave_flux	surface upwelling longwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjsfculw_lnd	surface_upwelling_longwave_flux_over_land	surface upwelling longwave flux at current time over land	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjsfculw_ice	surface_upwelling_longwave_flux_over_ice	surface upwelling longwave flux at current time over ice	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjsfculw_wat	surface_upwelling_longwave_flux_over_water	surface upwelling longwave flux at current time over water	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
xmu	zenith_angle_temporal_adjustment_factor_for_shortwave_fluxes	zenith angle temporal adjustment factor for shortwave fluxes	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
xcosz	instantaneous_cosine_of_zenith_angle	cosine of zenith angle at current time	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjnirbmu	surface_upwelling_direct_near_infrared_shortwave_flux	surface upwelling beam near-infrared shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjnirdfu	surface_upwelling_diffuse_near_infrared_shortwave_flux	surface upwelling diffuse near-infrared shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjvisbmu	surface_upwelling_direct_ultraviolet_and_visible_shortwave_flux	surface upwelling beam ultraviolet plus visible shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjvisdfu	surface_upwelling_diffuse_ultraviolet_and_visible_shortwave_flux	surface upwelling diffuse ultraviolet plus visible shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjnirbmd	surface_downwelling_direct_near_infrared_shortwave_flux	surface downwelling beam near-infrared shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjnirdfd	surface_downwelling_diffuse_near_infrared_shortwave_flux	surface downwelling diffuse near-infrared shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjvisbmd	surface_downwelling_direct_ultraviolet_and_visible_shortwave_flux	surface downwelling beam ultraviolet plus visible shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
adjvisdfd	surface_downwelling_diffuse_ultraviolet_and_visible_shortwave_flux	surface downwelling diffuse ultraviolet plus visible shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
errmsg	ccpp_error_message	error message for error handling in CCPP	none	character	()	len=*	out
errflg	ccpp_error_code	error code for error handling in CCPP	1	integer	()		out

RRTMG dcyc2t3 General Algorithm