c Major tidy-up of ocean model source code.
c SJP 2007/06/17
c
c Removed declaration of redundant variable NIMSL.
c SJP 2007/06/02
c
c Defines the COMMON block /SFC1/, which was previously defined within the
c ocean model source code.
c SJP 2007/05/29

      real strx, stry
      COMMON/SFC1/STRX(IMT,JMT,2),STRY(IMT,JMT,2)