qinit_geo.f.html
Source file:   qinit_geo.f
Directory:   /home/rjl/git/claworg/clawpack-4.x/apps/tsunami/bowl-slosh
Converted:   Sat Aug 6 2011 at 21:52:57   using clawcode2html
This documentation file will not reflect any later changes in the source file.

 


c     =====================================================
       subroutine qinit(maxmx,maxmy,meqn,mbc,mx,my,xlower,ylower,
     &                   dx,dy,q,maux,aux)
c     =====================================================
c
c      # Set initial sea level flat unless iqinit = 1, in which case
c      # an initial perturbation of the q(i,j,1) is specified and has
c      # been strored in qinitwork.


       use geoclaw_module

       implicit double precision (a-h,o-z)
       dimension q(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, meqn)
       dimension aux(1-mbc:maxmx+mbc,1-mbc:maxmy+mbc,maux)

c      include 'qinit.i'

c      grav = 9.81d0   !# should come from module
       a = 1.d0
       sigma = 0.5d0
       h0 = 0.1d0
       omega = dsqrt(2.d0*grav*h0) / a
       write(6,*) 'omega = ',omega

       do i=1-mbc,mx+mbc
          x = xlower + (i-0.5d0)*dx
          do j=1-mbc,my+mbc
             y = ylower + (j-0.5d0)*dy
             eta = sigma*h0/a**2 * (2.*x - sigma) 
             q(i,j,1) = dmax1(0.d0,eta-aux(i,j,1))
             q(i,j,2) = 0.d0
             q(i,j,3) = sigma*omega * q(i,j,1)
             enddo
          enddo


       return
       end