subroutine CNWoodProducts(num_soilc, filter_soilc)DESCRIPTION:
Update all loss fluxes from wood product pools, and update product pool state variables for both loss and gain terms. Gain terms are calculated in pftdyn_cnbal() for gains associated with changes in landcover, and in CNHarvest(), for gains associated with wood harvest.
use clmtype use clm_time_manager, only: get_step_sizeARGUMENTS:
implicit none integer, intent(in) :: num_soilc ! number of soil columns in filter integer, intent(in) :: filter_soilc(:) ! filter for soil columnsCALLED FROM:
subroutine CNEcosystemDynREVISION HISTORY:
5/21/09: Created by Peter ThorntonLOCAL VARIABLES:
integer :: fc ! lake filter indices integer :: c ! indices real(r8):: dt ! time step (seconds) type(column_type), pointer :: cptr ! pointer to column derived subtype real(r8) :: kprod10 ! decay constant for 10-year product pool real(r8) :: kprod100 ! decay constant for 100-year product pool