casa_litscl

INTERFACE:

   subroutine casa_litscl(lbp, ubp)

DESCRIPTION:

Compute litter fall scalars

------------ code history -------------- casa_litscl.F - Litterfall scalars modified for LSM/CASA interface by J.John (2001)

--------------------------------- Notes:

These need to be changed (dependent on monthly LAI)

code only executed for soils (ist = 1)

---------------------------------

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbp, ubp                    ! pft bounds

LOCAL VARIABLES:

     integer  l,p
 
     ! ------------------------ input/output variables -----------------
     !  inputs:  
 
     integer , pointer :: ltype(:)     ! landunit type for corresponding pft
     integer , pointer :: plandunit(:) ! landunit index associated with each pft
     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