Symbol Description Uses
EKnorm 8



File Line number Procedure Code
./pkg/seaice/seaice_lsr.F 145 SEAICE_LSR
      _RL resnorm, EKnorm, counter
./pkg/seaice/seaice_lsr.F 936 SEAICE_LSR
       EKnorm  = 0. _d 0
./pkg/seaice/seaice_lsr.F 949 SEAICE_LSR
            EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 959 SEAICE_LSR
       _GLOBAL_SUM_RL( EKnorm, myThid )
./pkg/seaice/seaice_lsr.F 961 SEAICE_LSR
       IF ( counter .gt. 0. _d 0 ) EKnorm = EKnorm/counter
./pkg/seaice/seaice_lsr.F 965 SEAICE_LSR
     &      ipass, sqrt(resnorm), EKnorm