Symbol Description Uses
SEAICE_eccen sea-ice eccentricity of the elliptical yield curve 11



File Line number Procedure Code
./pkg/seaice/SEAICE_PARAMS.h 402 NO PROCEDURE
      _RL SEAICE_strength, SEAICE_eccen
./pkg/seaice/SEAICE_PARAMS.h 448 NO PROCEDURE
     &    SEAICE_strength, SEAICE_eccen,
./pkg/seaice/dynsolver.F 65 DYNSOLVER
      ECCEN=SEAICE_eccen
./pkg/seaice/lsr.F 162 LSR
      ECM2= 1. _d 0/(SEAICE_eccen**2)
./pkg/seaice/seaice_calc_viscosities.F 84 SEAICE_CALC_VISCOSITIES
      IF ( SEAICE_eccen .NE. 0. _d 0 ) ecm2=ONE/(SEAICE_eccen**2)
./pkg/seaice/seaice_evp.F 123 SEAICE_EVP
      ecc2=SEAICE_eccen**2
./pkg/seaice/seaice_init_varia.F 673 SEAICE_INIT_VARIA
          ETA(i,j,bi,bj)    = ZETA(i,j,bi,bj)/SEAICE_eccen**2
./pkg/seaice/seaice_readparms.F 129 SEAICE_READPARMS
     & SEAICE_strength, SEAICE_eccen,
./pkg/seaice/seaice_readparms.F 344 SEAICE_READPARMS
      SEAICE_eccen       = 2.     _d 0
./pkg/seaice/seaice_summary.F 154 SEAICE_SUMMARY
      CALL WRITE_0D_RL( SEAICE_eccen,INDEX_NONE,'SEAICE_eccen    =',