CCPP SciDoc for UFS-SRW v3.0.0  SRW v3.0.0
Common Community Physics Package Developed at DTC

◆ gfs_radiation_surface_run()

subroutine gfs_radiation_surface::gfs_radiation_surface_run ( integer, intent(in)  ialb,
integer, intent(in)  im,
integer, intent(in)  nf_albd,
logical, intent(in)  frac_grid,
logical, intent(in)  lslwr,
logical, intent(in)  lsswr,
integer, intent(in)  lsm,
integer, intent(in)  lsm_noahmp,
integer, intent(in)  lsm_ruc,
real(kind=kind_phys), dimension(:), intent(in)  xlat,
real(kind=kind_phys), dimension(:), intent(in)  xlon,
real(kind=kind_phys), dimension(:), intent(in)  slmsk,
integer, intent(in)  lndp_type,
integer, intent(in)  n_var_lndp,
real(kind=kind_phys), dimension(:), intent(in)  sfc_alb_pert,
character(len=3), dimension(:), intent(in)  lndp_var_list,
real(kind=kind_phys), dimension(:), intent(in)  lndp_prt_list,
real(kind=kind_phys), dimension(:), intent(in)  landfrac,
real(kind=kind_phys), dimension(:), intent(in)  snodl,
real(kind=kind_phys), dimension(:), intent(in)  snodi,
real(kind=kind_phys), dimension(:), intent(in)  sncovr,
real(kind=kind_phys), dimension(:), intent(in)  sncovr_ice,
real(kind=kind_phys), dimension(:), intent(in)  fice,
real(kind=kind_phys), dimension(:), intent(in)  zorl,
real(kind=kind_phys), dimension(:), intent(in)  hprime,
real(kind=kind_phys), dimension(:), intent(in)  tsfg,
real(kind=kind_phys), dimension(:), intent(in)  tsfa,
real(kind=kind_phys), dimension(:), intent(in)  tisfc,
real(kind=kind_phys), dimension(:), intent(in)  coszen,
logical, intent(in)  cplice,
real(kind=kind_phys), intent(in)  min_seaice,
real(kind=kind_phys), intent(in)  min_lakeice,
real(kind=kind_phys), dimension(:), intent(in)  lakefrac,
integer, dimension(:), intent(in)  use_lake_model,
real(kind=kind_phys), dimension(:), intent(in)  alvsf,
real(kind=kind_phys), dimension(:), intent(in)  alnsf,
real(kind=kind_phys), dimension(:), intent(in)  alvwf,
real(kind=kind_phys), dimension(:), intent(in)  alnwf,
real(kind=kind_phys), dimension(:), intent(in)  facsf,
real(kind=kind_phys), dimension(:), intent(in)  facwf,
real(kind=kind_phys), dimension(:), intent(inout)  semis_lnd,
real(kind=kind_phys), dimension(:), intent(inout)  semis_ice,
real(kind=kind_phys), dimension(:), intent(inout)  semis_wat,
real(kind=kind_phys), dimension(:), intent(in)  snoalb,
logical, intent(in)  use_cice_alb,
real(kind=kind_phys), intent(in)  con_ttp,
real(kind=kind_phys), dimension(:), intent(inout)  albdvis_lnd,
real(kind=kind_phys), dimension(:), intent(inout)  albdnir_lnd,
real(kind=kind_phys), dimension(:), intent(inout)  albivis_lnd,
real(kind=kind_phys), dimension(:), intent(inout)  albinir_lnd,
real(kind=kind_phys), dimension(:), intent(in)  albdvis_ice,
real(kind=kind_phys), dimension(:), intent(in)  albdnir_ice,
real(kind=kind_phys), dimension(:), intent(in)  albivis_ice,
real(kind=kind_phys), dimension(:), intent(in)  albinir_ice,
real(kind=kind_phys), dimension(:), intent(inout)  semisbase,
real(kind=kind_phys), dimension(:), intent(inout)  semis,
real(kind=kind_phys), dimension(:,:), intent(inout)  sfcalb,
real(kind=kind_phys), dimension(:), intent(inout)  sfc_alb_dif,
character(len=*), intent(out)  errmsg,
integer, intent(out)  errflg 
)

Argument Table

