*** /home/wilhel06/thesis/orig_source/surfer-V3.1.1/source/momentum.f	Tue Oct 30 11:57:36 2001
--- momentum.f	Sat Feb  2 21:06:14 2002
***************
*** 176,182 ****
           do i=2,nx-1
              w1(i,j) = u(i,j) + a(i-1,j)*(S12(i,j+1) - S12(i,j)
       *           + S11(i,j) - S11(i-1,j))
! c     *          + xstdgrav
  c
              w2(i,j) = v(i,j) + c(i,j-1)*(S12(i+1,j) -S12(i,j)
       *            + S22(i,j) - S22( i,j-1)) 
--- 176,182 ----
           do i=2,nx-1
              w1(i,j) = u(i,j) + a(i-1,j)*(S12(i,j+1) - S12(i,j)
       *           + S11(i,j) - S11(i-1,j))
!      *          + xstdgrav
  c
              w2(i,j) = v(i,j) + c(i,j-1)*(S12(i+1,j) -S12(i,j)
       *            + S22(i,j) - S22( i,j-1)) 
