CASAiniTimeVar

INTERFACE:

 subroutine CASAiniTimeVar()

DESCRIPTION:

Initialize time varying variables used only in CASA'

USES:

    use clmtype
    use shr_kind_mod, only: r8 => shr_kind_r8
    use decompMod   , only: get_proc_bounds
    use clm_varpar  , only: nlevgrnd

ARGUMENTS:

    implicit none

CALLED FROM:

   subroutine initialize in file initializeMod.F90

REVISION HISTORY:

    22 Sept 2006: Created by Forrest Hoffman
   local pointers to implicit in arguments
   local pointers to implicit out arguments
    real(r8), pointer :: casa_agnpp(:)        ! above-ground net primary production [gC/m2/s]
    real(r8), pointer :: casa_ar(:)           ! autotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_bgnpp(:)        ! below-ground net primary production [gC/m2/s]
    real(r8), pointer :: casa_cwdc(:)         ! coarse woody debris C [gC/m2]
    real(r8), pointer :: casa_cwdc_hr(:)      ! cwd heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_cwdc_loss(:)    ! cwd C loss [gC/m2/s]
    real(r8), pointer :: casa_frootc(:)       ! fine root C [gC/m2]
    real(r8), pointer :: casa_frootc_alloc(:) ! fine root C allocation [gC/m2/s]
    real(r8), pointer :: casa_frootc_loss(:)  ! fine root C loss [gC/m2/s]
    real(r8), pointer :: casa_gpp(:)          ! gross primary production [gC/m2/s]
    real(r8), pointer :: casa_hr(:)           ! total heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_leafc(:)        ! leaf C [gC/m2]
    real(r8), pointer :: casa_leafc_alloc(:)  ! leaf C allocation [gC/m2/s]
    real(r8), pointer :: casa_leafc_loss(:)   ! leaf C loss [gC/m2/s]
    real(r8), pointer :: casa_litterc(:)      ! total litter C (excluding cwd C) [gC/m2]
    real(r8), pointer :: casa_litterc_hr(:)   ! litter heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_litterc_loss(:) ! litter C loss [gC/m2/s]
    real(r8), pointer :: casa_nee(:)          ! net ecosystem exchange [gC/m2/s]
    real(r8), pointer :: casa_nep(:)          ! net ecosystem production [gC/m2/s]
    real(r8), pointer :: casa_npp(:)          ! net primary production [gC/m2/s]
    real(r8), pointer :: casa_soilc(:)        ! total soil organic matter C (excluding cwd and litter C) [gC/m2]
    real(r8), pointer :: casa_soilc_hr(:)     ! soil heterotrophic respiration [gC/m2/s]
    real(r8), pointer :: casa_soilc_loss(:)   ! total soil organic matter C loss [gC/m2/s]
    real(r8), pointer :: casa_woodc(:)        ! wood C [gC/m2]
    real(r8), pointer :: casa_woodc_alloc(:)  ! wood C allocation [gC/m2/s]
    real(r8), pointer :: casa_woodc_loss(:)   ! wood C loss [gC/m2/s]
    real(r8), pointer :: soilpsi(:,:)         ! soil water potential in each

LOCAL VARIABLES: