2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
5 c---------------------------------------------------------------------
6 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
9 c npbparams.h defines parameters that depend on the class and
11 c---------------------------------------------------------------------
15 c---------------------------------------------------------------------
16 c parameters which can be overridden in runtime config file
17 c (in addition to size of problem - isiz01,02,03 give the maximum size)
18 c ipr = 1 to print out verbose information
19 c omega = 2.0 is correct for all classes
20 c tolrsd is tolerance levels for steady state residuals
21 c---------------------------------------------------------------------
23 parameter (ipr_default = 1)
24 double precision omega_default
25 parameter (omega_default = 1.2d0)
26 double precision tolrsd1_def, tolrsd2_def, tolrsd3_def,
27 > tolrsd4_def, tolrsd5_def
28 parameter (tolrsd1_def=1.0e-08,
29 > tolrsd2_def=1.0e-08, tolrsd3_def=1.0e-08,
30 > tolrsd4_def=1.0e-08, tolrsd5_def=1.0e-08)
32 double precision c1, c2, c3, c4, c5
33 parameter( c1 = 1.40d+00, c2 = 0.40d+00,
34 > c3 = 1.00d-01, c4 = 1.00d+00,
37 c---------------------------------------------------------------------
39 c---------------------------------------------------------------------
42 integer ipt, ist, iend
43 integer jpt, jst, jend
47 double precision dxi, deta, dzeta
48 double precision tx1, tx2, tx3
49 double precision ty1, ty2, ty3
50 double precision tz1, tz2, tz3
52 common/cgcon/ dxi, deta, dzeta,
64 c---------------------------------------------------------------------
66 c---------------------------------------------------------------------
67 double precision dx1, dx2, dx3, dx4, dx5
68 double precision dy1, dy2, dy3, dy4, dy5
69 double precision dz1, dz2, dz3, dz4, dz5
72 common/disp/ dx1,dx2,dx3,dx4,dx5,
73 > dy1,dy2,dy3,dy4,dy5,
74 > dz1,dz2,dz3,dz4,dz5,
77 c---------------------------------------------------------------------
78 c field variables and residuals
79 c---------------------------------------------------------------------
80 double precision u(5,-1:isiz1+2,-1:isiz2+2,isiz3),
81 > rsd(5,-1:isiz1+2,-1:isiz2+2,isiz3),
82 > frct(5,-1:isiz1+2,-1:isiz2+2,isiz3),
83 > flux(5,0:isiz1+1,0:isiz2+1,isiz3)
91 c---------------------------------------------------------------------
92 c output control parameters
93 c---------------------------------------------------------------------
96 common/cprcon/ ipr, inorm
98 c---------------------------------------------------------------------
99 c newton-raphson iteration control parameters
100 c---------------------------------------------------------------------
101 integer itmax, invert
102 double precision dt, omega, tolrsd(5),
103 > rsdnm(5), errnm(5), frc, ttotal
105 common/ctscon/ dt, omega, tolrsd,
106 > rsdnm, errnm, frc, ttotal,
109 double precision a(5,5,isiz1,isiz2),
110 > b(5,5,isiz1,isiz2),
111 > c(5,5,isiz1,isiz2),
114 common/cjac/ a, b, c, d
116 c---------------------------------------------------------------------
117 c coefficients of the exact solution
118 c---------------------------------------------------------------------
119 double precision ce(5,13)
123 c---------------------------------------------------------------------
124 c multi-processor common blocks
125 c---------------------------------------------------------------------
126 integer id, ndim, num, xdim, ydim, row, col
127 common/dim/ id,ndim,num,xdim,ydim,row,col
129 integer north,south,east,west
130 common/neigh/ north,south,east, west
132 integer from_s,from_n,from_e,from_w
133 parameter (from_s=1,from_n=2,from_e=3,from_w=4)
136 parameter (npmax=isiz01+isiz02)
138 logical icommn(npmax+1),icomms(npmax+1),
139 > icomme(npmax+1),icommw(npmax+1)
140 double precision buf(5,2*isiz2*isiz3),
141 > buf1(5,2*isiz2*isiz3)
143 common/comm/ buf, buf1,
147 double precision maxtime
151 c---------------------------------------------------------------------
152 c end of include file
153 c---------------------------------------------------------------------