--- MITgcm/pkg/mom_fluxform/mom_v_coriolis.F	2001/11/26 16:13:27	1.5
+++ MITgcm/pkg/mom_fluxform/mom_v_coriolis.F	2001/11/26 17:11:45	1.6
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_fluxform/mom_v_coriolis.F,v 1.5 2001/11/26 16:13:27 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_fluxform/mom_v_coriolis.F,v 1.6 2001/11/26 17:11:45 adcroft Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -68,6 +68,19 @@
         ENDDO
        ENDDO
       ENDIF
+
+      IF (useJamartWetPoints) THEN
+C Scale term so that only "wet" points are used
+C Due to: Jamart and Ozer, 1986, JGR 91 (C9), 10,621-10,631
+C         "Numerical Boundary Layers and Spurious Residual Flows"
+       DO j=1-Oly+1,sNy+Oly
+        DO i=1-Olx,sNx+Olx-1
+         vCoriolisTerm(i,j) = vCoriolisTerm(i,j)
+     & *4.d0/max(one, maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj)
+     &               +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) )
+        ENDDO
+       ENDDO
+      ENDIF
 
       RETURN
       END