| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
54 |
LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
609 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
616 |
LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/lsr.F |
621 |
LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/lsr.F |
625 |
LSR |
IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
626 |
LSR |
S1A=S1 |
|
./pkg/seaice/lsr.F |
627 |
LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
678 |
LSR |
& ' nIt,wFU,dU=', ICOUNT1, WFAU, S1, |
|
./pkg/seaice/lsr.F |
911 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
918 |
LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/lsr.F |
923 |
LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/lsr.F |
925 |
LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
926 |
LSR |
S1A=S1 |
|
./pkg/seaice/lsr.F |
927 |
LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
940 |
LSR |
write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/seaice_lsr.F |
227 |
SEAICE_LSR |
S1 = 0. |
|
./pkg/seaice/seaice_lsr.F |
725 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
732 |
SEAICE_LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/seaice_lsr.F |
737 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
741 |
SEAICE_LSR |
IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
742 |
SEAICE_LSR |
S1A=S1 |
|
./pkg/seaice/seaice_lsr.F |
743 |
SEAICE_LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
808 |
SEAICE_LSR |
& ICOUNT1, S1, residUend |
|
./pkg/seaice/seaice_lsr.F |
830 |
SEAICE_LSR |
& ' nIt,wFU,dU=', ICOUNT1, WFAU, S1, |
|
./pkg/seaice/seaice_lsr.F |
89 |
SEAICE_LSR |
_RL S1, S2, S1A, S2A |