--- MITgcm/pkg/mom_vecinv/mom_vi_u_coriolis.F 2004/06/02 13:23:55 1.5 +++ MITgcm/pkg/mom_vecinv/mom_vi_u_coriolis.F 2004/06/14 17:48:17 1.6 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_vecinv/mom_vi_u_coriolis.F,v 1.5 2004/06/02 13:23:55 adcroft Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/mom_vecinv/mom_vi_u_coriolis.F,v 1.6 2004/06/14 17:48:17 adcroft Exp $ C $Name: $ #include "CPP_OPTIONS.h" @@ -94,7 +94,7 @@ ENDIF ENDIF - IF (useJamartWetpoints) + IF (useJamartMomAdv) & vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) & * MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) & +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) )