SUBROUTINE READCNTL()

  ! UW Land Surface Hydrology Group implementation of SAC/SNOW17 model
  ! modified from NLDAS implementation
  ! author: Ted Bohn, tbohn@hydro.washington.edu

  ! READS A CONTROL FILE

  ! driverMod contains definitions of all global variables
  USE driverMod

  IMPLICIT NONE


  ! Define local variables
  NAMELIST /CONTROL/MODEL_DT,OUTPUT_DT,YEAR0,MONTH0,DAY0,YEAR_FINAL, &
       MONTH_FINAL,DAY_FINAL,PARAM_TYPE,LSC,LREAL8, &
       VEG_FILE, LAI_FILE, GREEN_FILE, MODIS_ALBNF_FILE, MODIS_ALBVF_FILE, &
       MODIS_ALBVR_FILE, MODIS_ALBNR_FILE, INITIAL, FORCING, &
       RESULT, COMP_OUTPUT, RESTART

!!$  NAMELIST /CONTROL/MODEL_DT,OUTPUT_DT,YEAR0,MONTH0,DAY0,YEAR_FINAL, &
!!$       MONTH_FINAL,DAY_FINAL,PARAM_TYPE,LSC,LREAL8, &
!!$       MASK_FILE,UZTWM_FILE,UZFWM_FILE,UZK_FILE, &
!!$       ZPERC_FILE,REXP_FILE,LZTWM_FILE,LZFSM_FILE, &
!!$       LZFPM_FILE,LZSK_FILE,LZPK_FILE,PFREE_FILE,ELEV_FILE, &
!!$       SNOWBAND_FILE,NBANDS,MAXNSOIL,NMONTHS,NADC,NSNOWCO, &
!!$       SAC_CONST,SNOW_CONST,PE_SCALE,PE_ADJ, &
!!$       INITIAL,FORCING,PE,RESTART,RESULT,COMP_OUTPUT

  OPEN (UNIT=99, FILE=CNTRFL, STATUS='OLD')
  READ (99,CONTROL)
  CLOSE(99)

END