INTERFACE:
subroutine clm_driverInit(lbc, ubc, lbp, ubp, & num_nolakec, filter_nolakec, num_lakec, filter_lakec)DESCRIPTION:
Initialization of clm driver variables needed from previous timestep
USES:
use shr_kind_mod , only : r8 => shr_kind_r8 use clmtype use clm_varpar , only : nlevsno use subgridAveMod, only : p2c use clm_varcon, only : h2osno_max, rair, cpair, grav, istice_mec, lapse_glcmec use clm_atmlnd, only : clm_a2l use domainMod, only : ldomain use clmtype use QsatMod, only : QsatARGUMENTS:
implicit none integer, intent(in) :: lbc, ubc ! column-index bounds integer, intent(in) :: lbp, ubp ! pft-index bounds integer, intent(in) :: num_nolakec ! number of column non-lake points in column filter integer, intent(in) :: filter_nolakec(ubc-lbc+1) ! column filter for non-lake points integer, intent(in) :: num_lakec ! number of column non-lake points in column filter integer, intent(in) :: filter_lakec(ubc-lbc+1) ! column filter for non-lake pointsCALLED FROM:
subroutine driver1REVISION HISTORY:
Created by Mariana VertensteinLOCAL VARIABLES:
local pointers to original implicit in variables real(r8), pointer :: pwtgcell(:) ! weight of pft wrt corresponding gridcell integer , pointer :: snl(:) ! number of snow layers real(r8), pointer :: h2osno(:) ! snow water (mm H2O) integer , pointer :: frac_veg_nosno_alb(:) ! fraction of vegetation not covered by snow (0 OR 1) [-] integer , pointer :: frac_veg_nosno(:) ! fraction of vegetation not covered by snow (0 OR 1 now) [-] (pft-level) real(r8), pointer :: h2osoi_ice(:,:) ! ice lens (kg/m2) real(r8), pointer :: h2osoi_liq(:,:) ! liquid water (kg/m2) local pointers to original implicit out variables logical , pointer :: do_capsnow(:) ! true => do snow capping real(r8), pointer :: h2osno_old(:) ! snow water (mm H2O) at previous time step real(r8), pointer :: frac_iceold(:,:) ! fraction of ice relative to the tot water !OTHER LOCAL VARIABLES: