casa_respire

INTERFACE:

   subroutine casa_respire(lbp, ubp, num_soilp, filter_soilp)

DESCRIPTION:

Compute respiration.

------------ code history -------------- respire_BASIC.c - Respiration Sub-model VERSION 1.0

Version 2.1

Created 7-13-99 by Greg Asner Modified for CASA2a on 8-16-00 by Greg Asner Gleaned from CASA2b modified for LSM/CASA interface by J.John (2001)

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

code only executed for soils (ist = 1)

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:

     ! ------------------------ input/output variables -----------------
 
     ! implicit intent in
     !============================================================
 
     real(r8), pointer :: Closs(:,:)   ! C lost to atm
     real(r8), pointer :: Ctrans(:,:)  ! C transfers out of pool types
     real(r8), pointer :: eff(:,:)
     real(r8), pointer :: frac_donor(:,:)
 
     ! implicit intent out
     !============================================================
 
     real(r8), pointer :: Resp_C(:,:)  ! 
     real(r8), pointer :: Tpool_C(:,:) ! Total C pool size
 
     ! ------------------------ local variables -----------------
 
     integer f,l,p,n
     integer irtype,iptype
     integer donor_pool
     integer recvr_pool
     integer donor_type
     integer recvr_type
 
     real(r8) Out

CALLED FROM:

   casa_bgfluxes in CASAMod

REVISION HISTORY:

   2004.06.08 Vectorized and reformatted by Forrest Hoffman