Loading [MathJax]/extensions/tex2jax.js
CCPP SciDoc for UFS-SRW v3.0.0  SRW v3.0.0
Common Community Physics Package Developed at DTC
 
All Classes Namespaces Functions Variables Modules Pages
Loading...
Searching...
No Matches

◆ 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), optional lndp_var_list,
real(kind=kind_phys), dimension(:), intent(in), optional 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), optional albdvis_ice,
real(kind=kind_phys), dimension(:), intent(in), optional albdnir_ice,
real(kind=kind_phys), dimension(:), intent(in), optional albivis_ice,
real(kind=kind_phys), dimension(:), intent(in), optional 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
  • Set surface albedo perturbation, if requested
  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: