| File |
Line number |
Procedure |
Code |
|
./model/src/impldiff.F |
142 |
IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
168 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
169 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
170 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
200 |
IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./model/src/impldiff.F |
58 |
IMPLDIFF |
_RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/ggl90/ggl90_solve.F |
127 |
GGL90_SOLVE |
gYnm1(i,j,k)=gYnm1(i,j,k) - gam(i,j,k+1)*gYnm1(i,j,k+1) |
|
./pkg/ggl90/ggl90_solve.F |
48 |
GGL90_SOLVE |
_RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/ggl90/ggl90_solve.F |
70 |
GGL90_SOLVE |
gam(i,j,k) = 0. _d 0 |
|
./pkg/ggl90/ggl90_solve.F |
96 |
GGL90_SOLVE |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/ggl90/ggl90_solve.F |
97 |
GGL90_SOLVE |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./pkg/ggl90/ggl90_solve.F |
98 |
GGL90_SOLVE |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |