CCPP Scientific Documentation
v5.0.0
subroutine rrtmg_sw_post::rrtmg_sw_post_run ( type(gfs_control_type), intent(in)  Model,
type(gfs_grid_type), intent(in)  Grid,
type(gfs_diag_type), intent(inout)  Diag,
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)  nday,
integer, intent(in)  lm,
integer, intent(in)  kd,
real(kind=kind_phys), dimension(size(grid%xlon,1), lm+ltp), intent(in)  htswc,
real(kind=kind_phys), dimension(size(grid%xlon,1), lm+ltp), intent(in)  htsw0,
real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)  sfcalb1,
real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)  sfcalb2,
real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)  sfcalb3,
real(kind=kind_phys), dimension(size(grid%xlon,1)), intent(in)  sfcalb4,
type(cmpfsw_type), dimension(size(grid%xlon,1)), intent(inout)  scmpsw,
character(len=*), intent(out)  errmsg,
integer, intent(out)  errflg 
)

Argument Table

rrtmg_sw_post_run argument table
local_namestandard_namelong_nameunitstypedimensionskindintentoptional
ModelGFS_control_type_instanceFortran DDT containing FV3-GFS model control parametersDDTGFS_control_type()inFalse
GridGFS_grid_type_instanceFortran DDT containing FV3-GFS grid and interpolation related dataDDTGFS_grid_type()inFalse
DiagGFS_diag_type_instanceFortran DDT containing FV3-GFS diagnotics dataDDTGFS_diag_type()inoutFalse
RadtendGFS_radtend_type_instanceFortran DDT containing FV3-GFS fields targetted for diagnostic outputDDTGFS_radtend_type()inoutFalse
CouplingGFS_coupling_type_instanceFortran DDT containing FV3-GFS fields to/from coupling with other componentsDDTGFS_coupling_type()inoutFalse
imhorizontal_loop_extenthorizontal loop extentcountinteger()inFalse
ltpextra_top_layerextra top layersnoneinteger()inFalse
ndaydaytime_points_dimensiondaytime points dimensioncountinteger()inFalse
lmnumber_of_vertical_layers_for_radiation_calculationsnumber of vertical layers for radiation calculationcountinteger()inFalse
kdvertical_index_difference_between_inout_and_localvertical index difference between in/out and localindexinteger()inFalse
htswctendency_of_air_temperature_due_to_shortwave_heating_on_radiation_time_step_and_radiation_levelstotal sky heating rate due to shortwave radiationK s-1real(horizontal_dimension, adjusted_vertical_layer_dimension_for_radiation)kind_physinFalse
htsw0tendency_of_air_temperature_due_to_shortwave_heating_assuming_clear_sky_on_radiation_time_step_and_radiation_levelsclear sky heating rates due to shortwave radiationK s-1real(horizontal_dimension, adjusted_vertical_layer_dimension_for_radiation)kind_physinFalse
sfcalb1surface_albedo_due_to_near_IR_directsurface albedo due to near IR direct beamfracreal(horizontal_dimension)kind_physinFalse
sfcalb2surface_albedo_due_to_near_IR_diffusedsurface albedo due to near IR diffused beamfracreal(horizontal_dimension)kind_physinFalse
sfcalb3surface_albedo_due_to_UV_and_VIS_directsurface albedo due to UV+VIS direct beamfracreal(horizontal_dimension)kind_physinFalse
sfcalb4surface_albedo_due_to_UV_and_VIS_diffusedsurface albedo due to UV+VIS diffused beamfracreal(horizontal_dimension)kind_physinFalse
scmpswcomponents_of_surface_downward_shortwave_fluxesderived type for special components of surface downward shortwave fluxesW m-2cmpfsw_type(horizontal_dimension)inoutFalse
errmsgccpp_error_messageerror message for error handling in CCPPnonecharacter()len=*outFalse
errflgccpp_error_flagerror flag for error handling in CCPPflaginteger()outFalse
  • Save two spectral bands' surface downward and upward fluxes for output.