| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
57 |
LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
612 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
619 |
LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/lsr.F |
624 |
LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/lsr.F |
628 |
LSR |
IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
629 |
LSR |
S1A=S1 |
|
./pkg/seaice/lsr.F |
630 |
LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
681 |
LSR |
& ' nIt,wFU,dU=', ICOUNT1, WFAU, S1, |
|
./pkg/seaice/lsr.F |
914 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
921 |
LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/lsr.F |
926 |
LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/lsr.F |
928 |
LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
929 |
LSR |
S1A=S1 |
|
./pkg/seaice/lsr.F |
930 |
LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
943 |
LSR |
write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/seaice_lsr.F |
266 |
SEAICE_LSR |
S1 = 0. |
|
./pkg/seaice/seaice_lsr.F |
808 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
815 |
SEAICE_LSR |
S1=MAX(ABS(UERR),S1) |
|
./pkg/seaice/seaice_lsr.F |
820 |
SEAICE_LSR |
_GLOBAL_MAX_RL( S1, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
824 |
SEAICE_LSR |
IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
825 |
SEAICE_LSR |
S1A=S1 |
|
./pkg/seaice/seaice_lsr.F |
826 |
SEAICE_LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
891 |
SEAICE_LSR |
& ICOUNT1, S1, residUend |
|
./pkg/seaice/seaice_lsr.F |
913 |
SEAICE_LSR |
& ' nIt,wFU,dU=', ICOUNT1, WFAU, S1, |
|
./pkg/seaice/seaice_lsr.F |
92 |
SEAICE_LSR |
_RL S1, S2, S1A, S2A |