LitterSOM

INTERFACE:

   subroutine LitterSOM (lbp, ubp, num_nolakep, filter_nolakep, kyr)

DESCRIPTION:

   Litter and soil decomposition
   Incorporates analytical solution for soil pool sizes
   once litter inputs are (assumed to be) at equilibrium,
   reducing spin-up time for carbon fluxes due to soil respiration.

USES:

     use clmtype
     use time_manager , only : get_step_size
     use shr_const_mod, only : SHR_CONST_CDAY, SHR_CONST_TKFRZ

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbp, ubp                    ! pft bounds
     integer, intent(in) :: num_nolakep                 ! number of column non
     integer, intent(in) :: filter_nolakep(ubp-lbp+1)   ! pft filter for non-l
     integer, intent(in) :: kyr                         ! year (0, ...) for ns

CALLED FROM:

REVISION HISTORY:

   Author: Sam Levis (adapted from Stephen Sitch's LPJ subroutine littersom)
   2/1/02, Peter Thornton: Migrate to new data structures

LOCAL VARIABLES:

   local pointers to  implicit in arguments
     integer , pointer :: pcolumn(:)          ! column index for corresponding
     real(r8), pointer :: wf(:)               ! soil water as frac. of whc for
     real(r8), pointer :: tsoi25(:)           ! soil temperature to 0.25 m (Ke
   local pointers to  implicit in/out arguments
     real(r8), pointer :: litterag(:)         ! above ground litter
     real(r8), pointer :: litterbg(:)         ! below ground litter
     real(r8), pointer :: cpool_fast(:)       ! fast carbon pool
     real(r8), pointer :: cpool_slow(:)       ! slow carbon pool
     real(r8), pointer :: k_fast_ave(:)       ! decomposition rate
     real(r8), pointer :: k_slow_ave(:)       ! decomposition rate
     real(r8), pointer :: litter_decom_ave(:) ! decomposition rate
   local pointers to  implicit out arguments
     real(r8), pointer :: fmicr(:)            ! microbial respiration (umol CO