INTERFACE:
subroutine CASASummary(lbp, ubp, num_soilp, filter_soilp)DESCRIPTION:
Perform pft carbon summary calculations
USES:
use clm_time_manager, only: get_step_sizeARGUMENTS:
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 pointsCALLED FROM:
subroutine casa_ecocystemDynREVISION HISTORY:
22 Sept 2006: Created by Forrest HoffmanLOCAL 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)