File |
Line number |
Procedure |
Code |
./pkg/debug/debug_cs_corner_uv.F |
112 |
DEBUG_CS_CORNER_UV |
n3 = 0 |
./pkg/debug/debug_cs_corner_uv.F |
117 |
DEBUG_CS_CORNER_UV |
IF ( W2_tileProc(t3).EQ.myProcId+1 ) n3 = W2_tileIndex(t3) |
./pkg/debug/debug_cs_corner_uv.F |
135 |
DEBUG_CS_CORNER_UV |
IF ( n3.GE.1 .AND. exch2_pij(1,2,t1).EQ.1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
137 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpV(3,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
138 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpV(3,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
140 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpV(4,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
141 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpV(4,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
143 |
DEBUG_CS_CORNER_UV |
IF ( n3.GE.1 .AND. exch2_pij(2,2,t1).EQ.-1 ) THEN |
./pkg/debug/debug_cs_corner_uv.F |
145 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpU(4,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
146 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpU(4,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
148 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpU(3,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
149 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpU(3,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
161 |
DEBUG_CS_CORNER_UV |
n3 = 1+MOD(n1-1+5,6) |
./pkg/debug/debug_cs_corner_uv.F |
169 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1), n3,tmpV(3,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
170 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpV(3,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
172 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1), n3,tmpV(4,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
173 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpV(4,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
182 |
DEBUG_CS_CORNER_UV |
n3 = 1+MOD(n1-2+5,6) |
./pkg/debug/debug_cs_corner_uv.F |
190 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(1,k,n1), n3,tmpU(4,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
191 |
DEBUG_CS_CORNER_UV |
& tmpV(1,k,n1) - tmpU(4,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
193 |
DEBUG_CS_CORNER_UV |
& n1,tmpV(2,k,n1), n3,tmpU(3,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
194 |
DEBUG_CS_CORNER_UV |
& tmpV(2,k,n1) - tmpU(3,k,n3) |
./pkg/debug/debug_cs_corner_uv.F |
69 |
DEBUG_CS_CORNER_UV |
INTEGER n1, n2, n3 |