!-------------------------------------------------------------------------
!     NASA GSFC Land Information Systems LIS 2.3                         !
!-------------------------------------------------------------------------
!BOP
!
! !ROUTINE: noah_totinit.F90
!
! !DESCRIPTION:
!  Initialize NOAH output arrays
!
! !REVISION HISTORY:
! 
!  14 Jun 2002  Sujay Kumar  Initial Specification
!
! !INTERFACE:
subroutine noah_totinit()
! !USES:
  use noah_varder      ! NOAH LSM module  
  use tile_spmdMod
  use lisdrv_module, only : lis
!EOP
  IMPLICIT NONE

!=== End Variable List ===================================================
  integer t, i
!BOC
  do t = 1, di_array(iam)
     if(mod(lis%t%gmt,noahdrv%writeintn).eq.0)then
        noah(t)%soilm_prev=noah(t)%smc(1)*1000.0*0.1+ &
             noah(t)%smc(2)*1000.0*0.3 + & 
             noah(t)%smc(3)*1000.0*0.6 + & 
             noah(t)%smc(4)*1000.0
        noah(t)%swe_prev =  noah(t)%weasd*1000.0
     endif
  enddo
  do t = 1, di_array(iam)
     noah(t)%snet = 0
     noah(t)%lwnet = 0
     noah(t)%qle = 0
     noah(t)%qh = 0
     noah(t)%qg = 0
     noah(t)%snowf = 0
     noah(t)%rainf = 0
     noah(t)%evap = 0
     noah(t)%qs = 0
     noah(t)%qsb = 0
     noah(t)%qsm = 0
     noah(t)%swe = 0
     noah(t)%soilmoist1 = 0
     noah(t)%soilmoist2 = 0
     noah(t)%soilmoist3 = 0
     noah(t)%soilmoist4 = 0
     noah(t)%soilwet = 0
     noah(t)%tveg = 0
     noah(t)%esoil = 0
     noah(t)%rootmoist =0
     noah(t)%count = 0
  enddo
!EOC  
end subroutine noah_totinit