File |
Line number |
Procedure |
Code |
./model/src/impldiff.F |
117 |
IMPLDIFF |
locTr(i,j,k) = 0. _d 0 |
./model/src/impldiff.F |
257 |
IMPLDIFF |
locTr(i,j,1) = gTracer(i,j,1)*bet(i,j,1) |
./model/src/impldiff.F |
268 |
IMPLDIFF |
locTr(i,j,k) = bet(i,j,k)* |
./model/src/impldiff.F |
269 |
IMPLDIFF |
& (gTracer(i,j,k) - a(i,j,k)*locTr(i,j,k-1)) |
./model/src/impldiff.F |
284 |
IMPLDIFF |
locTr(i,j,k) = locTr(i,j,k) - gam(i,j,k+1)*locTr(i,j,k+1) |
./model/src/impldiff.F |
297 |
IMPLDIFF |
gTracer(i,j,k) = locTr(i,j,k) |
./model/src/impldiff.F |
66 |
IMPLDIFF |
_RL locTr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |