| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
49 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
619 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
624 |
SEAICE_LSR |
S2=MAX(ABS(UERR(I,J,bi,bj)),S2) |
|
./pkg/seaice/seaice_lsr.F |
627 |
SEAICE_LSR |
_GLOBAL_MAX_R8( S2, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
631 |
SEAICE_LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
632 |
SEAICE_LSR |
S2A=S2 |
|
./pkg/seaice/seaice_lsr.F |
633 |
SEAICE_LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
654 |
SEAICE_LSR |
write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/lsr.F |
49 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
548 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
553 |
LSR |
S2=MAX(ABS(UERR(I,J,bi,bj)),S2) |
|
./pkg/seaice/lsr.F |
556 |
LSR |
_GLOBAL_MAX_R8( S2, myThid ) |
|
./pkg/seaice/lsr.F |
560 |
LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
561 |
LSR |
S2A=S2 |
|
./pkg/seaice/lsr.F |
562 |
LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
583 |
LSR |
write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2 |