| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
333 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
340 |
LSR |
S1=MAX(ABS(UERR(I,J,bi,bj)),S1) |
|
./pkg/seaice/lsr.F |
345 |
LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/lsr.F |
347 |
LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
348 |
LSR |
S1A=S1 |
|
./pkg/seaice/lsr.F |
349 |
LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
362 |
LSR |
write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/lsr.F |
53 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
1405 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1412 |
SEAICE_LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/seaice_lsr.F |
1417 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1419 |
SEAICE_LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
1420 |
SEAICE_LSR |
S1A=S1 |
|
./pkg/seaice/seaice_lsr.F |
1421 |
SEAICE_LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
1435 |
SEAICE_LSR |
write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/seaice_lsr.F |
1439 |
SEAICE_LSR |
IF (S1.EQ.0.D0)STOP'u-iteration did not converge' |
|
./pkg/seaice/seaice_lsr.F |
580 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
587 |
SEAICE_LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/seaice_lsr.F |
592 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
596 |
SEAICE_LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
597 |
SEAICE_LSR |
S1A=S1 |
|
./pkg/seaice/seaice_lsr.F |
598 |
SEAICE_LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
613 |
SEAICE_LSR |
& ' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/seaice_lsr.F |
617 |
SEAICE_LSR |
IF (S1.EQ.0.D0.AND.ICOUNT1.GT.SOLV_NCHECK) |
|
./pkg/seaice/seaice_lsr.F |
64 |
SEAICE_LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
897 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, AA8, S1, S2, S1A, S2A |