BeginNBalance

INTERFACE:

 subroutine BeginNBalance(lbc, ubc, num_soilc, filter_soilc)

DESCRIPTION:

On the radiation time step, calculate the beginning nitrogen 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 :: totcoln(:)            ! (gN/m2) total column nitrogen, incl veg
   local pointers to implicit out arrays
    real(r8), pointer :: col_begnb(:)   ! nitrogen mass, beginning of time step (gN/m**2)
   !OTHER LOCAL VARIABLES:
    integer :: c     ! indices
    integer :: fc   ! lake filter indices