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

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

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

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