| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_lsr.F |
122 |
SEAICE_LSR |
_RL resnorm, EKnorm, counter |
|
./pkg/seaice/seaice_lsr.F |
1808 |
SEAICE_LSR |
EKnorm = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1821 |
SEAICE_LSR |
EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1831 |
SEAICE_LSR |
_GLOBAL_SUM_RL( EKnorm, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
1833 |
SEAICE_LSR |
IF ( counter .gt. 0. _d 0 ) EKnorm = EKnorm/counter |
|
./pkg/seaice/seaice_lsr.F |
1836 |
SEAICE_LSR |
& ilcall, sqrt(resnorm), EKnorm |
|
./pkg/seaice/seaice_lsr.F |
947 |
SEAICE_LSR |
_RL resnorm, EKnorm, counter |