Symbol Description Uses
ecm2 5



File Line number Procedure Code
./pkg/seaice/seaice_calc_viscosities.F 71 SEAICE_CALC_VISCOSITIES
      ecm2=0. _d 0
./pkg/seaice/seaice_calc_viscosities.F 72 SEAICE_CALC_VISCOSITIES
      IF ( SEAICE_eccen .NE. 0. _d 0 ) ecm2=ONE/(SEAICE_eccen**2)
./pkg/seaice/seaice_calc_viscosities.F 86 SEAICE_CALC_VISCOSITIES
          deltaC = (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2)
./pkg/seaice/seaice_calc_viscosities.F 87 SEAICE_CALC_VISCOSITIES
     &         + 4. _d 0*ecm2*e12C(i,j)**2
./pkg/seaice/seaice_calc_viscosities.F 88 SEAICE_CALC_VISCOSITIES
     &         + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2)