| File |
Line number |
Procedure |
Code |
|
./model/src/impldiff.F |
203 |
IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./model/src/impldiff.F |
221 |
IMPLDIFF |
IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1) |
|
./model/src/impldiff.F |
240 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
242 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./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 |
70 |
IMPLDIFF |
_RL bet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/seaice/seaice_lsr.F |
1779 |
SEAICE_LSR_TRIDIAGU |
_RL AA3, bet |
|
./pkg/seaice/seaice_lsr.F |
1826 |
SEAICE_LSR_TRIDIAGU |
bet = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J) |
|
./pkg/seaice/seaice_lsr.F |
1827 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = CUU(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1828 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet |
|
./pkg/seaice/seaice_lsr.F |
1924 |
SEAICE_LSR_TRIDIAGV |
_RL AA3, bet |
|
./pkg/seaice/seaice_lsr.F |
1979 |
SEAICE_LSR_TRIDIAGV |
bet = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM) |
|
./pkg/seaice/seaice_lsr.F |
1980 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J) = CVV(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1981 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = (VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))/bet |
|
./pkg/smooth/smooth_impldiff.F |
106 |
SMOOTH_IMPLDIFF |
bet(i,j,k) = 1. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
119 |
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 |
133 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./pkg/smooth/smooth_impldiff.F |
135 |
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 |
146 |
SMOOTH_IMPLDIFF |
gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1) |
|
./pkg/smooth/smooth_impldiff.F |
152 |
SMOOTH_IMPLDIFF |
gYnm1(i,j,k,bi,bj) = bet(i,j,k)* |
|
./pkg/smooth/smooth_impldiff.F |
42 |
SMOOTH_IMPLDIFF |
_RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/streamice/streamice_tridiag_solve.F |
103 |
STREAMICE_TRIDIAG_SOLVE |
tmpvar = bmat(i) - amat(i)*cmat(i-1)*bet(i-1) |
|
./pkg/streamice/streamice_tridiag_solve.F |
105 |
STREAMICE_TRIDIAG_SOLVE |
bet(i) = 1. _d 0 / tmpvar |
|
./pkg/streamice/streamice_tridiag_solve.F |
107 |
STREAMICE_TRIDIAG_SOLVE |
bet(i) = 0. _d 0 |
|
./pkg/streamice/streamice_tridiag_solve.F |
113 |
STREAMICE_TRIDIAG_SOLVE |
ymat(imin) = ymat(imin)*bet(imin) |
|
./pkg/streamice/streamice_tridiag_solve.F |
118 |
STREAMICE_TRIDIAG_SOLVE |
& )*bet(i) |
|
./pkg/streamice/streamice_tridiag_solve.F |
124 |
STREAMICE_TRIDIAG_SOLVE |
& - cmat(i)*bet(i)*ymat(i+1) |
|
./pkg/streamice/streamice_tridiag_solve.F |
43 |
STREAMICE_TRIDIAG_SOLVE |
_RL bet(1:Nx) |
|
./pkg/streamice/streamice_tridiag_solve.F |
96 |
STREAMICE_TRIDIAG_SOLVE |
bet(imin) = 1. _d 0 / bMat(imin) |
|
./pkg/streamice/streamice_tridiag_solve.F |
98 |
STREAMICE_TRIDIAG_SOLVE |
bet(imin) = 0. _d 0 |