INTERFACE:
subroutine casa_litterfall(lbp, ubp, num_soilp, filter_soilp)DESCRIPTION:
Compute dynamic litter fall.
------------ code history -------------- litterfall_BASIC.c - Litterfall Spin-up Sub-model VERSION 1.0
Version 2.1
Implemented by: 4-22-99 Greg Asner Dynamic litterfall by Jim Randerson modified for LSM/CASA interface by J.John (2001)
---------------------------------
This routine is used to determine the timing of litterfall code only executed for soils (ist = 1)
USES:
use clm_time_manager , only : get_step_size, get_nstepARGUMENTS:
implicit none integer, intent(in) :: lbp, ubp ! pft bounds integer, intent(in) :: num_soilp ! number of soil points in pft filter integer, intent(in) :: filter_soilp(ubp-lbp+1) ! pft filter for soil pointsLOCAL VARIABLES:
integer f,l,p,n integer nstep real(r8) dtime !land model time step (sec) ! ------------------------ input/output variables ----------------- ! inputs: integer , pointer :: ivt(:) !pft vegetation type real(r8), pointer :: stressCD(:) ! cold and drought stress function (sec-1) ! add to "annK(m,LEAF)" and "annK(m,FROOT)" ! in casa_litterfall.F real(r8), pointer :: excessC(:) ! excess Carbon (gC/m2/timestep) real(r8), pointer :: Closs(:,:) ! C lost to atm real(r8), pointer :: Tpool_C(:,:) ! Total C pool size real(r8), pointer :: litterscalar(:) real(r8), pointer :: rootlitscalar(:)CALLED FROM:
casa_bgfluxes in CASAModREVISION HISTORY:
2004.06.08 Vectorized and reformatted by Forrest Hoffman