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 boundsLOCAL 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 CASAModREVISION HISTORY:
2004.06.08 Vectorized and reformatted by Forrest Hoffman