REAL*8 grav, pi
      parameter (grav=9.81d0, pi=3.141592653589793d0)
C Dynamic variables
      REAL*8 u(0:NXM+1,0:NYM+1),v(0:NXM+1,0:NYM+1),eta(0:NXM+1,0:NYM+1)
      common/dynvars/u,v,eta
C Coefficients
      REAL*8 epsF, H(0:NXM+1,0:NYM+1), 
     &   Hup1(0:NXM+1,0:NYM+1), Hum1(0:NXM+1,0:NYM+1),
     &   Hvp1(0:NXM+1,0:NYM+1), Hvm1(0:NXM+1,0:NYM+1)
      common/coeffs/epsF, H, Hup1, Hum1, Hvp1, Hvm1
C File names
      character*40 uout	! character array for output filename
      character*40 vout
      character*40 etaout
      character*40 BathyFile
      character*40 etainiFile
      character*40 uiniFile
      character*40 viniFile
      common/files/uiniFile,viniFile,etainiFile,BathyFile,
     &      etaout,uout,vout
C Boundary
      LOGICAL PeriodicInX, PeriodicInY
      common/bound/PeriodicInX,PeriodicInY
C Misc. variables     
      integer nsteps,nx,ny,nout
      common/gridi/nsteps,nx,ny,nout
      REAL*8 dx,dy,dt,xmax,ymax,tmax,tout,tstart,alx,aly
      common/gridr/dx,dy,dt,xmax,ymax,tmax,tout,tstart,alx,aly