INTERFACE:
subroutine dv(lbg, ubg, lbp, ubp, num_natvegp, filter_natvegp, kyr)DESCRIPTION:
Drives the annual dynamic vegetation that works with CN
USES:
use clmtype use CNDVLightMod , only : Light use CNDVEstablishmentMod, only : EstablishmentARGUMENTS:
implicit none integer, intent(in) :: lbg, ubg ! gridcell bounds integer, intent(in) :: lbp, ubp ! pft bounds integer, intent(inout) :: num_natvegp ! number of naturally-vegetated ! pfts in filter integer, intent(inout) :: filter_natvegp(ubp-lbp+1) ! filter for ! naturally-vegetated pfts integer, intent(in) :: kyr ! used in routine climate20 belowCALLED FROM:
REVISION HISTORY:
Author: Sam LevisLOCAL VARIABLES:
local pointers to implicit in arguments integer , pointer :: mxy(:) ! pft m index (for laixy(i,j,m),etc.) integer , pointer :: pgridcell(:) ! gridcell of corresponding pft real(r8), pointer :: fpcgrid(:) ! foliar projective cover on gridcell (fraction) real(r8), pointer :: agdd(:) ! accumulated growing degree days above 5 real(r8), pointer :: t_mo_min(:) ! annual min of t_mo (Kelvin) local pointers to implicit inout arguments real(r8), pointer :: tmomin20(:) ! 20-yr running mean of tmomin real(r8), pointer :: agdd20(:) ! 20-yr running mean of agdd