| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
392 |
SEAICE_LSR |
S1=ZERO |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
S1=MAX(ABS(UERR(I,J,bi,bj)),S1) |
|
./pkg/seaice/seaice_lsr.F |
400 |
SEAICE_LSR |
_GLOBAL_MAX_R8( S1, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
404 |
SEAICE_LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
405 |
SEAICE_LSR |
S1A=S1 |
|
./pkg/seaice/seaice_lsr.F |
406 |
SEAICE_LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/seaice_lsr.F |
426 |
SEAICE_LSR |
write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/seaice_lsr.F |
49 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
310 |
LSR |
S1=ZERO |
|
./pkg/seaice/lsr.F |
315 |
LSR |
S1=MAX(ABS(UERR(I,J,bi,bj)),S1) |
|
./pkg/seaice/lsr.F |
318 |
LSR |
_GLOBAL_MAX_R8( S1, myThid ) |
|
./pkg/seaice/lsr.F |
322 |
LSR |
IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
323 |
LSR |
S1A=S1 |
|
./pkg/seaice/lsr.F |
324 |
LSR |
IF(S1.LT.LSR_ERROR) THEN |
|
./pkg/seaice/lsr.F |
344 |
LSR |
write(*,'(A,I6,1P2E22.14)')' U lsr iters, error = ',ICOUNT1,S1 |
|
./pkg/seaice/lsr.F |
49 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |