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