USES:
use spmdMod use clmtype use decompMod , only : get_proc_bounds use clm_varsur , only : pctspec use clm_varpar , only : max_pft_per_col use clm_varctl , only : iulog use shr_sys_mod , only : shr_sys_flush use shr_kind_mod, only : r8 => shr_kind_r8 use abortutils , only : endrun use ncdio_pioDESCRIPTION:
Determine pft weights at current time using dynamic landuse datasets. ASSUMES that only have one dynamic landuse dataset.
PUBLIC TYPES:
implicit none private save public :: pftdyn_init public :: pftdyn_interp public :: pftdyn_wbal_init public :: pftdyn_wbal #ifdef CN public :: pftdyn_cnbal #ifdef CNDV public :: pftwt_init public :: pftwt_interp #endif public :: CNHarvest public :: CNHarvestPftToColumn #endifREVISION HISTORY:
Created by Peter Thornton slevis modified to handle CNDV and crop model 19 May 2009: PET - modified to handle harvest fluxes