DGVMRespiration

INTERFACE:

   subroutine DGVMRespiration(lbc, ubc, lbp, ubp, &
                              num_nolakec, filter_nolakec, &
                              num_nolakep, filter_nolakep)

DESCRIPTION:

   Calculates surface biogeochemical fluxes

USES:

     use clmtype
     use shr_const_mod , only: SHR_CONST_CDAY, SHR_CONST_TKFRZ
     use clm_varpar    , only : nlevsoi
     use time_manager  , only : get_step_size

ARGUMENTS:

     implicit none
     integer, intent(in) :: lbc, ubc                    ! column bounds
     integer, intent(in) :: lbp, ubp                    ! pft bounds
     integer, intent(in) :: num_nolakec                 ! number of column non
     integer, intent(in) :: filter_nolakec(num_nolakec) ! column filter for no
     integer, intent(in) :: num_nolakep                 ! number of column non
     integer, intent(in) :: filter_nolakep(num_nolakep) ! pft filter for non-l

CALLED FROM:

   subroutine driver

REVISION HISTORY:

   Author: Gordon Bonan and Sam Levis
   1/31/02, PET: migrated to new data structures

LOCAL VARIABLES:

   local pointers to implicit in arguments
     integer , pointer :: pcolumn(:)    ! pft's column
     integer , pointer :: ivt(:)        ! vegetation type for current pft
     real(r8), pointer :: t_veg(:)      ! vegetation temperature (Kelvin)
     real(r8), pointer :: fpcgrid(:)    ! foliar projective cover on gridcell 
     real(r8), pointer :: nind(:)       ! number of individuals
     real(r8), pointer :: dphen(:)      ! phenology [0 to 1]
     real(r8), pointer :: lm_ind(:)     ! individual leaf mass
     real(r8), pointer :: sm_ind(:)     ! individual stem mass
     real(r8), pointer :: rm_ind(:)     ! individual root mass
     real(r8), pointer :: respcoeff(:)  ! respiration coefficient (LPJ)
     real(r8), pointer :: l_cton(:)     ! c/n for leaves (LPJ)
     real(r8), pointer :: s_cton(:)     ! c/n for stems (LPJ)
     real(r8), pointer :: r_cton(:)     ! c/n for roots (LPJ)
     real(r8), pointer :: z(:,:)        ! layer thickness (m)
     real(r8), pointer :: dz(:,:)       ! layer depth (m)
     real(r8), pointer :: t_soisno(:,:) ! soil temperature (Kelvin)
     real(r8), pointer :: fpsn(:)       ! photosynthesis (umol CO2 /m**2 /s)
     real(r8), pointer :: fmicr(:)      ! microbial respiration (umol CO2 /m**
   local pointers to implicit inout arguments
     real(r8), pointer :: bm_inc(:)     ! biomass increment
     real(r8), pointer :: afmicr(:)     ! annual microbial respiration
   local pointers to implicit out arguments
     real(r8), pointer :: frmf(:)       ! leaf maintenance respiration  (umol 
     real(r8), pointer :: frms(:)       ! stem maintenance respiration  (umol 
     real(r8), pointer :: frmr(:)       ! root maintenance respiration  (umol 
     real(r8), pointer :: frm(:)        ! total maintenance respiration (umol 
     real(r8), pointer :: frg(:)        ! growth respiration (umol CO2 /m**2 /
     real(r8), pointer :: dmi(:)        ! total dry matter production (ug /m**
     real(r8), pointer :: fco2(:)       ! net CO2 flux (umol CO2 /m**2 /s) [+ 
     real(r8), pointer :: tsoi25(:)     ! soil temperature to 0.25 m (Kelvin)