Fortran: Module Interface STATICEcosysDynMod (Source File: STATICEcosysDynMod.F90)

Static Ecosystem dynamics: phenology, vegetation. This is for the CLM Satelitte Phenology model (CLMSP). Allow some subroutines to be used by the CLM Carbon Nitrogen model (CLMCN) so that DryDeposition code can get estimates of LAI differences between months.

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 perf_mod,        only : t_startf, t_stopf
   use spmdMod,         only : masterproc
   use ncdio_pio

PUBLIC TYPES:

   implicit none
   save

PUBLIC MEMBER FUNCTIONS:

 #if (!defined CN) && (!defined CNDV)
   public :: EcosystemDyn         ! CLMSP Ecosystem dynamics: phenology, vegetation
 #endif
   public :: EcosystemDynini      ! Dynamically allocate memory
   public :: interpMonthlyVeg     ! interpolate monthly vegetation data
   public :: readAnnualVegetation ! Read in annual vegetation (needed for Dry-deposition)

REVISION HISTORY:

   Created by Mariana Vertenstein

PRIVATE MEMBER FUNCTIONS:

   private :: readMonthlyVegetation   ! read monthly vegetation data for two months

PRIVATE 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)