Static Ecosystem dynamics: phenology, vegetation.
USES:
use shr_kind_mod, only : r8 => shr_kind_r8 use abortutils, only : endrun use clm_varctl, only : scmlat,scmlon,single_column use clm_varctl, only : iulog use spmdGathScatMod, only : scatter_data_from_master use perf_mod, only : t_startf, t_stopfPUBLIC TYPES:
implicit none savePUBLIC MEMBER FUNCTIONS:
public :: EcosystemDyn ! Ecosystem dynamics: phenology, vegetation public :: EcosystemDynini ! Dynamically allocate memory public :: interpMonthlyVeg ! interpolate monthly vegetation data public :: readAnnualVegetationREVISION HISTORY:
Created by Mariana VertensteinPRIVATE MEMBER FUNCTIONS:
private :: readMonthlyVegetation ! read monthly vegetation data for two monthsPRIVATE TYPES:
integer , private :: InterpMonths1 ! saved month index real(r8), private :: timwt(2) ! time weights for month 1 and month 2 real(r8), private, allocatable :: mlai2t(:,:) ! lai for interpolation (2 months) real(r8), private, allocatable :: msai2t(:,:) ! sai for interpolation (2 months) real(r8), private, allocatable :: mhvt2t(:,:) ! top vegetation height for interpolation (2 months) real(r8), private, allocatable :: mhvb2t(:,:) ! bottom vegetation height for interpolation(2 months)