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	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