• VTF
  • FSI
  • AMROC
  • SFC
  • Motion
  • STLIB
  • Main Page

    • src/rim2d.i

    c $Header: /home/proj/vtfng/vtf/amroc/rim/src/rim2d.i,v 1.2 2004/12/01 20:51:35 ralf Exp $
c Common blocks for 2D RIM patch solver.
c 
c MBC is the maximum number of ghost cells
c NXM, NYM: maximum dimensions of the patch excluding ghost cells
c
c IMPORTANT: the dimensions of the arrays here must be the same
c            as the dimentions of the array 'w' in slope.f
c            (yes, the structure of this code is not great)
c 
      parameter (MBC=2, NXM=512, NYM=512)

      common/Blchem/ q0,rcon,eact
      common/Bl2/gamma(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blp/  p(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dpx(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dpy(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blu/  u(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dux(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           duy(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blv/  v(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dvx(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dvy(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blz/  z(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dzx(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &           dzy(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blden/  den(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &             ddenx(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &             ddeny(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blss/  ss(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &            dssx(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &            dssy(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blst5/  st5(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &             dst5x(1-MBC:NXM+MBC,1-MBC:NYM+MBC),
     &             dst5y(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blstb/stbx(1-MBC:NXM+MBC,1-MBC:NYM+MBC), 
     &             stby(1-MBC:NXM+MBC,1-MBC:NYM+MBC)
      common/Blcfl/uchmax

<