CCPP SciDoc  v6.0.0
Common Community Physics Package Developed at DTC

◆ lsm_ruc_init()

subroutine, public lsm_ruc::lsm_ruc_init ( integer, intent(in)  me,
integer, intent(in)  master,
integer, intent(in)  isot,
integer, intent(in)  ivegsrc,
integer, intent(in)  nlunit,
logical, intent(in)  lsm_cold_start,
logical, intent(in)  flag_init,
real (kind=kind_phys), intent(in)  con_fvirt,
real (kind=kind_phys), intent(in)  con_rd,
integer, intent(in)  im,
integer, intent(in)  lsoil_ruc,
integer, intent(in)  lsoil,
integer, intent(in)  kice,
integer, intent(in)  nlev,
integer, intent(in)  lsm_ruc,
integer, intent(in)  lsm,
real (kind=kind_phys), dimension(:), intent(in)  slmsk,
integer, dimension(:), intent(in)  stype,
integer, dimension(:), intent(in)  vtype,
real (kind=kind_phys), dimension(:), intent(in)  landfrac,
real (kind=kind_phys), dimension(:), intent(in)  q1,
real (kind=kind_phys), dimension(:), intent(in)  prsl1,
real (kind=kind_phys), dimension(:), intent(in)  tsfc_lnd,
real (kind=kind_phys), dimension(:), intent(in)  tsfc_ice,
real (kind=kind_phys), dimension(:), intent(in)  tsfc_wat,
real (kind=kind_phys), dimension(:), intent(in)  tg3,
real (kind=kind_phys), dimension(:,:), intent(in)  smc,
real (kind=kind_phys), dimension(:,:), intent(in)  slc,
real (kind=kind_phys), dimension(:,:), intent(in)  stc,
real (kind=kind_phys), dimension(:), intent(in)  fice,
real (kind=kind_phys), intent(in)  min_seaice,
real (kind=kind_phys), dimension(:), intent(in)  sncovr_lnd,
real (kind=kind_phys), dimension(:), intent(in)  sncovr_ice,
real (kind=kind_phys), dimension(:), intent(in)  snoalb,
real (kind=kind_phys), dimension(:), intent(in)  facsf,
real (kind=kind_phys), dimension(:), intent(in)  facwf,
real (kind=kind_phys), dimension(:), intent(in)  alvsf,
real (kind=kind_phys), dimension(:), intent(in)  alvwf,
real (kind=kind_phys), dimension(:), intent(in)  alnsf,
real (kind=kind_phys), dimension(:), intent(in)  alnwf,
real (kind=kind_phys), dimension(:), intent(inout)  sfcqv_lnd,
real (kind=kind_phys), dimension(:), intent(inout)  sfcqv_ice,
real (kind=kind_phys), dimension(:), intent(inout)  sfalb_lnd_bck,
real (kind=kind_phys), dimension(:), intent(out)  semisbase,
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)  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(inout)  albdvis_ice,
real (kind=kind_phys), dimension(:), intent(inout)  albdnir_ice,
real (kind=kind_phys), dimension(:), intent(inout)  albivis_ice,
real (kind=kind_phys), dimension(:), intent(inout)  albinir_ice,
real (kind=kind_phys), dimension(:), intent(out)  zs,
real (kind=kind_phys), dimension(:,:), intent(inout)  sh2o,
real (kind=kind_phys), dimension(:,:), intent(inout)  smfrkeep,
real (kind=kind_phys), dimension(:,:), intent(inout)  tslb,
real (kind=kind_phys), dimension(:,:), intent(inout)  smois,
real (kind=kind_phys), dimension(:), intent(inout)  wetness,
real (kind=kind_phys), dimension(:,:), intent(inout)  tsice,
real (kind=kind_phys), dimension(:), intent(out)  pores,
real (kind=kind_phys), dimension(:), intent(out)  resid,
character(len=*), intent(out)  errmsg,
integer, intent(out)  errflg 
)

Argument Table

