INTERFACE:
subroutine perturbIC( landunit )DESCRIPTION:
Perturbs initial conditions by the amount in the namelist variable pertlim.
USES:
use clm_varpar , only : nlevsoi, nlevgrnd, nlevsno, nlevlak, nlevurb use clm_varctl , only : pertlim use clm_varcon , only : isturb use decompMod , only : get_proc_bounds use clmtype , only : landunit_type implicit noneARGUMENTS:
type(landunit_type), intent(INOUT) :: landunitREVISION HISTORY:
Created by Erik KluzekLOCAL VARIABLES:
integer :: j,l,c ! indices integer :: begc, endc ! per-proc beginning and ending column indices real(r8):: pertval ! for calculating temperature perturbation integer :: nlevs ! number of levels integer , pointer :: clandunit(:) ! landunit index associated with each column integer , pointer :: ltype(:) ! landunit type logical , pointer :: lakpoi(:) ! true => landunit is a lake point integer , pointer :: snl(:) ! number of snow layers real(r8), pointer :: t_soisno(:,:) ! soil temperature (Kelvin) (-nlevsno+1:nlevgrnd) real(r8), pointer :: t_lake(:,:) ! lake temperature (Kelvin) (1:nlevlak) real(r8), pointer :: t_grnd(:) ! ground temperature (Kelvin)