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 clm_time_manager, only: get_step_size

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(:)                 ! (kgC/m2) leaf C
    real(r8), pointer :: frootc(:)                ! (kgC/m2) fine root C
    real(r8), pointer :: cpool_to_leafc(:)
    real(r8), pointer :: cpool_to_frootc(:)
    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(:)
    real(r8), pointer :: frootc_to_litter(:)
    real(r8), pointer :: leafn_to_litter(:)
    real(r8), pointer :: leafn_to_retransn(:)
    real(r8), pointer :: frootn_to_litter(:)
   local pointers to implicit out scalars
   !OTHER LOCAL VARIABLES:
    integer :: p, c         ! indices
    integer :: fp           ! lake filter pft index
    real(r8):: dt           ! radiation time step delta t (seconds)
    real(r8):: t1           ! temporary variable