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 |