| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
1012 |
SEAICE_RESIDUAL |
_RL residU, residV |
|
./pkg/seaice/seaice_lsr.F |
1031 |
SEAICE_RESIDUAL |
residU = 0. |
|
./pkg/seaice/seaice_lsr.F |
1057 |
SEAICE_RESIDUAL |
residU = residU + uRes(i,j,bi,bj)*uRes(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1073 |
SEAICE_RESIDUAL |
_GLOBAL_SUM_RL( residU, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1076 |
SEAICE_RESIDUAL |
IF ( residU.GT.0. ) residU = SQRT(residU/globalArea) |
|
./pkg/seaice/seaice_lsr.F |
967 |
SEAICE_RESIDUAL |
O residU, residV, uRes, vRes, |