| File |
Line number |
Procedure |
Code |
|
./pkg/smooth/smooth_impldiff.F |
121 |
SMOOTH_IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
134 |
SMOOTH_IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
148 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/smooth/smooth_impldiff.F |
150 |
SMOOTH_IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./pkg/smooth/smooth_impldiff.F |
161 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
167 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
57 |
SMOOTH_IMPLDIFF |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/impldiff.F |
198 |
IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./model/src/impldiff.F |
216 |
IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./model/src/impldiff.F |
235 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
237 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
253 |
IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./model/src/impldiff.F |
264 |
IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./model/src/impldiff.F |
67 |
IMPLDIFF |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
105 |
SOLVE_TRIDIAGONAL |
& )*bet(i,j,k) |
|
./model/src/solve_tridiagonal.F |
116 |
SOLVE_TRIDIAGONAL |
& - c3d(i,j,k)*bet(i,j,k)*y3d(i,j,k+1,bi,bj) |
|
./model/src/solve_tridiagonal.F |
56 |
SOLVE_TRIDIAGONAL |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/solve_tridiagonal.F |
72 |
SOLVE_TRIDIAGONAL |
bet(i,j,1) = 1. _d 0 / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
74 |
SOLVE_TRIDIAGONAL |
bet(i,j,1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
84 |
SOLVE_TRIDIAGONAL |
tmpvar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/solve_tridiagonal.F |
86 |
SOLVE_TRIDIAGONAL |
bet(i,j,k) = 1. _d 0 / tmpvar |
|
./model/src/solve_tridiagonal.F |
88 |
SOLVE_TRIDIAGONAL |
bet(i,j,k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
97 |
SOLVE_TRIDIAGONAL |
y3d(i,j,1,bi,bj) = y3d(i,j,1,bi,bj)*bet(i,j,1) |