GFS_radiation_surface_run argument table
local_namestandard_namelong_nameunitstypedimensionskindintent
imhorizontal_loop_extenthorizontal loop extentcountinteger()in
ialbcontrol_for_surface_albedoflag for using climatology alb, based on sfc typeflaginteger()in
nf_albdnumber_of_components_for_surface_albedonumber of IR/VIS/UV compinents for surface albedocountinteger()in
frac_gridflag_for_fractional_landmaskflag for fractional gridflaglogical()in
lslwrflag_for_calling_longwave_radiationlogical flags for lw radiation callsflaglogical()in
lsswrflag_for_calling_shortwave_radiationlogical flags for sw radiation callsflaglogical()in
lsmcontrol_for_land_surface_schemeflag for land surface modelflaginteger()in
lsm_noahmpidentifier_for_noahmp_land_surface_schemeflag for NOAH MP land surface modelflaginteger()in
lsm_rucidentifier_for_ruc_land_surface_schemeflag for RUC land surface modelflaginteger()in
xlatlatitudelatituderadianreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
xlonlongitudelongituderadianreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
slmskarea_typelandmask: sea/land/ice=0/1/2flagreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
lndp_typecontrol_for_stochastic_land_surface_perturbationindex for stochastic land surface perturbations typeindexinteger()in
n_var_lndpnumber_of_perturbed_land_surface_variablesnumber of land surface variables perturbedcountinteger()in
sfc_alb_pertsurface_albedo_perturbationsurface albedo perturbationfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
lndp_var_listland_surface_perturbation_variablesvariables to be perturbed for landpertsnonecharacter(ccpp_constant_one:number_of_perturbed_land_surface_variables)len=3in
lndp_prt_listland_surface_perturbation_magnitudesmagnitude of perturbations for landpertsvariablereal(ccpp_constant_one:number_of_perturbed_land_surface_variables)kind_physin
landfracland_area_fractionfraction of horizontal grid area occupied by landfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
snodlsurface_snow_thickness_water_equivalent_over_landwater equivalent snow depth over landmmreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
snodisurface_snow_thickness_water_equivalent_over_icewater equivalent snow depth over icemmreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
sncovrsurface_snow_area_fraction_over_landsurface snow area fractionfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
sncovr_icesurface_snow_area_fraction_over_icesurface snow area fraction over icefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
ficesea_ice_area_fraction_of_sea_area_fractionice fraction over open waterfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
zorlsurface_roughness_lengthsurface roughness lengthcmreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
hprimestandard_deviation_of_subgrid_orographystandard deviation of subgrid height_above_mean_sea_levelmreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
tsfgsurface_ground_temperature_for_radiationsurface ground temperature for radiationKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
tsfasurface_air_temperature_for_radiationlowest model layer air temperature for radiationKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
tisfcsurface_skin_temperature_over_icesurface_skin_temperature_over_iceKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
coszencosine_of_solar_zenith_angle_for_daytime_points_on_radiation_timestepmean cos of zenith angle over rad call periodnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physin
cpliceflag_for_sea_ice_couplingflag controlling cplice collection (default on)flaglogical()in
min_seaicemin_sea_ice_area_fractionminimum sea ice valuefracreal()kind_physin
min_lakeicemin_lake_ice_area_fractionminimum lake ice valuefracreal()kind_physin
lakefraclake_area_fractionfraction of horizontal grid area occupied by lakefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
use_lake_modelflag_for_using_lake_modelflag indicating lake points using a lake modelflaginteger(ccpp_constant_one:horizontal_loop_extent)inout
alvsfvis_albedo_strong_coszmean vis albedo with strong cosz dependencyfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
alnsfnir_albedo_strong_coszmean nir albedo with strong cosz dependencyfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
alvwfvis_albedo_weak_coszmean vis albedo with weak cosz dependencyfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
alnwfnir_albedo_weak_coszmean nir albedo with weak cosz dependencyfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
facsfstrong_cosz_area_fractionfractional coverage with strong cosz dependencyfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
facwfweak_cosz_area_fractionfractional coverage with weak cosz dependencyfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
semis_lndsurface_longwave_emissivity_over_landsurface lw emissivity in fraction over landfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
semis_icesurface_longwave_emissivity_over_icesurface lw emissivity in fraction over icefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
semis_watsurface_longwave_emissivity_over_watersurface lw emissivity in fraction over waterfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
snoalbupper_bound_of_max_albedo_assuming_deep_snowmaximum snow albedofracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
use_cice_albflag_for_cice_albedoflag for using ice albedos form CICE when coupled (default on)flaglogical()in
con_ttptriple_point_temperature_of_watertriple point temperature of waterKreal()kind_physin
albdvis_lndsurface_albedo_direct_visible_over_landdirect surface albedo visible band over landfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
albdnir_lndsurface_albedo_direct_nir_over_landdirect surface albedo NIR band over landfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
albivis_lndsurface_albedo_diffuse_visible_over_landdiffuse surface albedo visible band over landfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
albinir_lndsurface_albedo_diffuse_nir_over_landdiffuse surface albedo NIR band over landfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
albdvis_icesurface_albedo_direct_visible_over_icedirect surface albedo visible band over icefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
albdnir_icesurface_albedo_direct_nir_over_icedirect surface albedo NIR band over icefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
albivis_icesurface_albedo_diffuse_visible_over_icediffuse surface albedo visible band over icefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
albinir_icesurface_albedo_diffuse_nir_over_icediffuse surface albedo NIR band over icefracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
semisbasebaseline_surface_longwave_emissivitybaseline surface lw emissivity in fractionfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
semissurface_longwave_emissivitysurface lw emissivity in fractionfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
sfcalbsurface_albedo_componentssurface albedo IR/UV/VIS componentsfracreal(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:number_of_components_for_surface_albedo)kind_physinout
sfc_alb_difsurface_albedo_for_diffused_shortwave_on_radiation_timestepmean surface diffused sw albedofracreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
errmsgccpp_error_messageerror message for error handling in CCPPnonecharacter()len=*out
errflgccpp_error_codeerror code for error handling in CCPP1integer()out
  1. Approximate mean surface albedo from vis- and nir- diffuse values.

References module_radiation_surface::epsln, module_radiation_surface::f_one, module_radiation_surface::f_zero, module_radiation_surface::setalb(), and module_radiation_surface::setemis().

Here is the call graph for this function: