SUBROUTINE CHECK_INITIAL()

  ! UW Land Surface Hydrology Group implementation of SAC/SNOW17 model
  ! modified from NLDAS implementation
  ! author: Kostas Andreadis, kostas@hydro.washington.edu

  ! VALIDATES INITIAL CONDITIONS

  ! driverMod contains definitions of all global driver variables
  USE driverMod

  IMPLICIT NONE

  INTEGER I, J, K

  DO I=1,landlen
     DO J=1,N_gndtmp
        CAT_PROGN(I)%ght(J) = 0.0
     END DO
     DO J=1,N_snow
        CAT_PROGN(I)%wesn(J) = 0.0
        CAT_PROGN(I)%htsn = 0.0
        CAT_PROGN(I)%sndz(J) = 0.0
     END DO
  END DO

         
END SUBROUTINE CHECK_INITIAL