| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
1162 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
1169 |
LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/lsr.F |
1174 |
LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/lsr.F |
1176 |
LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
1177 |
LSR |
S2A=S2 |
|
./pkg/seaice/lsr.F |
1178 |
LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
1192 |
LSR |
write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/lsr.F |
57 |
LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
637 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
644 |
LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/lsr.F |
649 |
LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/lsr.F |
651 |
LSR |
IF(m.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
652 |
LSR |
S2A=S2 |
|
./pkg/seaice/lsr.F |
653 |
LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
682 |
LSR |
& ' ; nIt,wFV,dV=', ICOUNT2, WFAV, S2 |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
S2 = 0. |
|
./pkg/seaice/seaice_lsr.F |
833 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
840 |
SEAICE_LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/seaice_lsr.F |
845 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
847 |
SEAICE_LSR |
IF(m.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
848 |
SEAICE_LSR |
S2A=S2 |
|
./pkg/seaice/seaice_lsr.F |
849 |
SEAICE_LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
894 |
SEAICE_LSR |
& ICOUNT2, S2, residVend |
|
./pkg/seaice/seaice_lsr.F |
914 |
SEAICE_LSR |
& ' ; nIt,wFV,dV=', ICOUNT2, WFAV, S2 |
|
./pkg/seaice/seaice_lsr.F |
92 |
SEAICE_LSR |
_RL S1, S2, S1A, S2A |