| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
24 |
NO PROCEDURE |
INTEGER W2_NORTH, W2_SOUTH, W2_EAST, W2_WEST |
|
./pkg/exch2/W2_EXCH2_TOPOLOGY.h |
28 |
NO PROCEDURE |
PARAMETER ( W2_WEST = 4 ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
129 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_EAST .AND. ii.EQ.W2_WEST ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
158 |
W2_SET_MAP_CUMSUM |
IF ( i.EQ.W2_WEST .AND. ii.EQ.W2_EAST ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
176 |
W2_SET_MAP_CUMSUM |
IF ( ( i.EQ.W2_NORTH .AND. ii.EQ.W2_WEST ) .OR. |
|
./pkg/exch2/w2_set_map_cumsum.F |
177 |
W2_SET_MAP_CUMSUM |
& ( i.EQ.W2_WEST .AND. ii.EQ.W2_NORTH ) ) THEN |
|
./pkg/flt/flt_exch2.F |
146 |
FLT_EXCH2 |
fltbuf_send(ic+1,bi,bj,W2_WEST) = npart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
147 |
FLT_EXCH2 |
fltbuf_send(ic+2,bi,bj,W2_WEST) = tstart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
149 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = ipart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
151 |
FLT_EXCH2 |
fltbuf_send(ic+3,bi,bj,W2_WEST) = iNew |
|
./pkg/flt/flt_exch2.F |
153 |
FLT_EXCH2 |
fltbuf_send(ic+4,bi,bj,W2_WEST) = jpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
154 |
FLT_EXCH2 |
fltbuf_send(ic+5,bi,bj,W2_WEST) = kpart(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
155 |
FLT_EXCH2 |
fltbuf_send(ic+6,bi,bj,W2_WEST) = kfloat(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
156 |
FLT_EXCH2 |
fltbuf_send(ic+7,bi,bj,W2_WEST) = iup(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
157 |
FLT_EXCH2 |
fltbuf_send(ic+8,bi,bj,W2_WEST) = itop(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
158 |
FLT_EXCH2 |
fltbuf_send(ic+9,bi,bj,W2_WEST) = tend(ip,bi,bj) |
|
./pkg/flt/flt_exch2.F |
421 |
FLT_EXCH2 |
IF ( fltbuf_recv(ic+1,bi,bj,W2_WEST).NE.0. ) THEN |
|
./pkg/flt/flt_exch2.F |
425 |
FLT_EXCH2 |
npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
426 |
FLT_EXCH2 |
tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
428 |
FLT_EXCH2 |
jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
429 |
FLT_EXCH2 |
kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
430 |
FLT_EXCH2 |
kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
431 |
FLT_EXCH2 |
iup( jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
432 |
FLT_EXCH2 |
itop( jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
433 |
FLT_EXCH2 |
tend( jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST) |
|
./pkg/flt/flt_exch2.F |
94 |
FLT_EXCH2 |
& .AND. facet_link(W2_WEST,myFace).EQ.0. |