initAccClmtype

INTERFACE:

   subroutine initAccClmtype

DESCRIPTION:

Initialize clmtype variables that are associated with time accumulated fields. This routine is called in an initial run at nstep=0 for cam and csm mode. This routine is also always called for a restart run and therefore must be called after the restart file is read in and the accumulated fields are obtained.

USES:

     use shr_kind_mod, only: r8 => shr_kind_r8
     use clmtype
     use decompMod   , only : get_proc_bounds, get_proc_global
     use accumulMod  , only : extract_accum_field
     use clm_time_manager, only : get_nstep
     use clm_varctl  , only : nsrest, nsrStartup
     use clm_varcon  , only : spval

ARGUMENTS:

     implicit none

CALLED FROM:

REVISION HISTORY:

   Created by Mariana Vertenstein

LOCAL VARIABLES:

   local pointers to implicit out arguments
     real(r8), pointer :: t_ref2m_min(:)      ! daily minimum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_max(:)      ! daily maximum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_min_inst(:) ! instantaneous daily min of average 2 m height surface air temp (K)
     real(r8), pointer :: t_ref2m_max_inst(:) ! instantaneous daily max of average 2 m height surface air temp (K)
     real(r8), pointer :: t_ref2m_min_u(:)    ! Urban daily minimum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_min_r(:)    ! Rural daily minimum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_max_u(:)    ! Urban daily maximum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_max_r(:)    ! Rural daily maximum of average 2 m height surface air temperature (K)
     real(r8), pointer :: t_ref2m_min_inst_u(:) ! Urban instantaneous daily min of average 2 m height surface air temp (K)
     real(r8), pointer :: t_ref2m_min_inst_r(:) ! Rural instantaneous daily min of average 2 m height surface air temp (K)
     real(r8), pointer :: t_ref2m_max_inst_u(:) ! Urban instantaneous daily max of average 2 m height surface air temp (K)
     real(r8), pointer :: t_ref2m_max_inst_r(:) ! Rural instantaneous daily max of average 2 m height surface air temp (K)
     real(r8), pointer :: t10(:)              ! 10-day running mean of the 2 m temperature (K)
 #ifdef CNDV
     real(r8), pointer :: t_mo(:)             ! 30-day average temperature (Kelvin)
     real(r8), pointer :: prec365(:)          ! 365-day running mean of tot. precipitation
     real(r8), pointer :: agddtw(:)           ! accumulated growing degree days above twmax
     real(r8), pointer :: agdd(:)             ! accumulated growing degree days above 5
 #endif
     real(r8), pointer :: gdd0(:)             ! growing degree-days base 0C'
     real(r8), pointer :: gdd8(:)             ! growing degree-days base 8C from planting
     real(r8), pointer :: gdd10(:)            ! growing degree-days base 10C from planting
     real(r8), pointer :: gddplant(:)         ! growing degree-days from planting
     real(r8), pointer :: gddtsoi(:)          ! growing degree-days from planting (top two soil layers)
     real(r8), pointer :: a10tmin(:)          ! 10-day running mean of min 2-m temperature
     real(r8), pointer :: a5tmin(:)           ! 5-day running mean of min 2-m temperature
     ! heald (04/06): accumulated variables for VOC emissions
     real(r8), pointer :: t_veg24(:)          ! 24hr average vegetation temperature (K)
     real(r8), pointer :: t_veg240(:)         ! 240hr average vegetation temperature (Kelvin)
     real(r8), pointer :: fsd24(:)            ! 24hr average of direct beam radiation 
     real(r8), pointer :: fsd240(:)           ! 240hr average of direct beam radiation 
     real(r8), pointer :: fsi24(:)            ! 24hr average of diffuse beam radiation 
     real(r8), pointer :: fsi240(:)           ! 240hr average of diffuse beam radiation 
     real(r8), pointer :: fsun24(:)           ! 24hr average of sunlit fraction of canopy 
     real(r8), pointer :: fsun240(:)          ! 240hr average of sunlit fraction of canopy
     real(r8), pointer :: elai_p(:)           ! leaf area index average over timestep

LOCAL VARIABLES:

   !OTHER LOCAL VARIABLES: