C================================================
C This subroutine reads some parameters
C================================================
      SUBROUTINE INI_PARAMS(filename)
      implicit none
      character*(*) filename	! name of the parameter file
#include "SIZE.h"
#include "SWE.h"
#include "CORIOLIS.h"

      character*100 dum1
      
      open(unit=20,file=filename,status='old')
      read(20,'(a)')dum1
      read(20,*)dt,tstart,tmax,tout
      read(20,'(a)')dum1
      read(20,*)nx,xmax,ny,ymax
      read(20,'(a)')dum1
      read(20,*)epsF
      read(20,'(a)')dum1
      read(20,*)fo,beta,y0
      read(20,'(a)')dum1
      read(20,'(a)')uout
      read(20,'(a)')vout
      read(20,'(a)')etaout
      read(20,'(a)')dum1
      read(20,'(a)')BathyFile
      read(20,'(a)')uiniFile
      read(20,'(a)')viniFile
      read(20,'(a)')etainiFile
      read(20,'(a)')dum1
      read(20,*) PeriodicInX, PeriodicInY
      close(20)

C     set some constants
      dx = xmax/nx    ! set the space step
      dy = ymax/ny
      alx=dt/dx       ! alpha
      aly=dt/dy
      nsteps=int(tmax/dt)       ! calculate total number of timesteps
      write(*,*)'ALL TIMES/STEPS REFERENCED TO tstart=',tstart

      end