/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_v_coriolis.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_v_coriolis.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by adcroft, Mon Nov 26 16:13:27 2001 UTC revision 1.6 by adcroft, Mon Nov 26 17:11:45 2001 UTC
# Line 69  C Original discretization Line 69  C Original discretization
69         ENDDO         ENDDO
70        ENDIF        ENDIF
71    
72          IF (useJamartWetPoints) THEN
73    C Scale term so that only "wet" points are used
74    C Due to: Jamart and Ozer, 1986, JGR 91 (C9), 10,621-10,631
75    C         "Numerical Boundary Layers and Spurious Residual Flows"
76           DO j=1-Oly+1,sNy+Oly
77            DO i=1-Olx,sNx+Olx-1
78             vCoriolisTerm(i,j) = vCoriolisTerm(i,j)
79         & *4.d0/max(one, maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj)
80         &               +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) )
81            ENDDO
82           ENDDO
83          ENDIF
84    
85        RETURN        RETURN
86        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22