gfs_rrtmgp_post_run()

subroutine, public gfs_rrtmgp_post::gfs_rrtmgp_post_run	(	integer, intent(in)	ncol,
		integer, intent(in)	nlev,
		integer, intent(in)	nday,
		integer, intent(in)	isfc,
		integer, intent(in)	itoa,
		integer, dimension(:), intent(in)	idxday,
		logical, intent(in)	dolwrad,
		logical, intent(in)	doswrad,
		logical, intent(in)	do_lw_clrsky_hr,
		logical, intent(in)	do_sw_clrsky_hr,
		logical, intent(in)	save_diag,
		real(kind_phys), intent(in)	fhlwr,
		real(kind_phys), intent(in)	fhswr,
		real(kind_phys), dimension(:), intent(in)	sfc_alb_nir_dir,
		real(kind_phys), dimension(:), intent(in)	sfc_alb_nir_dif,
		real(kind_phys), dimension(:), intent(in)	sfc_alb_uvvis_dir,
		real(kind_phys), dimension(:), intent(in)	sfc_alb_uvvis_dif,
		real(kind_phys), dimension(:,:), intent(in), optional	p_lev,
		real(kind_phys), dimension(:), intent(in)	tsfa,
		real(kind_phys), dimension(:), intent(in)	coszen,
		real(kind_phys), dimension(:), intent(in)	coszdg,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxlwdown_clrsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxlwup_allsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxlwdown_allsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxlwup_clrsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxswdown_clrsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxswup_allsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxswdown_allsky,
		real(kind_phys), dimension(:,:), intent(in), optional	fluxswup_clrsky,
		real(kind_phys), intent(in)	raddt,
		real(kind_phys), dimension(:,:), intent(in)	aerodp,
		real(kind_phys), dimension(:,:), intent(in)	cldsa,
		integer, dimension(:,:), intent(in)	mtopa,
		integer, dimension(:,:), intent(in)	mbota,
		real(kind_phys), dimension(:,:), intent(in)	cld_frac,
		real(kind_phys), dimension(:,:), intent(in)	cldtaulw,
		real(kind_phys), dimension(:,:), intent(in)	cldtausw,
		type(cmpfsw_type), dimension(:), intent(in)	scmpsw,
		real(kind=kind_phys), dimension(:,:), intent(inout)	fluxr,
		real(kind_phys), dimension(:), intent(inout)	sfcdlw,
		real(kind_phys), dimension(:), intent(inout)	sfculw,
		type(sfcflw_type), dimension(:), intent(inout)	sfcflw,
		real(kind_phys), dimension(:), intent(inout)	tsflw,
		real(kind_phys), dimension(:,:), intent(inout)	htrlw,
		real(kind_phys), dimension(:,:), intent(inout), optional	htrlwu,
		type(topflw_type), dimension(:), intent(inout)	topflw,
		real(kind_phys), dimension(:), intent(inout)	nirbmdi,
		real(kind_phys), dimension(:), intent(inout)	nirdfdi,
		real(kind_phys), dimension(:), intent(inout)	visbmdi,
		real(kind_phys), dimension(:), intent(inout)	visdfdi,
		real(kind_phys), dimension(:), intent(inout)	nirbmui,
		real(kind_phys), dimension(:), intent(inout)	nirdfui,
		real(kind_phys), dimension(:), intent(inout)	visbmui,
		real(kind_phys), dimension(:), intent(inout)	visdfui,
		real(kind_phys), dimension(:), intent(inout)	sfcnsw,
		real(kind_phys), dimension(:), intent(inout)	sfcdsw,
		real(kind_phys), dimension(:,:), intent(inout)	htrsw,
		type(sfcfsw_type), dimension(:), intent(inout)	sfcfsw,
		type(topfsw_type), dimension(:), intent(inout)	topfsw,
		real(kind_phys), dimension(:,:), intent(inout), optional	htrswc,
		real(kind_phys), dimension(:,:), intent(inout), optional	htrlwc,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg )

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
nCol	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
nLev	vertical_layer_dimension	number of vertical levels	count	integer	()		in
iSFC	vertical_index_for_surface_in_rrtmgp	index for surface layer in RRTMGP	flag	integer	()		in
iTOA	vertical_index_for_toa_in_rrtmgp	index for TOA layer in RRTMGP	flag	integer	()		in
nday	daytime_points_dimension	daytime points dimension	count	integer	()		in
idxday	daytime_points	daytime points	index	integer	(ccpp_constant_one:horizontal_loop_extent)		in
doSWrad	flag_for_calling_shortwave_radiation	logical flags for sw radiation calls	flag	logical	()		in
do_sw_clrsky_hr	flag_for_output_of_tendency_of_air_temperature_due_to_shortwave_heating_on_radiation_timestep_assuming_clear_sky	flag to output sw heating rate	flag	logical	()		in
doLWrad	flag_for_calling_longwave_radiation	logical flags for lw radiation calls	flag	logical	()		in
do_lw_clrsky_hr	flag_for_output_of_tendency_of_air_temperature_due_to_longwave_heating_on_radiation_timestep_assuming_clear_sky	flag to output lw heating rate	flag	logical	()		in
save_diag	flag_for_diagnostics	logical flag for storing diagnostics	flag	logical	()		in
fhlwr	period_of_longwave_radiation_calls	frequency for longwave radiation	s	real	()	kind_phys	in
fhswr	period_of_shortwave_radiation_calls	frequency for shortwave radiation	s	real	()	kind_phys	in
coszen	cosine_of_solar_zenith_angle_for_daytime_points_on_radiation_timestep	mean cos of zenith angle over rad call period	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
coszdg	cosine_of_solar_zenith_angle_on_radiation_timestep	daytime mean cosz over rad call period	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfc_alb_nir_dir	surface_albedo_due_to_near_ir_direct	surface albedo due to near IR direct beam	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfc_alb_nir_dif	surface_albedo_due_to_near_ir_diffused	surface albedo due to near IR diffused beam	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfc_alb_uvvis_dir	surface_albedo_due_to_uv_and_vis_direct	surface albedo due to UV+VIS direct beam	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
sfc_alb_uvvis_dif	surface_albedo_due_to_uv_and_vis_diffused	surface albedo due to UV+VIS diffused beam	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfa	surface_air_temperature_for_radiation	lowest model layer air temperature for radiation	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
p_lev	air_pressure_at_interface_for_rrtmgp	air pressure level	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
fluxlwUP_allsky	rrtmgp_lw_flux_profile_upward_allsky	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
fluxlwDOWN_allsky	rrtmgp_lw_flux_profile_downward_allsky	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
fluxlwUP_clrsky	rrtmgp_lw_flux_profile_upward_clrsky	RRTMGP upward longwave clr-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
fluxlwDOWN_clrsky	rrtmgp_lw_flux_profile_downward_clrsky	RRTMGP downward longwave clr-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
fluxswUP_allsky	rrtmgp_sw_flux_profile_upward_allsky	RRTMGP upward shortwave all-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
fluxswDOWN_allsky	rrtmgp_sw_flux_profile_downward_allsky	RRTMGP downward shortwave all-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
fluxswUP_clrsky	rrtmgp_sw_flux_profile_upward_clrsky	RRTMGP upward shortwave clr-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
fluxswDOWN_clrsky	rrtmgp_sw_flux_profile_downward_clrsky	RRTMGP downward shortwave clr-sky flux profile	W m-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
raddt	time_step_for_radiation	radiation time step	s	real	()	kind_phys	in
aerodp	atmosphere_optical_thickness_due_to_ambient_aerosol_particles	vertical integrated optical depth for various aerosol species	none	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:number_of_species_for_aerosol_optical_depth)	kind_phys	in
cldsa	cloud_area_fraction_for_radiation	fraction of clouds for low, middle, high, total and BL	frac	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:5)	kind_phys	in
mtopa	model_layer_number_at_cloud_top	vertical indices for low, middle and high cloud tops	index	integer	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:3)		in
mbota	model_layer_number_at_cloud_base	vertical indices for low, middle and high cloud bases	index	integer	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:3)		in
cld_frac	total_cloud_fraction	layer total cloud fraction	frac	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
cldtaulw	cloud_optical_depth_layers_at_10mu_band	approx 10mu band layer cloud optical depth	none	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
cldtausw	cloud_optical_depth_layers_at_0p55mu_band	approx .55mu band layer cloud optical depth	none	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
scmpsw	components_of_surface_downward_shortwave_fluxes	derived type for special components of surface downward shortwave fluxes	W m-2	cmpfsw_type	(ccpp_constant_one:horizontal_loop_extent)	cmpfsw_type	in
fluxr	cumulative_radiation_diagnostic	time-accumulated 2D radiation-related diagnostic fields	mixed	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:number_of_diagnostics_variables_for_radiation)	kind_phys	inout
sfcdlw	surface_downwelling_longwave_flux_on_radiation_timestep	total sky sfc downward lw flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
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	inout
sfcflw	surface_lw_fluxes_assuming_total_and_clear_sky_on_radiation_timestep	lw radiation fluxes at sfc	W m-2	sfcflw_type	(ccpp_constant_one:horizontal_loop_extent)	sfcflw_type	inout
tsflw	air_temperature_at_surface_adjacent_layer_on_radiation_timestep	surface air temp during lw calculation	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
htrlw	tendency_of_air_temperature_due_to_longwave_heating_on_radiation_timestep	total sky lw heating rate	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
htrlwu	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
topflw	lw_fluxes_top_atmosphere	lw radiation fluxes at top	W m-2	topflw_type	(ccpp_constant_one:horizontal_loop_extent)	topflw_type	inout
nirbmdi	surface_downwelling_direct_nir_shortwave_flux_on_radiation_timestep	sfc nir beam sw downward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
nirdfdi	surface_downwelling_diffuse_nir_shortwave_flux_on_radiation_timestep	sfc nir diff sw downward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
visbmdi	surface_downwelling_direct_uv_and_vis_shortwave_flux_on_radiation_timestep	sfc uv+vis beam sw downward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
visdfdi	surface_downwelling_diffuse_uv_and_vis_shortwave_flux_on_radiation_timestep	sfc uv+vis diff sw downward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
nirbmui	surface_upwelling_direct_nir_shortwave_flux_on_radiation_timestep	sfc nir beam sw upward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
nirdfui	surface_upwelling_diffuse_nir_shortwave_flux_on_radiation_timestep	sfc nir diff sw upward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
visbmui	surface_upwelling_direct_uv_and_vis_shortwave_flux_on_radiation_timestep	sfc uv+vis beam sw upward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
visdfui	surface_upwelling_diffuse_uv_and_vis_shortwave_flux_on_radiation_timestep	sfc uv+vis diff sw upward flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
sfcnsw	surface_net_downwelling_shortwave_flux_on_radiation_timestep	total sky sfc netsw flx into ground	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
sfcdsw	surface_downwelling_shortwave_flux_on_radiation_timestep	total sky sfc downward sw flux	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
htrsw	tendency_of_air_temperature_due_to_shortwave_heating_on_radiation_timestep	total sky sw heating rate	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
sfcfsw	surface_sw_fluxes_assuming_total_and_clear_sky_on_radiation_timestep	sw radiation fluxes at sfc	W m-2	sfcfsw_type	(ccpp_constant_one:horizontal_loop_extent)	sfcfsw_type	inout
topfsw	sw_fluxes_top_atmosphere	sw radiation fluxes at toa	W m-2	topfsw_type	(ccpp_constant_one:horizontal_loop_extent)	topfsw_type	inout
htrswc	tendency_of_air_temperature_due_to_shortwave_heating_assuming_clear_sky_on_radiation_timestep	clear sky sw heating rates	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
htrlwc	tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_timestep	longwave clear sky heating rate	K s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:adjusted_vertical_layer_dimension_for_radiation)	kind_phys	inout
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

