| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_readparms.F |
193 |
LAND_READPARMS |
tmpvar = 0. _d 0 |
|
./pkg/land/land_readparms.F |
195 |
LAND_READPARMS |
tmpvar = tmpvar+land_dzF(k) |
|
./pkg/land/land_readparms.F |
196 |
LAND_READPARMS |
IF (tmpvar.GT.0. _d 0) land_rec_dzC(k) = 2. _d 0 / tmpvar |
|
./pkg/land/land_readparms.F |
197 |
LAND_READPARMS |
tmpvar = land_dzF(k) |
|
./pkg/land/land_readparms.F |
51 |
LAND_READPARMS |
_RL tmpvar |
|
./model/src/solve_tridiagonal.F |
157 |
SOLVE_TRIDIAGONAL |
tmpvar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1) |
|
./model/src/solve_tridiagonal.F |
158 |
SOLVE_TRIDIAGONAL |
IF ( tmpvar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
159 |
SOLVE_TRIDIAGONAL |
c3d_prime(k) = c3d_m1(i,j,k) / tmpvar |
|
./model/src/solve_tridiagonal.F |
161 |
SOLVE_TRIDIAGONAL |
& / tmpvar |
|
./model/src/solve_tridiagonal.F |
54 |
SOLVE_TRIDIAGONAL |
_RL tmpvar |
|
./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 |
85 |
SOLVE_TRIDIAGONAL |
IF ( tmpvar .NE. 0. _d 0 ) THEN |
|
./model/src/solve_tridiagonal.F |
86 |
SOLVE_TRIDIAGONAL |
bet(i,j,k) = 1. _d 0 / tmpvar |