casa_npp

INTERFACE:

   subroutine casa_npp(lbp, ubp, num_soilp, filter_soilp)

DESCRIPTION:

Compute NPP from GPP. ------------ code history -------------- casa_npp.f - get NPP from GPP modified for LSM/CASA interface by J.John (2001) ---------------------------------

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 :: p                      ! pft index
     integer :: f                      ! filter index
 
     ! pointers
     real(r8), pointer :: fpsn(:)
     real(r8), pointer :: lgrow(:)     ! growing season index (0 or 1)
     real(r8), pointer :: fnpp(:)      ! NPP (g/m2/sec)

CALLED FROM:

   Casa in CASAMod

REVISION HISTORY:

   2004.06.08 Vectorized and reformatted by Forrest Hoffman