!$Author: wjr $
!$Date: 2012-03-30 09:46:26 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12162 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/sweep/sweep.for $

MODULE sweep_init

      use file_def
!     Initialize misc SWEEP variables

      logical :: have_ifile = .false.
      logical :: hagen_plot_flag = .false.
      logical :: force_plot_flag = .false. !ensure that commandline overrides input file settings
      integer :: force_emit_val = 0        !ensure that commandline overrides input file settings
      integer :: force_debug_flag = -1     !ensure that commandline overrides input file setting

      integer :: already_read_inputs = 0   !flag to keep from reading inputs more than once

      ! comes from command.inc
      integer :: saeinp_daysim = 0 !initialize WEPS variables
      integer :: saeinp_jday = 0   !not used in the standalone submodel

      real :: min_erosion_awu = 5.0  !default minimum erosive wind speed
!      integer :: erod_interval = 0      !do not override default surface updating interval

      ! comes from 'erosion/p1erode.inc'
      integer :: SURF_UPD_FLG = 1  !enable erosion submodel surface updating by default

    ! Unit numbers for SWEEP
    integer :: i_einp_unit=lui_einp   !Echo input to a file (Unit number for generated input file)
    integer :: o_einp_unit=luo_einp   !Echo input to a file (Unit number for generated input file)

    integer :: o_egrd_unit=luo_egrd   !Unit number for grid erosion summary
    integer :: o_sgrd_unit=luo_sgrd   !Unit number for subdaily grid erosion summary
    integer :: o_erod_unit=luo_erod   !Unit number for total erosion summary
    integer :: o_emit_unit=luo_emit   !Unit number for detail grid erosion
    integer :: o_eplt_unit=luo_eplt   !Unit number for Hagen plot file

END MODULE sweep_init