INTERFACE:
subroutine casa_bgfluxes(lbp, ubp, num_soilp, filter_soilp)DESCRIPTION:
Compute biogeochemical fluxes.
------------ code history -------------- bgfluxes_BASIC.c - BG Spin-Up Flux Sub-model VERSION 1.0
Version 2.1
Created 7-13-99 by Greg Asner Modified for CASA2a on 8-14-00 by Greg Asner Gleaned from CASA2b modified for LSM/CASA interface by J.John (2001) iyf modified 7-18-01 Inez: all modifications marked by iyf
--------------------------------- code only executed for soils (ist = 1)
USES:
use clm_time_manager , only : get_step_sizeARGUMENTS:
implicit none integer, intent(in) :: lbp, ubp ! pft bounds integer, intent(in) :: num_soilp ! number of soil points in pft filter integer, intent(in) :: filter_soilp(ubp-lbp+1) ! pft filter for soil pointsLOCAL VARIABLES:
integer f,g,i,j,l,n,p integer iptype real(r8) leafmass real(r8) dtime !land model time step (sec) ! ------------------------ input/output variables ----------------- ! input integer , pointer :: ivt(:) !pft vegetation type real(r8), pointer :: fnpp(:) !NPP (gC/m2/sec) real(r8), pointer :: excessC(:) !excess Carbon (gC/m2/timestep) real(r8), pointer :: bgtemp(:) !temperature dependence for C pools real(r8), pointer :: bgmoist(:) !moisture dependence for C pools real(r8), pointer :: soilt(:) !soil temp for top 30cm real(r8), pointer :: smoist(:) !soil moisture for top 30cm real(r8), pointer :: watopt(:) real(r8), pointer :: watdry(:) real(r8), pointer :: Wlim(:) real(r8), pointer :: livefr(:,:) !live fraction real(r8), pointer :: sandfrac(:) ! implicit intent inout !============================================================ real(r8), pointer :: plai(:) ! prognostic LAI (m2 leaf/m2 ground) real(r8), pointer :: Closs(:,:) real(r8), pointer :: Ctrans(:,:) ! C transfers out of pool types real(r8), pointer :: Resp_C(:,:) ! could dimension by ndead, but caution!!! real(r8), pointer :: Tpool_C(:,:) real(r8), pointer :: Cflux(:) real(r8), pointer :: XSCpool(:) real(r8), pointer :: co2flux(:) !net CO2 flux (gC/m2/s) [+ = to atm]CALLED FROM:
Casa in CASAModREVISION HISTORY:
2004.06.08 Vectorized and reformatted by Forrest Hoffman