| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
1159 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
1166 |
LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/lsr.F |
1171 |
LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/lsr.F |
1173 |
LSR |
IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
1174 |
LSR |
S2A=S2 |
|
./pkg/seaice/lsr.F |
1175 |
LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
1189 |
LSR |
write(*,'(A,I6,1P2E22.14)')' V lsr iters, error = ',ICOUNT2,S2 |
|
./pkg/seaice/lsr.F |
54 |
LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
634 |
LSR |
S2=ZERO |
|
./pkg/seaice/lsr.F |
641 |
LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/lsr.F |
646 |
LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/lsr.F |
648 |
LSR |
IF(m.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
649 |
LSR |
S2A=S2 |
|
./pkg/seaice/lsr.F |
650 |
LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
679 |
LSR |
& ' ; nIt,wFV,dV=', ICOUNT2, WFAV, S2 |
|
./pkg/seaice/seaice_lsr.F |
228 |
SEAICE_LSR |
S2 = 0. |
|
./pkg/seaice/seaice_lsr.F |
750 |
SEAICE_LSR |
S2=ZERO |
|
./pkg/seaice/seaice_lsr.F |
757 |
SEAICE_LSR |
S2=MAX(ABS(UERR),S2) |
|
./pkg/seaice/seaice_lsr.F |
762 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S2, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
764 |
SEAICE_LSR |
IF(m.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
765 |
SEAICE_LSR |
S2A=S2 |
|
./pkg/seaice/seaice_lsr.F |
766 |
SEAICE_LSR |
IF(S2.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
811 |
SEAICE_LSR |
& ICOUNT2, S2, residVend |
|
./pkg/seaice/seaice_lsr.F |
831 |
SEAICE_LSR |
& ' ; nIt,wFV,dV=', ICOUNT2, WFAV, S2 |
|
./pkg/seaice/seaice_lsr.F |
89 |
SEAICE_LSR |
_RL S1, S2, S1A, S2A |