histCNDV

INTERFACE:

   subroutine histCNDV()

DESCRIPTION:

Create CNDV history file

USES:

     use clmtype
     use decompMod       , only : get_proc_bounds, get_proc_global
     use clm_varpar      , only : lsmlon, lsmlat, maxpatch_pft
     use domainMod       , only : ldomain,llatlon
     use clm_varctl      , only : caseid, ctitle, finidat, fsurdat, fpftcon, &
                                  frivinp_rtm
     use clm_varcon      , only : spval
     use clm_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
     use ncdio_pio

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 (landunit-level)
    integer , pointer :: pgridcell(:)        ! gridcell index of corresponding pft (pft-level)
    integer , pointer :: plandunit(:)        ! landunit index of corresponding pft (pft-level)
    integer , pointer :: mxy(:)              ! pft m index (for laixy(i,j,m),etc.)
    real(r8), pointer :: fpcgrid(:)          ! foliar projective cover on gridcell (fraction)
    real(r8), pointer :: nind(:)             ! number of individuals (#/m**2)