histDGVM

INTERFACE:

   subroutine histDGVM()

DESCRIPTION:

Create DGVM history file

USES:

     use clmtype
     use ncdio
     use decompMod    , only : get_proc_bounds, get_proc_global
     use clm_varpar   , only : lsmlon, lsmlat, maxpatch_pft
     use clm_varsur   , only : fullgrid, offline_rdgrid, landmask, &
                               longxy, latixy, lsmedge, numlon
     use clm_varctl   , only : caseid, ctitle, finidat, fsurdat, fpftcon, &
                               frivinp_rtm, archive_dir, mss_wpass, mss_irt
     use clm_varcon   , only : spval
     use time_manager , only : get_ref_date, get_nstep, get_curr_date, &
                               get_curr_time
     use fileutils    , only : set_filename, putfil, get_filename
     use shr_sys_mod  , only : shr_sys_getenv
     use spmdMod      , only : masterproc
     use shr_const_mod, only : SHR_CONST_CDAY

ARGUMENTS:

     implicit none

CALLED FROM:

REVISION HISTORY:

   Author: Sam Levis

LOCAL VARIABLES:

   local pointers to implicit in arguments
    logical , pointer :: ifspecial(:)        ! true=>landunit is not vegetated
    integer , pointer :: pgridcell(:)        ! gridcell index of corresponding
    integer , pointer :: plandunit(:)        ! landunit index of corresponding
    integer , pointer :: ivt(:)              ! pft vegetation (pft-level)
    integer , pointer :: mxy(:)              ! pft m index (for laixy(i,j,m),e
    real(r8), pointer :: fpcgrid(:)          ! foliar projective cover on grid
    real(r8), pointer :: lm_ind(:)           ! individual leaf mass
    real(r8), pointer :: sm_ind(:)           ! individual sapwood mass
    real(r8), pointer :: hm_ind(:)           ! individual heartwood mass
    real(r8), pointer :: rm_ind(:)           ! individual root mass
    real(r8), pointer :: nind(:)             ! number of individuals (#/m**2)
    real(r8), pointer :: afirefrac_gcell(:)  ! fraction of gridcell affected b
    real(r8), pointer :: acfluxfire_gcell(:) ! gridcell C flux to atmosphere f
    real(r8), pointer :: bmfm_gcell(:,:)     ! gridcell biomass
    real(r8), pointer :: afmicr_gcell(:,:)   ! gridcell microbial respiration
    real(r8), pointer :: begwater_gcell(:)  ! initial gridcell water balance
    real(r8), pointer :: endwater_gcell(:)  ! final   gridcell water balance
    real(r8), pointer :: begenergy_gcell(:) ! initial gridcell energy balance
    real(r8), pointer :: endenergy_gcell(:) ! final   gridcell energy balance