| 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 |
579 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
586 |
SEAICE_LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/seaice_lsr.F |
591 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
595 |
SEAICE_LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
596 |
SEAICE_LSR |
S1A=S1 |
|
./pkg/seaice/seaice_lsr.F |
597 |
SEAICE_LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
612 |
SEAICE_LSR |
& ' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/seaice_lsr.F |
616 |
SEAICE_LSR |
IF (S1.EQ.0.D0.AND.ICOUNT1.GT.SOLV_NCHECK) |
|
./pkg/seaice/seaice_lsr.F |
63 |
SEAICE_LSR |
_RL AA3, S1, S2, S1A, S2A |