!$Author$
!$Date$
!$Revision$
!$HeadURL$

      subroutine   input(sr)

!     + + + PURPOSE + + +
!     This subroutine perforns some screen I/O, reads in the
!     run files and performs various error checkings.

!     author: John Tatarko
!     version: 95.08

!     EDIT History
!     06-Feb-99   wjr   changed crop_db, etc., location
!                       to be scenario dir
!     06-Feb-99   wjr   made inprun and inpsub into separate subrs
!     06-Feb-99   wjr   used select statement to read config files
!     06-Feb-99   wjr   moved opening of sinfil from inprun to inpsub
!     06-Feb-99   wjr   changed files.inc to file.fi
!     06-Feb-99   wjr   added luolog & luodbg
!     06-Nov-03   LEW   removed cmdline processing and put in "cmdline.for"

!     + + + KEY WORDS + + +
!     WEPS, cligen, windgen

!     + + + GLOBAL COMMON BLOCKS + + +

      include 'p1werm.inc'
      include 'wpath.inc'
      include 'm1subr.inc'
      include 'm1sim.inc'
      include 'm1geo.inc'
      include 'm1flag.inc'
      include 'm1dbug.inc'
      include 'file.fi'

!     + + + LOCAL COMMON BLOCKS + + +
      include 'main/main.inc'

!     + + + LOCAL VARIABLES + + +
      logical       fexist
      integer sr
!     + + + LOCAL DEFINITIONS + + +
!   fexist    - flag used to indicate result of file existence

!     + + + END SPECIFICATIONS + + +
 
      character*2 t
      
!     open simulation run file
      if (sr < 10) then
        write(t,FMT=20) sr
        t = t(1:1)
      else 
        write(t,FMT=22) sr
      end if

   20 format(I1)  
   22 format (I2)

      runfil=rootp(1:len_trim(rootp))//'weps'//t(1:len_trim(t))//'.run'
      write(*,*) 'Input run file:',runfil
      inquire(file = runfil(1:len_trim(runfil)), exist = fexist)
      if (.not.fexist) then
        write(0,*) ' simulation run file not found '
        call exit(1)
      end if

!     load the simulation run file
      call inprun(sr)

!     Moving this call into weps.for so that the IFC file can be re-read and re-initialized
!     for calibration run purposes.
      call input_ifc(sr)  ! Put back in for now
      
      return
      end