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 pointsLOCAL 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) OutCALLED FROM:
casa_bgfluxes in CASAModREVISION HISTORY:
2004.06.08 Vectorized and reformatted by Forrest Hoffman