| 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 |
1695 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1702 |
SEAICE_LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/seaice_lsr.F |
1707 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1709 |
SEAICE_LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
1710 |
SEAICE_LSR |
S2A=S2 |
|
./pkg/seaice/seaice_lsr.F |
1711 |
SEAICE_LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
1725 |
SEAICE_LSR |
write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/seaice_lsr.F |
1729 |
SEAICE_LSR |
IF (S2.EQ.0.D0)STOP'v-iteration did not converge' |
|
./pkg/seaice/seaice_lsr.F |
64 |
SEAICE_LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
827 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
834 |
SEAICE_LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/seaice_lsr.F |
839 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
841 |
SEAICE_LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
842 |
SEAICE_LSR |
S2A=S2 |
|
./pkg/seaice/seaice_lsr.F |
843 |
SEAICE_LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
858 |
SEAICE_LSR |
& ' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/seaice_lsr.F |
862 |
SEAICE_LSR |
IF (S2.EQ.0.D0.AND.ICOUNT2.GT.SOLV_NCHECK) |
|
./pkg/seaice/seaice_lsr.F |
897 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, AA8, S1, S2, S1A, S2A |