initCASAPhenology

INTERFACE:

   subroutine initCASAPhenology()

DESCRIPTION:

Initialize CASA vegetation phenology.

USES:

     use clmtype
     use decompMod , only : get_proc_bounds
     use clm_varctl, only : nsrest, nsrStartup

ARGUMENTS:

     implicit none

LOCAL VARIABLES:

     integer , pointer :: ivt(:)       ! pft vegetation type
     real(r8), pointer :: tday(:)      ! daily accumulated temperature (deg C)
     real(r8), pointer :: tdayavg(:)   ! daily averaged temperature (deg C)
     real(r8), pointer :: tcount(:)    ! counter for daily avg temp
     real(r8), pointer :: degday(:)    ! accumulated degree days (deg C) 
     real(r8), pointer :: ndegday(:)   ! counter for number of degree days
     real(r8), pointer :: stressT(:)   ! temperature stress function for leaf
                                       ! loss apply to Litterfall of decid veg
     real(r8), pointer :: stressW(:)   ! water stress function for leaf loss
     real(r8), pointer :: stressCD(:)  ! cold and drought stress function (sec-1)
     real(r8), pointer :: iseabeg(:)   ! index for start of growing season
     real(r8), pointer :: nstepbeg(:)  ! nstep at start of growing season
     real(r8), pointer :: lgrow(:)     ! growing season index (0 or 1) to be 
                                       ! passed daily to CASA to get NPP
     integer p                ! pft index
     integer begp, endp       ! per-proc beginning and ending pft indices
     integer begc, endc       ! per-proc beginning and ending column indices
     integer begl, endl       ! per-proc beginning and ending landunit indices
     integer begg, endg       ! per-proc gridcell ending gridcell indices

CALLED FROM:

   initialize in initializeMod

REVISION HISTORY:

   2004.06.08 Vectorized and reformatted by Forrest Hoffman