| File |
Line number |
Procedure |
Code |
|
./model/src/solve_tridiagonal.F |
141 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
150 |
SOLVE_TRIDIAGONAL |
y3d_prime(1) = y3d_m1(i,j,1) / b3d(i,j,1) |
|
./model/src/solve_tridiagonal.F |
153 |
SOLVE_TRIDIAGONAL |
y3d_prime(1) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
160 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k)) |
|
./model/src/solve_tridiagonal.F |
164 |
SOLVE_TRIDIAGONAL |
y3d_prime(k) = 0. _d 0 |
|
./model/src/solve_tridiagonal.F |
173 |
SOLVE_TRIDIAGONAL |
y3d_update(k)=y3d_prime(k) |
|
./model/src/solve_tridiagonal.F |
175 |
SOLVE_TRIDIAGONAL |
y3d_update(k)=y3d_prime(k)-c3d_prime(k)*y3d_update(k+1) |
|
./model/src/solve_tridiagonal.F |
58 |
SOLVE_TRIDIAGONAL |
_RL c3d_prime(Nr), y3d_prime(Nr),y3d_update(Nr) |