CASASummary

INTERFACE:

 subroutine CASASummary(lbp, ubp, num_soilp, filter_soilp)

DESCRIPTION:

Perform pft carbon summary calculations

USES:

    use clm_time_manager, only: get_step_size

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

CALLED FROM:

   subroutine casa_ecocystemDyn

REVISION HISTORY:

   22 Sept 2006: Created by Forrest Hoffman

LOCAL VARIABLES:

   local pointers to implicit in scalars
    real(r8), pointer :: fpsn(:)              !photosynthesis (umol CO2 /m**2 /s)
    real(r8), pointer :: Tpool_C(:,:)         ! Total C by pool
    real(r8), pointer :: Resp_C(:,:)          ! Respired C by pool
    real(r8), pointer :: Closs(:,:)           ! Lost C by pool
    real(r8), pointer :: Ctrans(:,:)          ! Transferred C by pool type
    real(r8), pointer :: Cflux(:)             ! C flux
    real(r8), pointer :: livefr(:,:)          ! Live fraction
    real(r8), pointer :: fnpp(:)              ! NPP (gC/m2/sec)
    real(r8), pointer :: co2flux(:)           ! net CO2 flux (gC/m2/s) [+= atm]
   local pointers to implicit in/out scalars
   local pointers to implicit out scalars
    real(r8), pointer :: casa_agnpp(:)        ! above-ground net primary production [gC/m2/s]
    real(r8), pointer :: casa_ar(:)           ! autotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_bgnpp(:)        ! below-ground net primary production [gC/m2/s]
    real(r8), pointer :: casa_cwdc(:)         ! coarse woody debris C [gC/m2]
    real(r8), pointer :: casa_cwdc_hr(:)      ! cwd heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_cwdc_loss(:)    ! cwd C loss [gC/m2/s]
    real(r8), pointer :: casa_frootc(:)       ! fine root C [gC/m2]
    real(r8), pointer :: casa_frootc_alloc(:) ! fine root C allocation [gC/m2/s]
    real(r8), pointer :: casa_frootc_loss(:)  ! fine root C loss [gC/m2/s]
    real(r8), pointer :: casa_gpp(:)          ! gross primary production [gC/m2/s]
    real(r8), pointer :: casa_hr(:)           ! total heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_leafc(:)        ! leaf C [gC/m2]
    real(r8), pointer :: casa_leafc_alloc(:)  ! leaf C allocation [gC/m2/s]
    real(r8), pointer :: casa_leafc_loss(:)   ! leaf C loss [gC/m2/s]
    real(r8), pointer :: casa_litterc(:)      ! total litter C (excluding cwd C) [gC/m2]
    real(r8), pointer :: casa_litterc_hr(:)   ! litter heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_litterc_loss(:) ! litter C loss [gC/m2/s]
    real(r8), pointer :: casa_nee(:)          ! net ecosystem exchange [gC/m2/s]
    real(r8), pointer :: casa_nep(:)          ! net ecosystem production [gC/m2/s]
    real(r8), pointer :: casa_npp(:)          ! net primary production [gC/m2/s]
    real(r8), pointer :: casa_soilc(:)        ! total soil organic matter C (excluding cwd and litter C) [gC/m2]
    real(r8), pointer :: casa_soilc_hr(:)     ! soil heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_soilc_loss(:)   ! total soil organic matter C loss [gC/m2/s]
    real(r8), pointer :: casa_woodc(:)        ! wood C [gC/m2]
    real(r8), pointer :: casa_woodc_alloc(:)  ! wood C allocation [gC/m2/s]
    real(r8), pointer :: casa_woodc_loss(:)   ! wood C loss [gC/m2/s]
   !OTHER LOCAL VARIABLES:
    integer :: f,p          ! indices
    real(r8):: dtime        ! land model time step (sec)