Symbol Description Uses
EKnorm 8



File Line number Procedure Code
./pkg/seaice/seaice_lsr.F 121 SEAICE_LSR
      _RL resnorm, EKnorm, counter
./pkg/seaice/seaice_lsr.F 939 SEAICE_LSR
       EKnorm  = 0. _d 0
./pkg/seaice/seaice_lsr.F 952 SEAICE_LSR
            EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 962 SEAICE_LSR
       _GLOBAL_SUM_RL( EKnorm, myThid )
./pkg/seaice/seaice_lsr.F 964 SEAICE_LSR
       IF ( counter .gt. 0. _d 0 ) EKnorm = EKnorm/counter
./pkg/seaice/seaice_lsr.F 967 SEAICE_LSR
     &      ilcall, sqrt(resnorm), EKnorm