The all-sky radiation tendency is computed, the clear-sky tendency is computed if requested.

RRTMGP surface and TOA fluxes are copied to fields that persist between radiation/physics calls.

(optional) Save additional diagnostics.

Parameters

[in]	itoa	Vertical index for TOA level
[in]	idxday	Index array for daytime points
[in]	mtopa	ertical indices for low, middle and high cloud bases
[in]	save_diag	Output radiation diagnostics?
[in]	fhswr	Frequency for SW radiation calls
[in]	sfc_alb_uvvis_dif	Surface albedo (diffuse)
[in]	fluxswdown_clrsky	RRTMGP shortwave clear-sky flux (W/m2)
[in]	raddt	Radiation time step
[in]	cldtausw	approx .55mu band layer cloud optical depth
[in]	scmpsw	2D surface fluxes, components:
[in,out]	sfcdsw	SW sfc all-sky downward flux (W/m2)
[in,out]	htrsw	SW all-sky heating rate (K/s)
[in,out]	htrlwu	LW all-sky heating-rate updated in-between radiation calls.
[in,out]	sfcflw	LW radiation fluxes at sfc
[in,out]	sfcfsw	SW radiation fluxes at sfc
[in,out]	topfsw	SW fluxes at top atmosphere
[in,out]	topflw	LW fluxes at top atmosphere
[out]	errmsg	CCPP error message
[out]	errflg	CCPP error code
[in,out]	htrswc	SW clear-sky heating rate (K/s)

