pkg/mom_fluxform/mom_u_coriolis_nh.F

C $Header: /u/gcmpack/MITgcm/pkg/mom_fluxform/mom_u_coriolis.F,v 1.6 2001/11/26 17:15:56 adcroft Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP
C !ROUTINE: MOM_U_CORIOLIS

C !INTERFACE: ==========================================================
      SUBROUTINE MOM_U_CORIOLIS_NH( 
     I        bi,bj,k,wFld,
     U        uCoriolisTerm,
     I        myThid)

C !DESCRIPTION:
C Calculates the horizontal Coriolis term in the zonal equation:
C \begin{equation*}
C \overline{f}^i \overline{v}^{ij}
C \end{equation*}

C !USES: ===============================================================
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"

C !INPUT PARAMETERS: ===================================================
C  bi,bj                :: tile indices
C  k                    :: vertical level
C  wFld                 :: vertical flow
C  myThid               :: thread number
      INTEGER bi,bj,K
      _RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      INTEGER myThid

C !OUTPUT PARAMETERS: ==================================================
C  uCoriolisTerm        :: Coriolis term
      _RL uCoriolisTerm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)

C !LOCAL VARIABLES: ====================================================
C  i,j                  :: loop indices
      INTEGER i,j,kp1
      _RL wMsk
CEOP


      kp1=min(k+1,Nr)
      wMsk=1.
      IF (k.EQ.Nr) wMsk=0.

C Energy conserving discretization of 2*Omega*cos(phi)*w
      DO j=1-Oly,sNy+Oly-1
       DO i=1-Olx+1,sNx+Olx
        uCoriolisTerm(i,j) =
     &   -0.5*( fCoriCos( i ,j,bi,bj)
     &         *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk )
     &        + fCoriCos(i-1,j,bi,bj)
     &         *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) )
     &    *gravitySign*recip_horiVertRatio
       ENDDO
      ENDDO

      RETURN
      END
1	adcroft	1.1	C $Header: /u/gcmpack/MITgcm/pkg/mom_fluxform/mom_u_coriolis.F,v 1.6 2001/11/26 17:15:56 adcroft Exp $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: MOM_U_CORIOLIS
8
9			C !INTERFACE: ==========================================================
10			SUBROUTINE MOM_U_CORIOLIS_NH(
11			I bi,bj,k,wFld,
12			U uCoriolisTerm,
13			I myThid)
14
15			C !DESCRIPTION:
16			C Calculates the horizontal Coriolis term in the zonal equation:
17			C \begin{equation*}
18			C \overline{f}^i \overline{v}^{ij}
19			C \end{equation*}
20
21			C !USES: ===============================================================
22			IMPLICIT NONE
23			#include "SIZE.h"
24			#include "EEPARAMS.h"
25			#include "PARAMS.h"
26			#include "GRID.h"
27
28			C !INPUT PARAMETERS: ===================================================
29			C bi,bj :: tile indices
30			C k :: vertical level
31			C wFld :: vertical flow
32			C myThid :: thread number
33			INTEGER bi,bj,K
34			_RL wFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
35			INTEGER myThid
36
37			C !OUTPUT PARAMETERS: ==================================================
38			C uCoriolisTerm :: Coriolis term
39			_RL uCoriolisTerm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
40
41			C !LOCAL VARIABLES: ====================================================
42			C i,j :: loop indices
43			INTEGER i,j,kp1
44			_RL wMsk
45			CEOP
46
47
48			kp1=min(k+1,Nr)
49			wMsk=1.
50			IF (k.EQ.Nr) wMsk=0.
51
52			C Energy conserving discretization of 2Omegacos(phi)*w
53			DO j=1-Oly,sNy+Oly-1
54			DO i=1-Olx+1,sNx+Olx
55			uCoriolisTerm(i,j) =
56			& -0.5*( fCoriCos( i ,j,bi,bj)
57			& 0.5( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk )
58			& + fCoriCos(i-1,j,bi,bj)
59			& 0.5( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) )
60			& gravitySignrecip_horiVertRatio
61			ENDDO
62			ENDDO
63
64			RETURN
65			END