c Major tidy-up of ocean model source code.
c SJP 2007/06/17
c
c Defines the COMMON block /TIME1/, which was previously defined within the
c ocean model source code.
c SJP 2007/05/29

      real w1, w2
      COMMON/TIME1/W1,W2