Symbol Description Uses
ecm2 5



File Line number Procedure Code
./pkg/seaice/seaice_calc_viscosities.F 118 SEAICE_CALC_VISCOSITIES
     &         (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2)
./pkg/seaice/seaice_calc_viscosities.F 119 SEAICE_CALC_VISCOSITIES
     &         + 4. _d 0*ecm2*e12Csqr(i,j)
./pkg/seaice/seaice_calc_viscosities.F 120 SEAICE_CALC_VISCOSITIES
     &         + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2)
./pkg/seaice/seaice_calc_viscosities.F 83 SEAICE_CALC_VISCOSITIES
      ecm2=0. _d 0
./pkg/seaice/seaice_calc_viscosities.F 84 SEAICE_CALC_VISCOSITIES
      IF ( SEAICE_eccen .NE. 0. _d 0 ) ecm2=ONE/(SEAICE_eccen**2)