CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches

◆ gfdl_sfc_layer_run()

subroutine, public gfdl_sfc_layer::gfdl_sfc_layer_run ( integer, intent(in) im,
integer, intent(in) nsoil,
integer, intent(in) km,
real(kind=kind_phys), dimension(:), intent(in) xlat,
real(kind=kind_phys), dimension(:), intent(in) xlon,
logical, dimension(:), intent(in) flag_iter,
integer, intent(in) lsm,
integer, intent(in) lsm_noah,
integer, intent(in) lsm_noahmp,
integer, intent(in) lsm_ruc,
integer, intent(in) icoef_sf,
logical, intent(in) cplwav,
real (kind=kind_phys), intent(in) karman,
logical, intent(in) cplwav2atm,
logical, intent(in) lcurr_sf,
logical, intent(in) pert_cd,
integer, intent(in) ntsflg,
real(kind=kind_phys), intent(in) sfenth,
real(kind=kind_phys), dimension(:), intent(in) z1,
real(kind=kind_phys), dimension(:), intent(in) shdmax,
integer, intent(in) ivegsrc,
integer, dimension(:), intent(in) vegtype,
real(kind=kind_phys), dimension(:), intent(in) sigmaf,
real(kind=kind_phys), intent(in) dt,
logical, dimension(:), intent(in) wet,
logical, dimension(:), intent(in) dry,
logical, dimension(:), intent(in) icy,
integer, dimension(:), intent(in) isltyp,
real(kind=kind_phys), intent(in) rd,
real(kind=kind_phys), intent(in) grav,
real(kind=kind_phys), intent(in) ep1,
real(kind=kind_phys), intent(in) ep2,
real(kind=kind_phys), dimension(:,:), intent(in) smois,
real(kind=kind_phys), dimension(:), intent(in) psfc,
real(kind=kind_phys), dimension(:), intent(in) prsl1,
real(kind=kind_phys), dimension(:), intent(in) q1,
real(kind=kind_phys), dimension(:), intent(in) t1,
real(kind=kind_phys), dimension(:), intent(in) u1,
real(kind=kind_phys), dimension(:), intent(in) v1,
real(kind=kind_phys), dimension(:), intent(in) wspd,
real(kind=kind_phys), dimension(:), intent(in) u10,
real(kind=kind_phys), dimension(:), intent(in) v10,
real(kind=kind_phys), dimension(:), intent(in) gsw,
real(kind=kind_phys), dimension(:), intent(in) glw,
real(kind=kind_phys), dimension(:), intent(in) tsurf_wat,
real(kind=kind_phys), dimension(:), intent(in) tsurf_lnd,
real(kind=kind_phys), dimension(:), intent(in) tsurf_ice,
real(kind=kind_phys), dimension(:), intent(inout) tskin_wat,
real(kind=kind_phys), dimension(:), intent(inout) tskin_lnd,
real(kind=kind_phys), dimension(:), intent(inout) tskin_ice,
real(kind=kind_phys), dimension(:), intent(inout) ustar_wat,
real(kind=kind_phys), dimension(:), intent(inout) ustar_lnd,
real(kind=kind_phys), dimension(:), intent(inout) ustar_ice,
real(kind=kind_phys), dimension(:), intent(inout) znt_wat,
real(kind=kind_phys), dimension(:), intent(inout) znt_lnd,
real(kind=kind_phys), dimension(:), intent(inout) znt_ice,
real(kind=kind_phys), dimension(:), intent(inout) cdm_wat,
real(kind=kind_phys), dimension(:), intent(inout) cdm_lnd,
real(kind=kind_phys), dimension(:), intent(inout) cdm_ice,
real(kind=kind_phys), dimension(:), intent(inout) stress_wat,
real(kind=kind_phys), dimension(:), intent(inout) stress_lnd,
real(kind=kind_phys), dimension(:), intent(inout) stress_ice,
real(kind=kind_phys), dimension(:), intent(inout) rib_wat,
real(kind=kind_phys), dimension(:), intent(inout) rib_lnd,
real(kind=kind_phys), dimension(:), intent(inout) rib_ice,
real(kind=kind_phys), dimension(:), intent(inout) fm_wat,
real(kind=kind_phys), dimension(:), intent(inout) fm_lnd,
real(kind=kind_phys), dimension(:), intent(inout) fm_ice,
real(kind=kind_phys), dimension(:), intent(inout) fh_wat,
real(kind=kind_phys), dimension(:), intent(inout) fh_lnd,
real(kind=kind_phys), dimension(:), intent(inout) fh_ice,
real(kind=kind_phys), dimension(:), intent(inout) fh2_wat,
real(kind=kind_phys), dimension(:), intent(inout) fh2_lnd,
real(kind=kind_phys), dimension(:), intent(inout) fh2_ice,
real(kind=kind_phys), dimension(:), intent(inout) ch_wat,
real(kind=kind_phys), dimension(:), intent(inout) ch_lnd,
real(kind=kind_phys), dimension(:), intent(inout) ch_ice,
real(kind=kind_phys), dimension(:), intent(inout) fm10_wat,
real(kind=kind_phys), dimension(:), intent(inout) fm10_lnd,
real(kind=kind_phys), dimension(:), intent(inout) fm10_ice,
real(kind=kind_phys), dimension(:), intent(inout) qss_wat,
real(kind=kind_phys), dimension(:), intent(inout) qss_lnd,
real(kind=kind_phys), dimension(:), intent(inout) qss_ice,
character(len=*), intent(out) errmsg,
integer, intent(out) errflg )