lsm_ruc_init argument table
local_namestandard_namelong_nameunitstypedimensionskindintent
mempi_rankcurrent MPI-rankindexinteger()in
mastermpi_rootmaster MPI-rankindexinteger()in
isotcontrol_for_soil_type_datasetsoil type dataset choiceindexinteger()in
ivegsrccontrol_for_vegetation_datasetland use dataset choiceindexinteger()in
nlunitiounit_of_namelistfortran unit number for file opensnoneinteger()in
lsm_cold_startdo_lsm_cold_startflag to signify LSM is cold-startedflaglogical()in
flag_initflag_for_first_timestepflag signaling first time step for time integration loopflaglogical()in
con_fvirtratio_of_vapor_to_dry_air_gas_constants_minus_onerv/rd - 1 (rv = ideal gas constant for water vapor)nonereal()kind_physin
con_rdgas_constant_of_dry_airideal gas constant for dry airJ kg-1 K-1real()kind_physin
imhorizontal_dimensionhorizontal dimensioncountinteger()in
lsoil_rucvertical_dimension_of_soil_internal_to_land_surface_schemenumber of soil layers internal to land surface modelcountinteger()in
lsoilvertical_dimension_of_soilsoil vertical layer dimensioncountinteger()in
kicevertical_dimension_of_sea_icevertical loop extent for ice levels, start at 1countinteger()in
nlevvertical_layer_dimensionnumber of vertical levelscountinteger()in
lsm_rucidentifier_for_ruc_land_surface_schemeflag for RUC land surface modelflaginteger()in
lsmcontrol_for_land_surface_schemeflag for land surface modelflaginteger()in
slmskarea_typelandmask: sea/land/ice=0/1/2flagreal(ccpp_constant_one:horizontal_dimension)kind_physin
stypesoil_type_classificationsoil type for lsmindexinteger(ccpp_constant_one:horizontal_dimension)in
vtypevegetation_type_classificationvegetation type for lsmindexinteger(ccpp_constant_one:horizontal_dimension)in
landfracland_area_fractionfraction of horizontal grid area occupied by landfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
q1specific_humidity_at_surface_adjacent_layerwater vapor specific humidity at lowest model layerkg kg-1real(ccpp_constant_one:horizontal_dimension)kind_physin
prsl1air_pressure_at_surface_adjacent_layermean pressure at lowest model layerPareal(ccpp_constant_one:horizontal_dimension)kind_physin
tsfc_lndsurface_skin_temperature_over_landsurface skin temperature over landKreal(ccpp_constant_one:horizontal_dimension)kind_physin
tsfc_icesurface_skin_temperature_over_icesurface skin temperature over iceKreal(ccpp_constant_one:horizontal_dimension)kind_physin
tsfc_watsea_surface_temperaturesurface skin temperature over waterKreal(ccpp_constant_one:horizontal_dimension)kind_physin
tg3deep_soil_temperaturedeep soil temperatureKreal(ccpp_constant_one:horizontal_dimension)kind_physin
smcvolume_fraction_of_condensed_water_in_soiltotal soil moisturefracreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil)kind_physin
slcvolume_fraction_of_unfrozen_water_in_soilliquid soil moisturefracreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil)kind_physin
stcsoil_temperaturesoil temperatureKreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil)kind_physin
ficesea_ice_area_fraction_of_sea_area_fractionice fraction over open waterfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
min_seaicemin_sea_ice_area_fractionminimum sea ice valuefracreal()kind_physin
sncovr_lndsurface_snow_area_fraction_over_landsurface snow area fraction over landfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
sncovr_icesurface_snow_area_fraction_over_icesurface snow area fraction over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physin
snoalbupper_bound_of_max_albedo_assuming_deep_snowmaximum snow albedofracreal(ccpp_constant_one:horizontal_dimension)kind_physin
facsfstrong_cosz_area_fractionfractional coverage with strong cosz dependencyfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
facwfweak_cosz_area_fractionfractional coverage with weak cosz dependencyfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
alvsfvis_albedo_strong_coszmean vis albedo with strong cosz dependencyfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
alvwfvis_albedo_weak_coszmean vis albedo with weak cosz dependencyfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
alnsfnir_albedo_strong_coszmean nir albedo with strong cosz dependencyfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
alnwfnir_albedo_weak_coszmean nir albedo with weak cosz dependencyfracreal(ccpp_constant_one:horizontal_dimension)kind_physin
sfcqv_lndwater_vapor_mixing_ratio_at_surface_over_landwater vapor mixing ratio at surface over landkg kg-1real(ccpp_constant_one:horizontal_dimension)kind_physinout
sfcqv_icewater_vapor_mixing_ratio_at_surface_over_icewater vapor mixing ratio at surface over icekg kg-1real(ccpp_constant_one:horizontal_dimension)kind_physinout
sfalb_lnd_bcksurface_snow_free_albedo_over_landsurface snow-free albedo over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
semisbasebaseline_surface_longwave_emissivitybaseline surface lw emissivity in fractionfracreal(ccpp_constant_one:horizontal_dimension)kind_physout
semis_lndsurface_longwave_emissivity_over_landsurface lw emissivity in fraction over landfracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
semis_icesurface_longwave_emissivity_over_icesurface lw emissivity in fraction over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albdvis_lndsurface_albedo_direct_visible_over_landdirect surface albedo visible band over landfracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albdnir_lndsurface_albedo_direct_nir_over_landdirect surface albedo NIR band over landfracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albivis_lndsurface_albedo_diffuse_visible_over_landdiffuse surface albedo visible band over landfracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albinir_lndsurface_albedo_diffuse_nir_over_landdiffuse surface albedo NIR band over landfracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albdvis_icesurface_albedo_direct_visible_over_icedirect surface albedo visible band over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albdnir_icesurface_albedo_direct_nir_over_icedirect surface albedo NIR band over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albivis_icesurface_albedo_diffuse_visible_over_icediffuse surface albedo visible band over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
albinir_icesurface_albedo_diffuse_nir_over_icediffuse surface albedo NIR band over icefracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
zsdepth_of_soil_layersdepth of soil levels for land surface modelmreal(ccpp_constant_one:vertical_dimension_of_soil_internal_to_land_surface_scheme)kind_physout
sh2ovolume_fraction_of_unfrozen_soil_moisture_for_land_surface_modelvolume fraction of unfrozen soil moisture for lsmfracreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil_internal_to_land_surface_scheme)kind_physinout
smfrkeepvolume_fraction_of_frozen_soil_moisture_for_land_surface_modelvolume fraction of frozen soil moisture for lsmfracreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil_internal_to_land_surface_scheme)kind_physinout
tslbsoil_temperature_for_land_surface_modelsoil temperature for land surface modelKreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil_internal_to_land_surface_scheme)kind_physinout
smoisvolume_fraction_of_soil_moisture_for_land_surface_modelvolumetric fraction of soil moisture for lsmfracreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_soil_internal_to_land_surface_scheme)kind_physinout
wetnessnormalized_soil_wetness_for_land_surface_modelnormalized soil wetnessfracreal(ccpp_constant_one:horizontal_dimension)kind_physinout
tsicetemperature_in_ice_layersea ice internal temperatureKreal(ccpp_constant_one:horizontal_dimension, ccpp_constant_one:vertical_dimension_of_sea_ice)kind_physinout
poresmaximum_soil_moisture_content_for_land_surface_modelmaximum soil moisture for a given soil type for land surface modelmreal(ccpp_constant_one:30)kind_physout
residminimum_soil_moisture_content_for_land_surface_modelminimum soil moisture for a given soil type for land surface modelmreal(ccpp_constant_one:30)kind_physout
errmsgccpp_error_messageerror message for error handling in CCPPnonecharacter()len=*out
errflgccpp_error_codeerror code for error handling in CCPP1integer()out
  • Call rucinit() to initialize soil/ice/water variables

References module_soil_pre::init_soil_depth_3(), module_sf_ruclsm::rslf(), rucinit(), and set_soilveg_ruc_mod::set_soilveg_ruc().

Here is the call graph for this function: