c Rationalise the NAMELIST input for the ocean model.
c SJP 2007/11/24
c
c Defines the COMMON block /ETRANS2/, which was previously defined within the
c ocean model source code.
c SJP 2007/05/29

      real slopemx, aheq, ahe, ahefac
      common/etrans2/slopemx(km),aheq(imt,km),ahe(km),ahefac(jmt,km)