| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_fgmres.F |
476 |
SEAICE_FGMRES |
_RL r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
& hh, c, s, rs, t, ro, r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
646 |
SEAICE_FGMRES |
gam = sqrt(hh(i,i)**2 + hh(i1,i)**2) |
|
./pkg/seaice/seaice_fgmres.F |
647 |
SEAICE_FGMRES |
if (gam .eq. 0.0 _d 0) gam = epsmac |
|
./pkg/seaice/seaice_fgmres.F |
649 |
SEAICE_FGMRES |
c(i) = hh(i,i)/gam |
|
./pkg/seaice/seaice_fgmres.F |
650 |
SEAICE_FGMRES |
s(i) = hh(i1,i)/gam |
|
./model/src/impldiff.F |
202 |
IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./model/src/impldiff.F |
238 |
IMPLDIFF |
gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1) |
|
./model/src/impldiff.F |
239 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
240 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
282 |
IMPLDIFF |
locTr(i,j,k) = locTr(i,j,k) - gam(i,j,k+1)*locTr(i,j,k+1) |
|
./model/src/impldiff.F |
71 |
IMPLDIFF |
_RL gam(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
107 |
SMOOTH_IMPLDIFF |
gam(i,j,k) = 0. _d 0 |
|
./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 |
134 |
SMOOTH_IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./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 |
165 |
SMOOTH_IMPLDIFF |
& -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj) |
|
./pkg/smooth/smooth_impldiff.F |
43 |
SMOOTH_IMPLDIFF |
_RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |