INTERFACE:
subroutine initAccClmtypeDESCRIPTION:
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 : spvalARGUMENTS:
implicit noneCALLED FROM:
REVISION HISTORY:
Created by Mariana VertensteinLOCAL 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 timestepLOCAL VARIABLES:
!OTHER LOCAL VARIABLES: