CNGResp

INTERFACE:

 subroutine CNGResp(num_soilp, filter_soilp)

DESCRIPTION:

On the radiation time step, update all the prognostic carbon state variables

USES:

    use clmtype
    use pftvarcon, only : npcropmin, grperc, grpnow

ARGUMENTS:

    implicit none
    integer, intent(in) :: num_soilp       ! number of soil pfts in filter
    integer, intent(in) :: filter_soilp(:) ! filter for soil pfts

CALLED FROM:

   subroutine CNEcosystemDyn, in module CNEcosystemDynMod.F90

REVISION HISTORY:

   8/1/03: Created by Peter Thornton

LOCAL VARIABLES:

   local pointers to implicit in scalars
    integer , pointer :: ivt(:)                           ! pft vegetation type
    real(r8), pointer :: cpool_to_leafc(:)
    real(r8), pointer :: cpool_to_leafc_storage(:)
    real(r8), pointer :: cpool_to_frootc(:)
    real(r8), pointer :: cpool_to_frootc_storage(:)
    real(r8), pointer :: cpool_to_livestemc(:)
    real(r8), pointer :: cpool_to_livestemc_storage(:)
    real(r8), pointer :: cpool_to_deadstemc(:)
    real(r8), pointer :: cpool_to_deadstemc_storage(:)
    real(r8), pointer :: cpool_to_livecrootc(:)
    real(r8), pointer :: cpool_to_livecrootc_storage(:)
    real(r8), pointer :: cpool_to_deadcrootc(:)           ! allocation to dead coarse root C (gC/m2/s)
    real(r8), pointer :: cpool_to_deadcrootc_storage(:)   ! allocation to dead coarse root C storage (gC/m2/s)
    real(r8), pointer :: cpool_to_grainc(:)               ! allocation to grain C (gC/m2/s)
    real(r8), pointer :: cpool_to_grainc_storage(:)       ! allocation to grain C storage (gC/m2/s)
    real(r8), pointer :: grainc_xfer_to_grainc(:)         ! grain C growth from storage (gC/m2/s)
    real(r8), pointer :: leafc_xfer_to_leafc(:)           ! leaf C growth from storage (gC/m2/s)
    real(r8), pointer :: frootc_xfer_to_frootc(:)         ! fine root C growth from storage (gC/m2/s)
    real(r8), pointer :: livestemc_xfer_to_livestemc(:)   ! live stem C growth from storage (gC/m2/s)
    real(r8), pointer :: deadstemc_xfer_to_deadstemc(:)   ! dead stem C growth from storage (gC/m2/s)
    real(r8), pointer :: livecrootc_xfer_to_livecrootc(:) ! live coarse root C growth from storage (gC/m2/s)
    real(r8), pointer :: deadcrootc_xfer_to_deadcrootc(:) ! dead coarse root C growth from storage (gC/m2/s)
    real(r8), pointer :: woody(:)                         ! binary flag for woody lifeform (1=woody, 0=not woody)
   local pointers to implicit in/out scalars
    real(r8), pointer :: cpool_grain_gr(:)
    real(r8), pointer :: cpool_grain_storage_gr(:)
    real(r8), pointer :: transfer_grain_gr(:)
    real(r8), pointer :: cpool_leaf_gr(:)
    real(r8), pointer :: cpool_leaf_storage_gr(:)
    real(r8), pointer :: transfer_leaf_gr(:)
    real(r8), pointer :: cpool_froot_gr(:)
    real(r8), pointer :: cpool_froot_storage_gr(:)
    real(r8), pointer :: transfer_froot_gr(:)
    real(r8), pointer :: cpool_livestem_gr(:)
    real(r8), pointer :: cpool_livestem_storage_gr(:)
    real(r8), pointer :: transfer_livestem_gr(:)
    real(r8), pointer :: cpool_deadstem_gr(:)
    real(r8), pointer :: cpool_deadstem_storage_gr(:)
    real(r8), pointer :: transfer_deadstem_gr(:)
    real(r8), pointer :: cpool_livecroot_gr(:)
    real(r8), pointer :: cpool_livecroot_storage_gr(:)
    real(r8), pointer :: transfer_livecroot_gr(:)
    real(r8), pointer :: cpool_deadcroot_gr(:)
    real(r8), pointer :: cpool_deadcroot_storage_gr(:)
    real(r8), pointer :: transfer_deadcroot_gr(:)
   local pointers to implicit out scalars
   !OTHER LOCAL VARIABLES:
    integer :: p                ! indices
    integer :: fp               ! lake filter pft index