INTERFACE:
subroutine initCASAPhenology()DESCRIPTION:
Initialize CASA vegetation phenology.
USES:
use clmtype use decompMod , only : get_proc_bounds use clm_varctl, only : nsrest, nsrStartupARGUMENTS:
implicit noneLOCAL 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 indicesCALLED FROM:
initialize in initializeModREVISION HISTORY:
2004.06.08 Vectorized and reformatted by Forrest Hoffman