#include <misc.h>
#include <preproc.h>
module CNGapMortalityMod 1,1
#ifdef CN
!-----------------------------------------------------------------------
!BOP
!
! !MODULE: CNGapMortalityMod
!
! !DESCRIPTION:
! Module holding routines used in gap mortality for coupled carbon
! nitrogen code.
!
! !USES:
use shr_kind_mod, only: r8 => shr_kind_r8
implicit none
save
private
! !PUBLIC MEMBER FUNCTIONS:
public :: CNGapMortality
!
! !REVISION HISTORY:
! 3/29/04: Created by Peter Thornton
!
!EOP
!-----------------------------------------------------------------------
contains
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: CNGapMortality
!
! !INTERFACE:
subroutine CNGapMortality (num_soilc, filter_soilc, num_soilp, filter_soilp) 1,4
!
! !DESCRIPTION:
! Gap-phase mortality routine for coupled carbon-nitrogen code (CN)
!
! !USES:
use clmtype
use clm_time_manager, only: get_days_per_year
!
! !ARGUMENTS:
implicit none
integer, intent(in) :: num_soilc ! number of soil columns in filter
integer, intent(in) :: filter_soilc(:) ! column filter for soil points
integer, intent(in) :: num_soilp ! number of soil pfts in filter
integer, intent(in) :: filter_soilp(:) ! pft filter for soil points
!
! !CALLED FROM:
! subroutine CNEcosystemDyn
!
! !REVISION HISTORY:
! 3/29/04: Created by Peter Thornton
!
! !LOCAL VARIABLES:
!
! local pointers to implicit in arrays
integer , pointer :: ivt(:) ! pft vegetation type
real(r8), pointer :: woody(:) ! binary flag for woody lifeform
! (1=woody, 0=not woody)
real(r8), pointer :: leafc(:) ! (gC/m2) leaf C
real(r8), pointer :: frootc(:) ! (gC/m2) fine root C
real(r8), pointer :: livestemc(:) ! (gC/m2) live stem C
real(r8), pointer :: deadstemc(:) ! (gC/m2) dead stem C
real(r8), pointer :: livecrootc(:) ! (gC/m2) live coarse root C
real(r8), pointer :: deadcrootc(:) ! (gC/m2) dead coarse root C
real(r8), pointer :: leafc_storage(:) ! (gC/m2) leaf C storage
real(r8), pointer :: frootc_storage(:) ! (gC/m2) fine root C storage
real(r8), pointer :: livestemc_storage(:) ! (gC/m2) live stem C storage
real(r8), pointer :: deadstemc_storage(:) ! (gC/m2) dead stem C storage
real(r8), pointer :: livecrootc_storage(:) ! (gC/m2) live coarse root C storage
real(r8), pointer :: deadcrootc_storage(:) ! (gC/m2) dead coarse root C storage
real(r8), pointer :: gresp_storage(:) ! (gC/m2) growth respiration storage
real(r8), pointer :: leafc_xfer(:) ! (gC/m2) leaf C transfer
real(r8), pointer :: frootc_xfer(:) ! (gC/m2) fine root C transfer
real(r8), pointer :: livestemc_xfer(:) ! (gC/m2) live stem C transfer
real(r8), pointer :: deadstemc_xfer(:) ! (gC/m2) dead stem C transfer
real(r8), pointer :: livecrootc_xfer(:) ! (gC/m2) live coarse root C transfer
real(r8), pointer :: deadcrootc_xfer(:) ! (gC/m2) dead coarse root C transfer
real(r8), pointer :: gresp_xfer(:) ! (gC/m2) growth respiration transfer
real(r8), pointer :: leafn(:) ! (gN/m2) leaf N
real(r8), pointer :: frootn(:) ! (gN/m2) fine root N
real(r8), pointer :: livestemn(:) ! (gN/m2) live stem N
real(r8), pointer :: deadstemn(:) ! (gN/m2) dead stem N
real(r8), pointer :: livecrootn(:) ! (gN/m2) live coarse root N
real(r8), pointer :: deadcrootn(:) ! (gN/m2) dead coarse root N
real(r8), pointer :: retransn(:) ! (gN/m2) plant pool of retranslocated N
real(r8), pointer :: leafn_storage(:) ! (gN/m2) leaf N storage
real(r8), pointer :: frootn_storage(:) ! (gN/m2) fine root N storage
real(r8), pointer :: livestemn_storage(:) ! (gN/m2) live stem N storage
real(r8), pointer :: deadstemn_storage(:) ! (gN/m2) dead stem N storage
real(r8), pointer :: livecrootn_storage(:) ! (gN/m2) live coarse root N storage
real(r8), pointer :: deadcrootn_storage(:) ! (gN/m2) dead coarse root N storage
real(r8), pointer :: leafn_xfer(:) ! (gN/m2) leaf N transfer
real(r8), pointer :: frootn_xfer(:) ! (gN/m2) fine root N transfer
real(r8), pointer :: livestemn_xfer(:) ! (gN/m2) live stem N transfer
real(r8), pointer :: deadstemn_xfer(:) ! (gN/m2) dead stem N transfer
real(r8), pointer :: livecrootn_xfer(:) ! (gN/m2) live coarse root N transfer
real(r8), pointer :: deadcrootn_xfer(:) ! (gN/m2) dead coarse root N transfer
#if (defined CNDV)
real(r8), pointer :: greffic(:)
real(r8), pointer :: heatstress(:)
#endif
!
! local pointers to implicit in/out arrays
!
! local pointers to implicit out arrays
real(r8), pointer :: m_leafc_to_litter(:)
real(r8), pointer :: m_frootc_to_litter(:)
real(r8), pointer :: m_livestemc_to_litter(:)
real(r8), pointer :: m_deadstemc_to_litter(:)
real(r8), pointer :: m_livecrootc_to_litter(:)
real(r8), pointer :: m_deadcrootc_to_litter(:)
real(r8), pointer :: m_leafc_storage_to_litter(:)
real(r8), pointer :: m_frootc_storage_to_litter(:)
real(r8), pointer :: m_livestemc_storage_to_litter(:)
real(r8), pointer :: m_deadstemc_storage_to_litter(:)
real(r8), pointer :: m_livecrootc_storage_to_litter(:)
real(r8), pointer :: m_deadcrootc_storage_to_litter(:)
real(r8), pointer :: m_gresp_storage_to_litter(:)
real(r8), pointer :: m_leafc_xfer_to_litter(:)
real(r8), pointer :: m_frootc_xfer_to_litter(:)
real(r8), pointer :: m_livestemc_xfer_to_litter(:)
real(r8), pointer :: m_deadstemc_xfer_to_litter(:)
real(r8), pointer :: m_livecrootc_xfer_to_litter(:)
real(r8), pointer :: m_deadcrootc_xfer_to_litter(:)
real(r8), pointer :: m_gresp_xfer_to_litter(:)
real(r8), pointer :: m_leafn_to_litter(:)
real(r8), pointer :: m_frootn_to_litter(:)
real(r8), pointer :: m_livestemn_to_litter(:)
real(r8), pointer :: m_deadstemn_to_litter(:)
real(r8), pointer :: m_livecrootn_to_litter(:)
real(r8), pointer :: m_deadcrootn_to_litter(:)
real(r8), pointer :: m_retransn_to_litter(:)
real(r8), pointer :: m_leafn_storage_to_litter(:)
real(r8), pointer :: m_frootn_storage_to_litter(:)
real(r8), pointer :: m_livestemn_storage_to_litter(:)
real(r8), pointer :: m_deadstemn_storage_to_litter(:)
real(r8), pointer :: m_livecrootn_storage_to_litter(:)
real(r8), pointer :: m_deadcrootn_storage_to_litter(:)
real(r8), pointer :: m_leafn_xfer_to_litter(:)
real(r8), pointer :: m_frootn_xfer_to_litter(:)
real(r8), pointer :: m_livestemn_xfer_to_litter(:)
real(r8), pointer :: m_deadstemn_xfer_to_litter(:)
real(r8), pointer :: m_livecrootn_xfer_to_litter(:)
real(r8), pointer :: m_deadcrootn_xfer_to_litter(:)
!
! !OTHER LOCAL VARIABLES:
integer :: p ! pft index
integer :: fp ! pft filter index
real(r8):: am ! rate for fractional mortality (1/yr)
real(r8):: m ! rate for fractional mortality (1/s)
real(r8):: mort_max ! asymptotic max mortality rate (/yr)
real(r8), parameter :: k_mort = 0.3 !coeff of growth efficiency in mortality equation
!EOP
!-----------------------------------------------------------------------
! assign local pointers
woody => pftcon%woody
! assign local pointers to pft-level arrays
ivt => clm3%g%l%c%p%itype
leafc => clm3%g%l%c%p%pcs%leafc
frootc => clm3%g%l%c%p%pcs%frootc
livestemc => clm3%g%l%c%p%pcs%livestemc
deadstemc => clm3%g%l%c%p%pcs%deadstemc
livecrootc => clm3%g%l%c%p%pcs%livecrootc
deadcrootc => clm3%g%l%c%p%pcs%deadcrootc
leafc_storage => clm3%g%l%c%p%pcs%leafc_storage
frootc_storage => clm3%g%l%c%p%pcs%frootc_storage
livestemc_storage => clm3%g%l%c%p%pcs%livestemc_storage
deadstemc_storage => clm3%g%l%c%p%pcs%deadstemc_storage
livecrootc_storage => clm3%g%l%c%p%pcs%livecrootc_storage
deadcrootc_storage => clm3%g%l%c%p%pcs%deadcrootc_storage
gresp_storage => clm3%g%l%c%p%pcs%gresp_storage
leafc_xfer => clm3%g%l%c%p%pcs%leafc_xfer
frootc_xfer => clm3%g%l%c%p%pcs%frootc_xfer
livestemc_xfer => clm3%g%l%c%p%pcs%livestemc_xfer
deadstemc_xfer => clm3%g%l%c%p%pcs%deadstemc_xfer
livecrootc_xfer => clm3%g%l%c%p%pcs%livecrootc_xfer
deadcrootc_xfer => clm3%g%l%c%p%pcs%deadcrootc_xfer
gresp_xfer => clm3%g%l%c%p%pcs%gresp_xfer
leafn => clm3%g%l%c%p%pns%leafn
frootn => clm3%g%l%c%p%pns%frootn
livestemn => clm3%g%l%c%p%pns%livestemn
deadstemn => clm3%g%l%c%p%pns%deadstemn
livecrootn => clm3%g%l%c%p%pns%livecrootn
deadcrootn => clm3%g%l%c%p%pns%deadcrootn
retransn => clm3%g%l%c%p%pns%retransn
leafn_storage => clm3%g%l%c%p%pns%leafn_storage
frootn_storage => clm3%g%l%c%p%pns%frootn_storage
livestemn_storage => clm3%g%l%c%p%pns%livestemn_storage
deadstemn_storage => clm3%g%l%c%p%pns%deadstemn_storage
livecrootn_storage => clm3%g%l%c%p%pns%livecrootn_storage
deadcrootn_storage => clm3%g%l%c%p%pns%deadcrootn_storage
leafn_xfer => clm3%g%l%c%p%pns%leafn_xfer
frootn_xfer => clm3%g%l%c%p%pns%frootn_xfer
livestemn_xfer => clm3%g%l%c%p%pns%livestemn_xfer
deadstemn_xfer => clm3%g%l%c%p%pns%deadstemn_xfer
livecrootn_xfer => clm3%g%l%c%p%pns%livecrootn_xfer
deadcrootn_xfer => clm3%g%l%c%p%pns%deadcrootn_xfer
m_leafc_to_litter => clm3%g%l%c%p%pcf%m_leafc_to_litter
m_frootc_to_litter => clm3%g%l%c%p%pcf%m_frootc_to_litter
m_livestemc_to_litter => clm3%g%l%c%p%pcf%m_livestemc_to_litter
m_deadstemc_to_litter => clm3%g%l%c%p%pcf%m_deadstemc_to_litter
m_livecrootc_to_litter => clm3%g%l%c%p%pcf%m_livecrootc_to_litter
m_deadcrootc_to_litter => clm3%g%l%c%p%pcf%m_deadcrootc_to_litter
m_leafc_storage_to_litter => clm3%g%l%c%p%pcf%m_leafc_storage_to_litter
m_frootc_storage_to_litter => clm3%g%l%c%p%pcf%m_frootc_storage_to_litter
m_livestemc_storage_to_litter => clm3%g%l%c%p%pcf%m_livestemc_storage_to_litter
m_deadstemc_storage_to_litter => clm3%g%l%c%p%pcf%m_deadstemc_storage_to_litter
m_livecrootc_storage_to_litter => clm3%g%l%c%p%pcf%m_livecrootc_storage_to_litter
m_deadcrootc_storage_to_litter => clm3%g%l%c%p%pcf%m_deadcrootc_storage_to_litter
m_gresp_storage_to_litter => clm3%g%l%c%p%pcf%m_gresp_storage_to_litter
m_leafc_xfer_to_litter => clm3%g%l%c%p%pcf%m_leafc_xfer_to_litter
m_frootc_xfer_to_litter => clm3%g%l%c%p%pcf%m_frootc_xfer_to_litter
m_livestemc_xfer_to_litter => clm3%g%l%c%p%pcf%m_livestemc_xfer_to_litter
m_deadstemc_xfer_to_litter => clm3%g%l%c%p%pcf%m_deadstemc_xfer_to_litter
m_livecrootc_xfer_to_litter => clm3%g%l%c%p%pcf%m_livecrootc_xfer_to_litter
m_deadcrootc_xfer_to_litter => clm3%g%l%c%p%pcf%m_deadcrootc_xfer_to_litter
m_gresp_xfer_to_litter => clm3%g%l%c%p%pcf%m_gresp_xfer_to_litter
m_leafn_to_litter => clm3%g%l%c%p%pnf%m_leafn_to_litter
m_frootn_to_litter => clm3%g%l%c%p%pnf%m_frootn_to_litter
m_livestemn_to_litter => clm3%g%l%c%p%pnf%m_livestemn_to_litter
m_deadstemn_to_litter => clm3%g%l%c%p%pnf%m_deadstemn_to_litter
m_livecrootn_to_litter => clm3%g%l%c%p%pnf%m_livecrootn_to_litter
m_deadcrootn_to_litter => clm3%g%l%c%p%pnf%m_deadcrootn_to_litter
m_retransn_to_litter => clm3%g%l%c%p%pnf%m_retransn_to_litter
m_leafn_storage_to_litter => clm3%g%l%c%p%pnf%m_leafn_storage_to_litter
m_frootn_storage_to_litter => clm3%g%l%c%p%pnf%m_frootn_storage_to_litter
m_livestemn_storage_to_litter => clm3%g%l%c%p%pnf%m_livestemn_storage_to_litter
m_deadstemn_storage_to_litter => clm3%g%l%c%p%pnf%m_deadstemn_storage_to_litter
m_livecrootn_storage_to_litter => clm3%g%l%c%p%pnf%m_livecrootn_storage_to_litter
m_deadcrootn_storage_to_litter => clm3%g%l%c%p%pnf%m_deadcrootn_storage_to_litter
m_leafn_xfer_to_litter => clm3%g%l%c%p%pnf%m_leafn_xfer_to_litter
m_frootn_xfer_to_litter => clm3%g%l%c%p%pnf%m_frootn_xfer_to_litter
m_livestemn_xfer_to_litter => clm3%g%l%c%p%pnf%m_livestemn_xfer_to_litter
m_deadstemn_xfer_to_litter => clm3%g%l%c%p%pnf%m_deadstemn_xfer_to_litter
m_livecrootn_xfer_to_litter => clm3%g%l%c%p%pnf%m_livecrootn_xfer_to_litter
m_deadcrootn_xfer_to_litter => clm3%g%l%c%p%pnf%m_deadcrootn_xfer_to_litter
#if (defined CNDV)
greffic => clm3%g%l%c%p%pdgvs%greffic
heatstress => clm3%g%l%c%p%pdgvs%heatstress
#endif
! set the mortality rate based on annual rate
am = 0.02_r8
! pft loop
do fp = 1,num_soilp
p = filter_soilp(fp)
#if (defined CNDV)
! Stress mortality from lpj's subr Mortality.
if (woody(ivt(p)) == 1._r8) then
if (ivt(p) == 8) then
mort_max = 0.03_r8 ! BDT boreal
else
mort_max = 0.01_r8 ! original value for all pfts
end if
! heatstress and greffic calculated in Establishment once/yr
! Mortality rate inversely related to growth efficiency
! (Prentice et al 1993)
am = mort_max / (1._r8 + k_mort * greffic(p))
am = min(1._r8, am + heatstress(p))
else ! lpj didn't set this for grasses; cn does
! set the mortality rate based on annual rate
am = 0.02_r8
end if
#endif
m = am/(get_days_per_year() * 86400._r8)
! pft-level gap mortality carbon fluxes
! displayed pools
m_leafc_to_litter(p) = leafc(p) * m
m_frootc_to_litter(p) = frootc(p) * m
m_livestemc_to_litter(p) = livestemc(p) * m
m_deadstemc_to_litter(p) = deadstemc(p) * m
m_livecrootc_to_litter(p) = livecrootc(p) * m
m_deadcrootc_to_litter(p) = deadcrootc(p) * m
! storage pools
m_leafc_storage_to_litter(p) = leafc_storage(p) * m
m_frootc_storage_to_litter(p) = frootc_storage(p) * m
m_livestemc_storage_to_litter(p) = livestemc_storage(p) * m
m_deadstemc_storage_to_litter(p) = deadstemc_storage(p) * m
m_livecrootc_storage_to_litter(p) = livecrootc_storage(p) * m
m_deadcrootc_storage_to_litter(p) = deadcrootc_storage(p) * m
m_gresp_storage_to_litter(p) = gresp_storage(p) * m
! transfer pools
m_leafc_xfer_to_litter(p) = leafc_xfer(p) * m
m_frootc_xfer_to_litter(p) = frootc_xfer(p) * m
m_livestemc_xfer_to_litter(p) = livestemc_xfer(p) * m
m_deadstemc_xfer_to_litter(p) = deadstemc_xfer(p) * m
m_livecrootc_xfer_to_litter(p) = livecrootc_xfer(p) * m
m_deadcrootc_xfer_to_litter(p) = deadcrootc_xfer(p) * m
m_gresp_xfer_to_litter(p) = gresp_xfer(p) * m
! pft-level gap mortality nitrogen fluxes
! displayed pools
m_leafn_to_litter(p) = leafn(p) * m
m_frootn_to_litter(p) = frootn(p) * m
m_livestemn_to_litter(p) = livestemn(p) * m
m_deadstemn_to_litter(p) = deadstemn(p) * m
m_livecrootn_to_litter(p) = livecrootn(p) * m
m_deadcrootn_to_litter(p) = deadcrootn(p) * m
m_retransn_to_litter(p) = retransn(p) * m
! storage pools
m_leafn_storage_to_litter(p) = leafn_storage(p) * m
m_frootn_storage_to_litter(p) = frootn_storage(p) * m
m_livestemn_storage_to_litter(p) = livestemn_storage(p) * m
m_deadstemn_storage_to_litter(p) = deadstemn_storage(p) * m
m_livecrootn_storage_to_litter(p) = livecrootn_storage(p) * m
m_deadcrootn_storage_to_litter(p) = deadcrootn_storage(p) * m
! transfer pools
m_leafn_xfer_to_litter(p) = leafn_xfer(p) * m
m_frootn_xfer_to_litter(p) = frootn_xfer(p) * m
m_livestemn_xfer_to_litter(p) = livestemn_xfer(p) * m
m_deadstemn_xfer_to_litter(p) = deadstemn_xfer(p) * m
m_livecrootn_xfer_to_litter(p) = livecrootn_xfer(p) * m
m_deadcrootn_xfer_to_litter(p) = deadcrootn_xfer(p) * m
end do ! end of pft loop
! gather all pft-level litterfall fluxes to the column
! for litter C and N inputs
call CNGapPftToColumn(num_soilc, filter_soilc)
end subroutine CNGapMortality
!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
!BOP
!
! !IROUTINE: CNGapPftToColumn
!
! !INTERFACE:
subroutine CNGapPftToColumn (num_soilc, filter_soilc) 1,2
!
! !DESCRIPTION:
! called in the middle of CNGapMoratlity to gather all pft-level gap mortality fluxes
! to the column level and assign them to the three litter pools
!
! !USES:
use clmtype
use clm_varpar, only : maxpatch_pft
!
! !ARGUMENTS:
implicit none
integer, intent(in) :: num_soilc ! number of soil columns in filter
integer, intent(in) :: filter_soilc(:) ! soil column filter
!
! !CALLED FROM:
! subroutine CNphenology
!
! !REVISION HISTORY:
! 9/8/03: Created by Peter Thornton
!
! !LOCAL VARIABLES:
!
! local pointers to implicit in scalars
integer , pointer :: ivt(:) ! pft vegetation type
real(r8), pointer :: wtcol(:) ! pft weight relative to column (0-1)
real(r8), pointer :: pwtgcell(:) ! weight of pft relative to corresponding gridcell
real(r8), pointer :: lf_flab(:) ! leaf litter labile fraction
real(r8), pointer :: lf_fcel(:) ! leaf litter cellulose fraction
real(r8), pointer :: lf_flig(:) ! leaf litter lignin fraction
real(r8), pointer :: fr_flab(:) ! fine root litter labile fraction
real(r8), pointer :: fr_fcel(:) ! fine root litter cellulose fraction
real(r8), pointer :: fr_flig(:) ! fine root litter lignin fraction
integer , pointer :: npfts(:) ! number of pfts for each column
integer , pointer :: pfti(:) ! beginning pft index for each column
real(r8), pointer :: m_leafc_to_litter(:)
real(r8), pointer :: m_frootc_to_litter(:)
real(r8), pointer :: m_livestemc_to_litter(:)
real(r8), pointer :: m_deadstemc_to_litter(:)
real(r8), pointer :: m_livecrootc_to_litter(:)
real(r8), pointer :: m_deadcrootc_to_litter(:)
real(r8), pointer :: m_leafc_storage_to_litter(:)
real(r8), pointer :: m_frootc_storage_to_litter(:)
real(r8), pointer :: m_livestemc_storage_to_litter(:)
real(r8), pointer :: m_deadstemc_storage_to_litter(:)
real(r8), pointer :: m_livecrootc_storage_to_litter(:)
real(r8), pointer :: m_deadcrootc_storage_to_litter(:)
real(r8), pointer :: m_gresp_storage_to_litter(:)
real(r8), pointer :: m_leafc_xfer_to_litter(:)
real(r8), pointer :: m_frootc_xfer_to_litter(:)
real(r8), pointer :: m_livestemc_xfer_to_litter(:)
real(r8), pointer :: m_deadstemc_xfer_to_litter(:)
real(r8), pointer :: m_livecrootc_xfer_to_litter(:)
real(r8), pointer :: m_deadcrootc_xfer_to_litter(:)
real(r8), pointer :: m_gresp_xfer_to_litter(:)
real(r8), pointer :: m_leafn_to_litter(:)
real(r8), pointer :: m_frootn_to_litter(:)
real(r8), pointer :: m_livestemn_to_litter(:)
real(r8), pointer :: m_deadstemn_to_litter(:)
real(r8), pointer :: m_livecrootn_to_litter(:)
real(r8), pointer :: m_deadcrootn_to_litter(:)
real(r8), pointer :: m_retransn_to_litter(:)
real(r8), pointer :: m_leafn_storage_to_litter(:)
real(r8), pointer :: m_frootn_storage_to_litter(:)
real(r8), pointer :: m_livestemn_storage_to_litter(:)
real(r8), pointer :: m_deadstemn_storage_to_litter(:)
real(r8), pointer :: m_livecrootn_storage_to_litter(:)
real(r8), pointer :: m_deadcrootn_storage_to_litter(:)
real(r8), pointer :: m_leafn_xfer_to_litter(:)
real(r8), pointer :: m_frootn_xfer_to_litter(:)
real(r8), pointer :: m_livestemn_xfer_to_litter(:)
real(r8), pointer :: m_deadstemn_xfer_to_litter(:)
real(r8), pointer :: m_livecrootn_xfer_to_litter(:)
real(r8), pointer :: m_deadcrootn_xfer_to_litter(:)
!
! local pointers to implicit in/out arrays
real(r8), pointer :: m_leafc_to_litr1c(:)
real(r8), pointer :: m_leafc_to_litr2c(:)
real(r8), pointer :: m_leafc_to_litr3c(:)
real(r8), pointer :: m_frootc_to_litr1c(:)
real(r8), pointer :: m_frootc_to_litr2c(:)
real(r8), pointer :: m_frootc_to_litr3c(:)
real(r8), pointer :: m_livestemc_to_cwdc(:)
real(r8), pointer :: m_deadstemc_to_cwdc(:)
real(r8), pointer :: m_livecrootc_to_cwdc(:)
real(r8), pointer :: m_deadcrootc_to_cwdc(:)
real(r8), pointer :: m_leafc_storage_to_litr1c(:)
real(r8), pointer :: m_frootc_storage_to_litr1c(:)
real(r8), pointer :: m_livestemc_storage_to_litr1c(:)
real(r8), pointer :: m_deadstemc_storage_to_litr1c(:)
real(r8), pointer :: m_livecrootc_storage_to_litr1c(:)
real(r8), pointer :: m_deadcrootc_storage_to_litr1c(:)
real(r8), pointer :: m_gresp_storage_to_litr1c(:)
real(r8), pointer :: m_leafc_xfer_to_litr1c(:)
real(r8), pointer :: m_frootc_xfer_to_litr1c(:)
real(r8), pointer :: m_livestemc_xfer_to_litr1c(:)
real(r8), pointer :: m_deadstemc_xfer_to_litr1c(:)
real(r8), pointer :: m_livecrootc_xfer_to_litr1c(:)
real(r8), pointer :: m_deadcrootc_xfer_to_litr1c(:)
real(r8), pointer :: m_gresp_xfer_to_litr1c(:)
real(r8), pointer :: m_leafn_to_litr1n(:)
real(r8), pointer :: m_leafn_to_litr2n(:)
real(r8), pointer :: m_leafn_to_litr3n(:)
real(r8), pointer :: m_frootn_to_litr1n(:)
real(r8), pointer :: m_frootn_to_litr2n(:)
real(r8), pointer :: m_frootn_to_litr3n(:)
real(r8), pointer :: m_livestemn_to_cwdn(:)
real(r8), pointer :: m_deadstemn_to_cwdn(:)
real(r8), pointer :: m_livecrootn_to_cwdn(:)
real(r8), pointer :: m_deadcrootn_to_cwdn(:)
real(r8), pointer :: m_retransn_to_litr1n(:)
real(r8), pointer :: m_leafn_storage_to_litr1n(:)
real(r8), pointer :: m_frootn_storage_to_litr1n(:)
real(r8), pointer :: m_livestemn_storage_to_litr1n(:)
real(r8), pointer :: m_deadstemn_storage_to_litr1n(:)
real(r8), pointer :: m_livecrootn_storage_to_litr1n(:)
real(r8), pointer :: m_deadcrootn_storage_to_litr1n(:)
real(r8), pointer :: m_leafn_xfer_to_litr1n(:)
real(r8), pointer :: m_frootn_xfer_to_litr1n(:)
real(r8), pointer :: m_livestemn_xfer_to_litr1n(:)
real(r8), pointer :: m_deadstemn_xfer_to_litr1n(:)
real(r8), pointer :: m_livecrootn_xfer_to_litr1n(:)
real(r8), pointer :: m_deadcrootn_xfer_to_litr1n(:)
!
! local pointers to implicit out arrays
!
!
! !OTHER LOCAL VARIABLES:
integer :: fc,c,pi,p ! indices
!EOP
!-----------------------------------------------------------------------
! assign local pointers
lf_flab => pftcon%lf_flab
lf_fcel => pftcon%lf_fcel
lf_flig => pftcon%lf_flig
fr_flab => pftcon%fr_flab
fr_fcel => pftcon%fr_fcel
fr_flig => pftcon%fr_flig
! assign local pointers to column-level arrays
npfts => clm3%g%l%c%npfts
pfti => clm3%g%l%c%pfti
m_leafc_to_litr1c => clm3%g%l%c%ccf%m_leafc_to_litr1c
m_leafc_to_litr2c => clm3%g%l%c%ccf%m_leafc_to_litr2c
m_leafc_to_litr3c => clm3%g%l%c%ccf%m_leafc_to_litr3c
m_frootc_to_litr1c => clm3%g%l%c%ccf%m_frootc_to_litr1c
m_frootc_to_litr2c => clm3%g%l%c%ccf%m_frootc_to_litr2c
m_frootc_to_litr3c => clm3%g%l%c%ccf%m_frootc_to_litr3c
m_livestemc_to_cwdc => clm3%g%l%c%ccf%m_livestemc_to_cwdc
m_deadstemc_to_cwdc => clm3%g%l%c%ccf%m_deadstemc_to_cwdc
m_livecrootc_to_cwdc => clm3%g%l%c%ccf%m_livecrootc_to_cwdc
m_deadcrootc_to_cwdc => clm3%g%l%c%ccf%m_deadcrootc_to_cwdc
m_leafc_storage_to_litr1c => clm3%g%l%c%ccf%m_leafc_storage_to_litr1c
m_frootc_storage_to_litr1c => clm3%g%l%c%ccf%m_frootc_storage_to_litr1c
m_livestemc_storage_to_litr1c => clm3%g%l%c%ccf%m_livestemc_storage_to_litr1c
m_deadstemc_storage_to_litr1c => clm3%g%l%c%ccf%m_deadstemc_storage_to_litr1c
m_livecrootc_storage_to_litr1c => clm3%g%l%c%ccf%m_livecrootc_storage_to_litr1c
m_deadcrootc_storage_to_litr1c => clm3%g%l%c%ccf%m_deadcrootc_storage_to_litr1c
m_gresp_storage_to_litr1c => clm3%g%l%c%ccf%m_gresp_storage_to_litr1c
m_leafc_xfer_to_litr1c => clm3%g%l%c%ccf%m_leafc_xfer_to_litr1c
m_frootc_xfer_to_litr1c => clm3%g%l%c%ccf%m_frootc_xfer_to_litr1c
m_livestemc_xfer_to_litr1c => clm3%g%l%c%ccf%m_livestemc_xfer_to_litr1c
m_deadstemc_xfer_to_litr1c => clm3%g%l%c%ccf%m_deadstemc_xfer_to_litr1c
m_livecrootc_xfer_to_litr1c => clm3%g%l%c%ccf%m_livecrootc_xfer_to_litr1c
m_deadcrootc_xfer_to_litr1c => clm3%g%l%c%ccf%m_deadcrootc_xfer_to_litr1c
m_gresp_xfer_to_litr1c => clm3%g%l%c%ccf%m_gresp_xfer_to_litr1c
m_leafn_to_litr1n => clm3%g%l%c%cnf%m_leafn_to_litr1n
m_leafn_to_litr2n => clm3%g%l%c%cnf%m_leafn_to_litr2n
m_leafn_to_litr3n => clm3%g%l%c%cnf%m_leafn_to_litr3n
m_frootn_to_litr1n => clm3%g%l%c%cnf%m_frootn_to_litr1n
m_frootn_to_litr2n => clm3%g%l%c%cnf%m_frootn_to_litr2n
m_frootn_to_litr3n => clm3%g%l%c%cnf%m_frootn_to_litr3n
m_livestemn_to_cwdn => clm3%g%l%c%cnf%m_livestemn_to_cwdn
m_deadstemn_to_cwdn => clm3%g%l%c%cnf%m_deadstemn_to_cwdn
m_livecrootn_to_cwdn => clm3%g%l%c%cnf%m_livecrootn_to_cwdn
m_deadcrootn_to_cwdn => clm3%g%l%c%cnf%m_deadcrootn_to_cwdn
m_retransn_to_litr1n => clm3%g%l%c%cnf%m_retransn_to_litr1n
m_leafn_storage_to_litr1n => clm3%g%l%c%cnf%m_leafn_storage_to_litr1n
m_frootn_storage_to_litr1n => clm3%g%l%c%cnf%m_frootn_storage_to_litr1n
m_livestemn_storage_to_litr1n => clm3%g%l%c%cnf%m_livestemn_storage_to_litr1n
m_deadstemn_storage_to_litr1n => clm3%g%l%c%cnf%m_deadstemn_storage_to_litr1n
m_livecrootn_storage_to_litr1n => clm3%g%l%c%cnf%m_livecrootn_storage_to_litr1n
m_deadcrootn_storage_to_litr1n => clm3%g%l%c%cnf%m_deadcrootn_storage_to_litr1n
m_leafn_xfer_to_litr1n => clm3%g%l%c%cnf%m_leafn_xfer_to_litr1n
m_frootn_xfer_to_litr1n => clm3%g%l%c%cnf%m_frootn_xfer_to_litr1n
m_livestemn_xfer_to_litr1n => clm3%g%l%c%cnf%m_livestemn_xfer_to_litr1n
m_deadstemn_xfer_to_litr1n => clm3%g%l%c%cnf%m_deadstemn_xfer_to_litr1n
m_livecrootn_xfer_to_litr1n => clm3%g%l%c%cnf%m_livecrootn_xfer_to_litr1n
m_deadcrootn_xfer_to_litr1n => clm3%g%l%c%cnf%m_deadcrootn_xfer_to_litr1n
! assign local pointers to pft-level arrays
ivt => clm3%g%l%c%p%itype
wtcol => clm3%g%l%c%p%wtcol
pwtgcell => clm3%g%l%c%p%wtgcell
m_leafc_to_litter => clm3%g%l%c%p%pcf%m_leafc_to_litter
m_frootc_to_litter => clm3%g%l%c%p%pcf%m_frootc_to_litter
m_livestemc_to_litter => clm3%g%l%c%p%pcf%m_livestemc_to_litter
m_deadstemc_to_litter => clm3%g%l%c%p%pcf%m_deadstemc_to_litter
m_livecrootc_to_litter => clm3%g%l%c%p%pcf%m_livecrootc_to_litter
m_deadcrootc_to_litter => clm3%g%l%c%p%pcf%m_deadcrootc_to_litter
m_leafc_storage_to_litter => clm3%g%l%c%p%pcf%m_leafc_storage_to_litter
m_frootc_storage_to_litter => clm3%g%l%c%p%pcf%m_frootc_storage_to_litter
m_livestemc_storage_to_litter => clm3%g%l%c%p%pcf%m_livestemc_storage_to_litter
m_deadstemc_storage_to_litter => clm3%g%l%c%p%pcf%m_deadstemc_storage_to_litter
m_livecrootc_storage_to_litter => clm3%g%l%c%p%pcf%m_livecrootc_storage_to_litter
m_deadcrootc_storage_to_litter => clm3%g%l%c%p%pcf%m_deadcrootc_storage_to_litter
m_gresp_storage_to_litter => clm3%g%l%c%p%pcf%m_gresp_storage_to_litter
m_leafc_xfer_to_litter => clm3%g%l%c%p%pcf%m_leafc_xfer_to_litter
m_frootc_xfer_to_litter => clm3%g%l%c%p%pcf%m_frootc_xfer_to_litter
m_livestemc_xfer_to_litter => clm3%g%l%c%p%pcf%m_livestemc_xfer_to_litter
m_deadstemc_xfer_to_litter => clm3%g%l%c%p%pcf%m_deadstemc_xfer_to_litter
m_livecrootc_xfer_to_litter => clm3%g%l%c%p%pcf%m_livecrootc_xfer_to_litter
m_deadcrootc_xfer_to_litter => clm3%g%l%c%p%pcf%m_deadcrootc_xfer_to_litter
m_gresp_xfer_to_litter => clm3%g%l%c%p%pcf%m_gresp_xfer_to_litter
m_leafn_to_litter => clm3%g%l%c%p%pnf%m_leafn_to_litter
m_frootn_to_litter => clm3%g%l%c%p%pnf%m_frootn_to_litter
m_livestemn_to_litter => clm3%g%l%c%p%pnf%m_livestemn_to_litter
m_deadstemn_to_litter => clm3%g%l%c%p%pnf%m_deadstemn_to_litter
m_livecrootn_to_litter => clm3%g%l%c%p%pnf%m_livecrootn_to_litter
m_deadcrootn_to_litter => clm3%g%l%c%p%pnf%m_deadcrootn_to_litter
m_retransn_to_litter => clm3%g%l%c%p%pnf%m_retransn_to_litter
m_leafn_storage_to_litter => clm3%g%l%c%p%pnf%m_leafn_storage_to_litter
m_frootn_storage_to_litter => clm3%g%l%c%p%pnf%m_frootn_storage_to_litter
m_livestemn_storage_to_litter => clm3%g%l%c%p%pnf%m_livestemn_storage_to_litter
m_deadstemn_storage_to_litter => clm3%g%l%c%p%pnf%m_deadstemn_storage_to_litter
m_livecrootn_storage_to_litter => clm3%g%l%c%p%pnf%m_livecrootn_storage_to_litter
m_deadcrootn_storage_to_litter => clm3%g%l%c%p%pnf%m_deadcrootn_storage_to_litter
m_leafn_xfer_to_litter => clm3%g%l%c%p%pnf%m_leafn_xfer_to_litter
m_frootn_xfer_to_litter => clm3%g%l%c%p%pnf%m_frootn_xfer_to_litter
m_livestemn_xfer_to_litter => clm3%g%l%c%p%pnf%m_livestemn_xfer_to_litter
m_deadstemn_xfer_to_litter => clm3%g%l%c%p%pnf%m_deadstemn_xfer_to_litter
m_livecrootn_xfer_to_litter => clm3%g%l%c%p%pnf%m_livecrootn_xfer_to_litter
m_deadcrootn_xfer_to_litter => clm3%g%l%c%p%pnf%m_deadcrootn_xfer_to_litter
do pi = 1,maxpatch_pft
do fc = 1,num_soilc
c = filter_soilc(fc)
if (pi <= npfts(c)) then
p = pfti(c) + pi - 1
if (pwtgcell(p)>0._r8) then
! leaf gap mortality carbon fluxes
m_leafc_to_litr1c(c) = m_leafc_to_litr1c(c) + &
m_leafc_to_litter(p) * lf_flab(ivt(p)) * wtcol(p)
m_leafc_to_litr2c(c) = m_leafc_to_litr2c(c) + &
m_leafc_to_litter(p) * lf_fcel(ivt(p)) * wtcol(p)
m_leafc_to_litr3c(c) = m_leafc_to_litr3c(c) + &
m_leafc_to_litter(p) * lf_flig(ivt(p)) * wtcol(p)
! fine root gap mortality carbon fluxes
m_frootc_to_litr1c(c) = m_frootc_to_litr1c(c) + &
m_frootc_to_litter(p) * fr_flab(ivt(p)) * wtcol(p)
m_frootc_to_litr2c(c) = m_frootc_to_litr2c(c) + &
m_frootc_to_litter(p) * fr_fcel(ivt(p)) * wtcol(p)
m_frootc_to_litr3c(c) = m_frootc_to_litr3c(c) + &
m_frootc_to_litter(p) * fr_flig(ivt(p)) * wtcol(p)
! wood gap mortality carbon fluxes
m_livestemc_to_cwdc(c) = m_livestemc_to_cwdc(c) + &
m_livestemc_to_litter(p) * wtcol(p)
m_deadstemc_to_cwdc(c) = m_deadstemc_to_cwdc(c) + &
m_deadstemc_to_litter(p) * wtcol(p)
m_livecrootc_to_cwdc(c) = m_livecrootc_to_cwdc(c) + &
m_livecrootc_to_litter(p) * wtcol(p)
m_deadcrootc_to_cwdc(c) = m_deadcrootc_to_cwdc(c) + &
m_deadcrootc_to_litter(p) * wtcol(p)
! storage gap mortality carbon fluxes
m_leafc_storage_to_litr1c(c) = m_leafc_storage_to_litr1c(c) + &
m_leafc_storage_to_litter(p) * wtcol(p)
m_frootc_storage_to_litr1c(c) = m_frootc_storage_to_litr1c(c) + &
m_frootc_storage_to_litter(p) * wtcol(p)
m_livestemc_storage_to_litr1c(c) = m_livestemc_storage_to_litr1c(c) + &
m_livestemc_storage_to_litter(p) * wtcol(p)
m_deadstemc_storage_to_litr1c(c) = m_deadstemc_storage_to_litr1c(c) + &
m_deadstemc_storage_to_litter(p) * wtcol(p)
m_livecrootc_storage_to_litr1c(c) = m_livecrootc_storage_to_litr1c(c) + &
m_livecrootc_storage_to_litter(p) * wtcol(p)
m_deadcrootc_storage_to_litr1c(c) = m_deadcrootc_storage_to_litr1c(c) + &
m_deadcrootc_storage_to_litter(p) * wtcol(p)
m_gresp_storage_to_litr1c(c) = m_gresp_storage_to_litr1c(c) + &
m_gresp_storage_to_litter(p) * wtcol(p)
! transfer gap mortality carbon fluxes
m_leafc_xfer_to_litr1c(c) = m_leafc_xfer_to_litr1c(c) + &
m_leafc_xfer_to_litter(p) * wtcol(p)
m_frootc_xfer_to_litr1c(c) = m_frootc_xfer_to_litr1c(c) + &
m_frootc_xfer_to_litter(p) * wtcol(p)
m_livestemc_xfer_to_litr1c(c) = m_livestemc_xfer_to_litr1c(c) + &
m_livestemc_xfer_to_litter(p) * wtcol(p)
m_deadstemc_xfer_to_litr1c(c) = m_deadstemc_xfer_to_litr1c(c) + &
m_deadstemc_xfer_to_litter(p) * wtcol(p)
m_livecrootc_xfer_to_litr1c(c) = m_livecrootc_xfer_to_litr1c(c) + &
m_livecrootc_xfer_to_litter(p) * wtcol(p)
m_deadcrootc_xfer_to_litr1c(c) = m_deadcrootc_xfer_to_litr1c(c) + &
m_deadcrootc_xfer_to_litter(p) * wtcol(p)
m_gresp_xfer_to_litr1c(c) = m_gresp_xfer_to_litr1c(c) + &
m_gresp_xfer_to_litter(p) * wtcol(p)
! leaf gap mortality nitrogen fluxes
m_leafn_to_litr1n(c) = m_leafn_to_litr1n(c) + &
m_leafn_to_litter(p) * lf_flab(ivt(p)) * wtcol(p)
m_leafn_to_litr2n(c) = m_leafn_to_litr2n(c) + &
m_leafn_to_litter(p) * lf_fcel(ivt(p)) * wtcol(p)
m_leafn_to_litr3n(c) = m_leafn_to_litr3n(c) + &
m_leafn_to_litter(p) * lf_flig(ivt(p)) * wtcol(p)
! fine root litter nitrogen fluxes
m_frootn_to_litr1n(c) = m_frootn_to_litr1n(c) + &
m_frootn_to_litter(p) * fr_flab(ivt(p)) * wtcol(p)
m_frootn_to_litr2n(c) = m_frootn_to_litr2n(c) + &
m_frootn_to_litter(p) * fr_fcel(ivt(p)) * wtcol(p)
m_frootn_to_litr3n(c) = m_frootn_to_litr3n(c) + &
m_frootn_to_litter(p) * fr_flig(ivt(p)) * wtcol(p)
! wood gap mortality nitrogen fluxes
m_livestemn_to_cwdn(c) = m_livestemn_to_cwdn(c) + &
m_livestemn_to_litter(p) * wtcol(p)
m_deadstemn_to_cwdn(c) = m_deadstemn_to_cwdn(c) + &
m_deadstemn_to_litter(p) * wtcol(p)
m_livecrootn_to_cwdn(c) = m_livecrootn_to_cwdn(c) + &
m_livecrootn_to_litter(p) * wtcol(p)
m_deadcrootn_to_cwdn(c) = m_deadcrootn_to_cwdn(c) + &
m_deadcrootn_to_litter(p) * wtcol(p)
! retranslocated N pool gap mortality fluxes
m_retransn_to_litr1n(c) = m_retransn_to_litr1n(c) + &
m_retransn_to_litter(p) * wtcol(p)
! storage gap mortality nitrogen fluxes
m_leafn_storage_to_litr1n(c) = m_leafn_storage_to_litr1n(c) + &
m_leafn_storage_to_litter(p) * wtcol(p)
m_frootn_storage_to_litr1n(c) = m_frootn_storage_to_litr1n(c) + &
m_frootn_storage_to_litter(p) * wtcol(p)
m_livestemn_storage_to_litr1n(c) = m_livestemn_storage_to_litr1n(c) + &
m_livestemn_storage_to_litter(p) * wtcol(p)
m_deadstemn_storage_to_litr1n(c) = m_deadstemn_storage_to_litr1n(c) + &
m_deadstemn_storage_to_litter(p) * wtcol(p)
m_livecrootn_storage_to_litr1n(c) = m_livecrootn_storage_to_litr1n(c) + &
m_livecrootn_storage_to_litter(p) * wtcol(p)
m_deadcrootn_storage_to_litr1n(c) = m_deadcrootn_storage_to_litr1n(c) + &
m_deadcrootn_storage_to_litter(p) * wtcol(p)
! transfer gap mortality nitrogen fluxes
m_leafn_xfer_to_litr1n(c) = m_leafn_xfer_to_litr1n(c) + &
m_leafn_xfer_to_litter(p) * wtcol(p)
m_frootn_xfer_to_litr1n(c) = m_frootn_xfer_to_litr1n(c) + &
m_frootn_xfer_to_litter(p) * wtcol(p)
m_livestemn_xfer_to_litr1n(c) = m_livestemn_xfer_to_litr1n(c) + &
m_livestemn_xfer_to_litter(p) * wtcol(p)
m_deadstemn_xfer_to_litr1n(c) = m_deadstemn_xfer_to_litr1n(c) + &
m_deadstemn_xfer_to_litter(p) * wtcol(p)
m_livecrootn_xfer_to_litr1n(c) = m_livecrootn_xfer_to_litr1n(c) + &
m_livecrootn_xfer_to_litter(p) * wtcol(p)
m_deadcrootn_xfer_to_litr1n(c) = m_deadcrootn_xfer_to_litr1n(c) + &
m_deadcrootn_xfer_to_litter(p) * wtcol(p)
end if
end if
end do
end do
end subroutine CNGapPftToColumn
!-----------------------------------------------------------------------
#endif
end module CNGapMortalityMod