| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
53 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
581 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
588 |
LSR |
S2=MAX(ABS(UERR(I,J,bi,bj)),S2) |
|
./pkg/seaice/lsr.F |
593 |
LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/lsr.F |
595 |
LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
596 |
LSR |
S2A=S2 |
|
./pkg/seaice/lsr.F |
597 |
LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
611 |
LSR |
write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/seaice_lsr.F |
63 |
SEAICE_LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
826 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
833 |
SEAICE_LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/seaice_lsr.F |
838 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
840 |
SEAICE_LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
841 |
SEAICE_LSR |
S2A=S2 |
|
./pkg/seaice/seaice_lsr.F |
842 |
SEAICE_LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
857 |
SEAICE_LSR |
& ' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/seaice_lsr.F |
861 |
SEAICE_LSR |
IF (S2.EQ.0.D0.AND.ICOUNT2.GT.SOLV_NCHECK) |