casa_litterfall

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_nstep

ARGUMENTS:

     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 points

LOCAL 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 CASAMod

REVISION HISTORY:

   2004.06.08 Vectorized and reformatted by Forrest Hoffman