subroutine rrtmg_lw_post::rrtmg_lw_post_run	(	type(gfs_control_type), intent(in)	Model,
		type(gfs_grid_type), intent(in)	Grid,
		type(gfs_radtend_type), intent(inout)	Radtend,
		type(gfs_coupling_type), intent(inout)	Coupling,
		integer, intent(in)	im,
		integer, intent(in)	ltp,
		integer, intent(in)	lm,
		integer, intent(in)	kd,
		real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)	tsfa,
		real(kind=kind_phys), dimension(size(grid%xlon,1), lm+ltp), intent(in)	htlwc,
		real(kind=kind_phys), dimension(size(grid%xlon,1), lm+ltp), intent(in)	htlw0,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent	optional
Model	GFS_control_type_instance	Fortran DDT containing FV3-GFS model control parameters	DDT	GFS_control_type	()		in	False
Grid	GFS_grid_type_instance	Fortran DDT containing FV3-GFS grid and interpolation related data	DDT	GFS_grid_type	()		in	False
Radtend	GFS_radtend_type_instance	Fortran DDT containing FV3-GFS fields targetted for diagnostic output	DDT	GFS_radtend_type	()		inout	False
Coupling	GFS_coupling_type_instance	Fortran DDT containing FV3-GFS fields to/from coupling with other components	DDT	GFS_coupling_type	()		inout	False
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in	False
ltp	extra_top_layer	extra top layers	none	integer	()		in	False
lm	number_of_vertical_layers_for_radiation_calculations	number of vertical layers for radiation calculation	count	integer	()		in	False
kd	vertical_index_difference_between_inout_and_local	vertical index difference between in/out and local	index	integer	()		in	False
tsfa	surface_air_temperature_for_radiation	lowest model layer air temperature for radiation	K	real	(horizontal_dimension)	kind_phys	in	False
htlwc	tendency_of_air_temperature_due_to_longwave_heating_on_radiation_time_step_and_radiation_levels	total sky heating rate due to longwave radiation	K s-1	real	(horizontal_dimension, adjusted_vertical_layer_dimension_for_radiation)	kind_phys	in	False
htlw0	tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_time_step_and_radiation_levels	clear sky heating rate due to longwave radiation	K s-1	real	(horizontal_dimension, adjusted_vertical_layer_dimension_for_radiation)	kind_phys	in	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

1. Save calculation results
   • Save surface air temp for diurnal adjustment at model t-steps