2 c---------------------------------------------------------------------
3 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
8 c---------------------------------------------------------------------
10 c---------------------------------------------------------------------
11 c set the boundary values of dependent variables
12 c---------------------------------------------------------------------
18 c---------------------------------------------------------------------
20 c---------------------------------------------------------------------
24 c---------------------------------------------------------------------
25 c set the dependent variable values along the top and bottom faces
26 c---------------------------------------------------------------------
31 call exact( iglob, jglob, 1, u( 1, i, j, 1 ) )
32 call exact( iglob, jglob, nz, u( 1, i, j, nz ) )
36 c---------------------------------------------------------------------
37 c set the dependent variable values along north and south faces
38 c---------------------------------------------------------------------
43 call exact( iglob, 1, k, u( 1, i, 1, k ) )
52 call exact( iglob, ny0, k, u( 1, i, ny, k ) )
57 c---------------------------------------------------------------------
58 c set the dependent variable values along east and west faces
59 c---------------------------------------------------------------------
64 call exact( 1, jglob, k, u( 1, 1, j, k ) )
73 call exact( nx0, jglob, k, u( 1, nx, j, k ) )