Symbol Description Uses
ECM2 8



File Line number Procedure Code
./pkg/seaice/dynsolver.F 60 DYNSOLVER
      _RL ECCEN, ECM2, PSTAR, AAA
./pkg/seaice/dynsolver.F 69 DYNSOLVER
      ECM2=ONE/(ECCEN**2)
./pkg/seaice/lsr.F 165 LSR
      ECM2= 1. _d 0/(SEAICE_eccen**2)
./pkg/seaice/lsr.F 202 LSR
          DELT1=(e11loc**2+e22loc**2)*(1. _d 0+ECM2)
./pkg/seaice/lsr.F 203 LSR
     &         +4.0 _d 0*ECM2*e12loc**2
./pkg/seaice/lsr.F 204 LSR
     &         +2.0 _d 0*e11loc*e22loc*(1. _d 0-ECM2)
./pkg/seaice/lsr.F 216 LSR
          ETA(I,J,bi,bj)   = ECM2*ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 63 LSR
      _RL ECM2, DELT1, DELT2