CNOffsetLitterfall

INTERFACE:

 subroutine CNOffsetLitterfall (num_soilp, filter_soilp)

DESCRIPTION:

Determines the flux of C and N from displayed pools to litter pools during the phenological offset period.

USES:

    use pftvarcon       , only: npcropmin

ARGUMENTS:

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

CALLED FROM:

   subroutine CNPhenology

REVISION HISTORY:

   10/27/03: Created by Peter Thornton

LOCAL VARIABLES:

   local pointers to implicit in scalars
    integer , pointer :: ivt(:)                   ! pft vegetation type
    real(r8), pointer :: offset_flag(:)           ! offset flag
    real(r8), pointer :: offset_counter(:)        ! offset days counter
    real(r8), pointer :: leafc(:)                 ! (gC/m2) leaf C
    real(r8), pointer :: frootc(:)                ! (gC/m2) fine root C
    real(r8), pointer :: cpool_to_leafc(:)        ! allocation to leaf C (gC/m2/s)
    real(r8), pointer :: cpool_to_frootc(:)       ! allocation to fine root C (gC/m2/s)
    integer , pointer :: pcolumn(:)               ! pft's column index
    real(r8), pointer :: grainc(:)                ! (gC/m2) grain C
    real(r8), pointer :: livestemc(:)             ! (gC/m2) livestem C
    real(r8), pointer :: cpool_to_grainc(:)       ! allocation to grain C (gC/m2/s)
    real(r8), pointer :: cpool_to_livestemc(:)    ! allocation to live stem C (gC/m2/s)
    real(r8), pointer :: livewdcn(:)              ! live wood C:N (gC/gN)
    real(r8), pointer :: graincn(:)               ! grain C:N (gC/gN)
    real(r8), pointer :: leafcn(:)                ! leaf C:N (gC/gN)
    real(r8), pointer :: lflitcn(:)               ! leaf litter C:N (gC/gN)
    real(r8), pointer :: frootcn(:)               ! fine root C:N (gC/gN)
   local pointers to implicit in/out scalars
    real(r8), pointer :: prev_leafc_to_litter(:)  ! previous timestep leaf C litterfall flux (gC/m2/s)
    real(r8), pointer :: prev_frootc_to_litter(:) ! previous timestep froot C litterfall flux (gC/m2/s)
    real(r8), pointer :: leafc_to_litter(:)       ! leaf C litterfall (gC/m2/s)
    real(r8), pointer :: frootc_to_litter(:)      ! fine root C litterfall (gC/m2/s)
    real(r8), pointer :: leafn_to_litter(:)       ! leaf N litterfall (gN/m2/s)
    real(r8), pointer :: leafn_to_retransn(:)     ! leaf N to retranslocated N pool (gN/m2/s)
    real(r8), pointer :: frootn_to_litter(:)      ! fine root N litterfall (gN/m2/s)
    real(r8), pointer :: livestemc_to_litter(:)   ! live stem C litterfall (gC/m2/s)
    real(r8), pointer :: grainc_to_food(:)        ! grain C to food (gC/m2/s)
    real(r8), pointer :: livestemn_to_litter(:)   ! livestem N to litter (gN/m2/s)
    real(r8), pointer :: grainn_to_food(:)        ! grain N to food (gN/m2/s)
   local pointers to implicit out scalars
   !OTHER LOCAL VARIABLES:
    integer :: p, c         ! indices
    integer :: fp           ! lake filter pft index
    real(r8):: t1           ! temporary variable