BeginCBalance

INTERFACE:

 subroutine BeginCBalance(lbc, ubc, num_soilc, filter_soilc)

DESCRIPTION:

On the radiation time step, calculate the beginning carbon balance for mass conservation checks.

USES:

    use clmtype

ARGUMENTS:

    implicit none
    integer, intent(in) :: lbc, ubc        ! column bounds
    integer, intent(in) :: num_soilc       ! number of soil columns filter
    integer, intent(in) :: filter_soilc(ubc-lbc+1) ! filter for soil columns

CALLED FROM:

   subroutine clm_driver1

REVISION HISTORY:

   2/4/05: Created by Peter Thornton

LOCAL VARIABLES:

   local pointers to implicit in arrays
    real(r8), pointer :: totcolc(:)            ! (gC/m2) total column carbon, incl veg and cpool
   local pointers to implicit out arrays
    real(r8), pointer :: col_begcb(:)   ! carbon mass, beginning of time step (gC/m**2)
   !OTHER LOCAL VARIABLES:
    integer :: c     ! indices
    integer :: fc   ! lake filter indices