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