1 |
C $Header$ |
C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "MOM_VECINV_OPTIONS.h" |
5 |
|
|
6 |
SUBROUTINE MOM_VI_U_CORIOLIS( |
SUBROUTINE MOM_VI_U_CORIOLIS( |
7 |
I bi,bj,k, |
I bi,bj,k, |
94 |
ENDIF |
ENDIF |
95 |
ENDIF |
ENDIF |
96 |
|
|
97 |
IF (useJamartWetpoints) |
IF (useJamartMomAdv) |
98 |
& vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
& vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
99 |
& * MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) |
& * MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) |
100 |
& +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) ) |
& +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) ) |