| File |
Line number |
Procedure |
Code |
|
./model/src/solve_uv_tridiago.F |
199 |
SOLVE_UV_TRIDIAGO |
bm = bi-1 |
|
./model/src/solve_uv_tridiago.F |
201 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTu(1,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
209 |
SOLVE_UV_TRIDIAGO |
& - aTu(1,j,bi,bj)*yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
212 |
SOLVE_UV_TRIDIAGO |
aTu(1,j,bi,bj) = - aTu(1,j,bi,bj)*aTu(2,j,bm,bj)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
215 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTu(2,j,bi,bj)*cTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
217 |
SOLVE_UV_TRIDIAGO |
& - aTu(2,j,bi,bj)*yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
221 |
SOLVE_UV_TRIDIAGO |
aTu(2,j,bi,bj) = -aTu(2,j,bi,bj)*aTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
240 |
SOLVE_UV_TRIDIAGO |
bm = 1 |
|
./model/src/solve_uv_tridiago.F |
242 |
SOLVE_UV_TRIDIAGO |
cTu(1,j,bm,bj) = oneRL + cTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
244 |
SOLVE_UV_TRIDIAGO |
tmpVar = cTu(1,j,bm,bj) * aTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
245 |
SOLVE_UV_TRIDIAGO |
& - aTu(1,j,bm,bj) * cTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
252 |
SOLVE_UV_TRIDIAGO |
uTmp1 = ( aTu(2,j,bp,bj) * yTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
253 |
SOLVE_UV_TRIDIAGO |
& - aTu(1,j,bm,bj) * yTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
255 |
SOLVE_UV_TRIDIAGO |
uTmp2 = ( cTu(1,j,bm,bj) * yTu(2,j,bp,bj) |
|
./model/src/solve_uv_tridiago.F |
256 |
SOLVE_UV_TRIDIAGO |
& - cTu(2,j,bp,bj) * yTu(1,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
281 |
SOLVE_UV_TRIDIAGO |
bm = 1 + MOD(bi-2+nSx,nSx) |
|
./model/src/solve_uv_tridiago.F |
286 |
SOLVE_UV_TRIDIAGO |
& - alpU(i,j,bi,bj) * yTu(2,j,bm,bj) |
|
./model/src/solve_uv_tridiago.F |
386 |
SOLVE_UV_TRIDIAGO |
bm = bj-1 |
|
./model/src/solve_uv_tridiago.F |
388 |
SOLVE_UV_TRIDIAGO |
tmpVar = oneRL - aTv(1,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
396 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bj)*yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
399 |
SOLVE_UV_TRIDIAGO |
aTv(1,i,bi,bj) = - aTv(1,i,bi,bj)*aTv(2,i,bi,bm)*tmpVar |
|
./model/src/solve_uv_tridiago.F |
402 |
SOLVE_UV_TRIDIAGO |
tmpVar = aTv(2,i,bi,bj)*cTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
404 |
SOLVE_UV_TRIDIAGO |
& - aTv(2,i,bi,bj)*yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
408 |
SOLVE_UV_TRIDIAGO |
aTv(2,i,bi,bj) = -aTv(2,i,bi,bj)*aTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
427 |
SOLVE_UV_TRIDIAGO |
bm = 1 |
|
./model/src/solve_uv_tridiago.F |
429 |
SOLVE_UV_TRIDIAGO |
cTv(1,i,bi,bm) = oneRL + cTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
431 |
SOLVE_UV_TRIDIAGO |
tmpVar = cTv(1,i,bi,bm) * aTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
432 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bm) * cTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
439 |
SOLVE_UV_TRIDIAGO |
vTmp1 = ( aTv(2,i,bi,bp) * yTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
440 |
SOLVE_UV_TRIDIAGO |
& - aTv(1,i,bi,bm) * yTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
442 |
SOLVE_UV_TRIDIAGO |
vTmp2 = ( cTv(1,i,bi,bm) * yTv(2,i,bi,bp) |
|
./model/src/solve_uv_tridiago.F |
443 |
SOLVE_UV_TRIDIAGO |
& - cTv(2,i,bi,bp) * yTv(1,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
468 |
SOLVE_UV_TRIDIAGO |
bm = 1 + MOD(bj-2+nSy,nSy) |
|
./model/src/solve_uv_tridiago.F |
473 |
SOLVE_UV_TRIDIAGO |
& - alpV(i,j,bi,bj) * yTv(2,i,bi,bm) |
|
./model/src/solve_uv_tridiago.F |
77 |
SOLVE_UV_TRIDIAGO |
INTEGER bi, bj, bm, bp |