Argument Table

gfdl_sfc_layer_run argument table
local_namestandard_namelong_nameunitstypedimensionskindintent
imhorizontal_loop_extenthorizontal loop extentcountinteger()in
nsoilvertical_dimension_of_soilsoil vertical layer dimensioncountinteger()in
kmvertical_layer_dimensionnumber of vertical levelscountinteger()in
karmanvon_karman_constantvon karman constantnonereal()kind_physin
xlatlatitudelatituderadianreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
xlonlongitudelongituderadianreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
flag_iterflag_for_iterationflag for iterationflaglogical(ccpp_constant_one:horizontal_loop_extent)in
lsmcontrol_for_land_surface_schemeflag for land surface modelflaginteger()in
lsm_noahidentifier_for_noah_land_surface_schemeflag for NOAH 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
icoef_sfflag_for_surface_roughness_option_over_watersurface roughness options over waterflaginteger()in
cplwavflag_for_ocean_wave_couplingflag controlling cplwav collection (default off)flaglogical()in
cplwav2atmflag_for_one_way_ocean_wave_coupling_to_atmosphereflag controlling ocean wave coupling to the atmosphere (default off)flaglogical()in
lcurr_sfflag_for_surface_layer_scheme_ocean_currentsflag for taking ocean currents into account in surface layer schemeflaglogical()in
pert_Cdflag_for_surface_layer_scheme_surface_drag_coefficient_for_momentum_in_air_perturbationsflag for perturbing the surface drag coefficient for momentum in surface layer schemeflaglogical()in
ntsflgcontrol_for_surface_layer_scheme_skin_temperature_updateflag for updating skin temperature in the surface layer schemeflaginteger()in
sfenthsurface_layer_scheme_enthalpy_flux_factorenthalpy flux factor used in surface layer schemenonereal()kind_physin
z1height_above_ground_at_lowest_model_layerheight above ground at 1st model layermreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
shdmaxmax_vegetation_area_fractionmax fractnl cover of green vegfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
ivegsrccontrol_for_vegetation_datasetland use dataset choiceindexinteger()in
vegtypevegetation_type_classificationvegetation type at each grid cellindexinteger(ccpp_constant_one:horizontal_loop_extent)in
sigmafbounded_vegetation_area_fractionareal fractional cover of green vegetation bounded on the bottomfracreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
dttimestep_for_physicsphysics timestepsreal()kind_physin
wetflag_nonzero_wet_surface_fractionflag indicating presence of some ocean or lake surface area fractionflaglogical(ccpp_constant_one:horizontal_loop_extent)in
dryflag_nonzero_land_surface_fractionflag indicating presence of some land surface area fractionflaglogical(ccpp_constant_one:horizontal_loop_extent)in
icyflag_nonzero_sea_ice_surface_fractionflag indicating presence of some sea ice surface area fractionflaglogical(ccpp_constant_one:horizontal_loop_extent)in
isltypsoil_type_classificationsoil type at each grid cellindexinteger(ccpp_constant_one:horizontal_loop_extent)in
rdgas_constant_of_dry_airideal gas constant for dry airJ kg-1 K-1real()kind_physin
gravgravitational_accelerationgravitational accelerationm s-2real()kind_physin
ep1ratio_of_vapor_to_dry_air_gas_constants_minus_one(rv/rd) - 1 (rv = ideal gas constant for water vapor)nonereal()kind_physin
ep2ratio_of_dry_air_to_water_vapor_gas_constantsrd/rvnonereal()kind_physin
smoisvolume_fraction_of_condensed_water_in_soiltotal soil moisturefracreal(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_dimension_of_soil)kind_physin
psfcsurface_air_pressuresurface pressurePareal(ccpp_constant_one:horizontal_loop_extent)kind_physin
prsl1air_pressure_at_surface_adjacent_layermean pressure at lowest model layerPareal(ccpp_constant_one:horizontal_loop_extent)kind_physin
q1specific_humidity_at_surface_adjacent_layerwater vapor specific humidity at lowest model layerkg kg-1real(ccpp_constant_one:horizontal_loop_extent)kind_physin
t1air_temperature_at_surface_adjacent_layer1st model layer air temperatureKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
u1x_wind_at_surface_adjacent_layerzonal wind at lowest model layerm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physin
v1y_wind_at_surface_adjacent_layermeridional wind at lowest model layerm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physin
wspdwind_speed_at_lowest_model_layerwind speed at lowest model levelm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physin
u10x_wind_at_10m10 meter u wind speedm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physin
v10y_wind_at_10m10 meter v wind speedm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physin
gswsurface_downwelling_shortwave_fluxsurface downwelling shortwave flux at current timeW m-2real(ccpp_constant_one:horizontal_loop_extent)kind_physin
glwsurface_downwelling_longwave_fluxsurface downwelling longwave flux at current timeW m-2real(ccpp_constant_one:horizontal_loop_extent)kind_physin
tsurf_watsurface_skin_temperature_after_iteration_over_watersurface skin temperature after iteration over waterKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
tsurf_lndsurface_skin_temperature_after_iteration_over_landsurface skin temperature after iteration over landKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
tsurf_icesurface_skin_temperature_after_iteration_over_icesurface skin temperature after iteration over iceKreal(ccpp_constant_one:horizontal_loop_extent)kind_physin
tskin_watsurface_skin_temperature_over_watersurface skin temperature over waterKreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
tskin_lndsurface_skin_temperature_over_landsurface skin temperature over landKreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
tskin_icesurface_skin_temperature_over_icesurface skin temperature over iceKreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
ustar_watsurface_friction_velocity_over_watersurface friction velocity over waterm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
ustar_lndsurface_friction_velocity_over_landsurface friction velocity over landm s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
ustar_icesurface_friction_velocity_over_icesurface friction velocity over icem s-1real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
znt_watsurface_roughness_length_over_watersurface roughness length over water (temporary use as interstitial)cmreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
znt_lndsurface_roughness_length_over_landsurface roughness length over land (temporary use as interstitial)cmreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
znt_icesurface_roughness_length_over_icesurface roughness length over ice (temporary use as interstitial)cmreal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
cdm_watsurface_drag_coefficient_for_momentum_in_air_over_watersurface exchange coeff for momentum over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
cdm_lndsurface_drag_coefficient_for_momentum_in_air_over_landsurface exchange coeff for momentum over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
cdm_icesurface_drag_coefficient_for_momentum_in_air_over_icesurface exchange coeff for momentum over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
stress_watsurface_wind_stress_over_watersurface wind stress over waterm2 s-2real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
stress_lndsurface_wind_stress_over_landsurface wind stress over landm2 s-2real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
stress_icesurface_wind_stress_over_icesurface wind stress over icem2 s-2real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
rib_watbulk_richardson_number_at_lowest_model_level_over_waterbulk Richardson number at the surface over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
rib_lndbulk_richardson_number_at_lowest_model_level_over_landbulk Richardson number at the surface over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
rib_icebulk_richardson_number_at_lowest_model_level_over_icebulk Richardson number at the surface over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fm_watmonin_obukhov_similarity_function_for_momentum_over_waterMonin-Obukhov similarity function for momentum over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fm_lndmonin_obukhov_similarity_function_for_momentum_over_landMonin-Obukhov similarity function for momentum over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fm_icemonin_obukhov_similarity_function_for_momentum_over_iceMonin-Obukhov similarity function for momentum over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fh_watmonin_obukhov_similarity_function_for_heat_over_waterMonin-Obukhov similarity function for heat over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fh_lndmonin_obukhov_similarity_function_for_heat_over_landMonin-Obukhov similarity function for heat over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fh_icemonin_obukhov_similarity_function_for_heat_over_iceMonin-Obukhov similarity function for heat over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fh2_watmonin_obukhov_similarity_function_for_heat_at_2m_over_waterMonin-Obukhov similarity parameter for heat at 2m over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fh2_lndmonin_obukhov_similarity_function_for_heat_at_2m_over_landMonin-Obukhov similarity parameter for heat at 2m over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fh2_icemonin_obukhov_similarity_function_for_heat_at_2m_over_iceMonin-Obukhov similarity parameter for heat at 2m over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
ch_watsurface_drag_coefficient_for_heat_and_moisture_in_air_over_watersurface exchange coeff heat surface exchange coeff heat & moisture over ocean moisture over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
ch_lndsurface_drag_coefficient_for_heat_and_moisture_in_air_over_landsurface exchange coeff heat & moisture over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
ch_icesurface_drag_coefficient_for_heat_and_moisture_in_air_over_icesurface exchange coeff heat & moisture over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fm10_watmonin_obukhov_similarity_function_for_momentum_at_10m_over_waterMonin-Obukhov similarity parameter for momentum at 10m over waternonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fm10_lndmonin_obukhov_similarity_function_for_momentum_at_10m_over_landMonin-Obukhov similarity parameter for momentum at 10m over landnonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
fm10_icemonin_obukhov_similarity_function_for_momentum_at_10m_over_iceMonin-Obukhov similarity parameter for momentum at 10m over icenonereal(ccpp_constant_one:horizontal_loop_extent)kind_physinout
qss_watsurface_specific_humidity_over_watersurface air saturation specific humidity over waterkg kg-1real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
qss_lndsurface_specific_humidity_over_landsurface air saturation specific humidity over landkg kg-1real(ccpp_constant_one:horizontal_loop_extent)kind_physinout
qss_icesurface_specific_humidity_over_icesurface air saturation specific humidity over icekg kg-1real(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

Definition at line 99 of file gfdl_sfc_layer.F90.

References esat().

Here is the call graph for this function: