perturbIC

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 none

ARGUMENTS:

     type(landunit_type), intent(INOUT) :: landunit

REVISION HISTORY:

   Created by Erik Kluzek

LOCAL 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)