Parameters

ncol	Horizontal loop extent
nlev	Number of vertical layers
nday	Number of daylit columns
isfc	Vertical index for surface level
dolwrad	Logical flags for lw radiation calls
doswrad	Logical flags for sw radiation calls
do_lw_clrsky_hr	Output clear-sky LW heating-rate?
do_sw_clrsky_hr	Output clear-sky SW heating-rate?
fhlwr	Frequency for LW radiation calls
sfc_alb_nir_dir	Surface albedo (direct)
sfc_alb_nir_dif	Surface albedo (diffuse)
sfc_alb_uvvis_dir	Surface albedo (direct)
p_lev	Pressure @ model layer-interfaces (Pa)
tsfa	Lowest model layer air temperature for radiation (K)
coszen	Cosine(SZA)
coszdg	Cosine(SZA), daytime
fluxlwdown_clrsky	RRTMGP longwave clear-sky flux (W/m2)
fluxlwup_allsky	RRTMGP longwave all-sky flux (W/m2)
fluxlwdown_allsky	RRTMGP longwave all-sky flux (W/m2)
fluxlwup_clrsky	RRTMGP longwave clear-sky flux (W/m2)
fluxswup_allsky	RRTMGP shortwave all-sky flux (W/m2)
fluxswdown_allsky	RRTMGP shortwave all-sky flux (W/m2)
fluxswup_clrsky	RRTMGP shortwave clear-sky flux (W/m2)
aerodp	Vertical integrated optical depth for various aerosol species
cldsa	Fraction of clouds for low, middle, high, total and BL
mbota	Vertical indices for low, middle and high cloud tops
cld_frac	Total cloud fraction in each layer
cldtaulw	approx 10.mu band layer cloud optical depth
sfcdlw	LW sfc all-sky downward flux (W/m2)
sfculw	LW sfc all-sky upward flux (W/m2)
tsflw	LW sfc air temp during calculation (K)
htrlw	LW all-sky heating rate (K/s)
nirbmdi	SW sfc nir beam downward flux (W/m2)
nirdfdi	SW sfc nir diff downward flux (W/m2)
visbmdi	SW sfc uv+vis beam downward flux (W/m2)
visdfdi	SW sfc uv+vis diff downward flux (W/m2)
nirbmui	SW sfc nir beam upward flux (W/m2)
nirdfui	SW sfc nir diff upward flux (W/m2)
visbmui	SW sfc uv+vis beam upward flux (W/m2)
visdfui	SW sfc uv+vis diff upward flux (W/m2)
sfcnsw	SW sfc all-sky net flux (W/m2) flux into ground
htrlwc	LW clear-sky heating-rate (K/s)