pkg/mom_vecinv/mom_vi_v_grad_ke.F

C $Header: $
C $Name: $

#include "CPP_OPTIONS.h"

      SUBROUTINE MOM_VI_V_GRAD_KE( 
     I        bi,bj,K,
     I        KE,
     O        dKEdy,
     I        myThid)
      IMPLICIT NONE
C     /==========================================================\
C     | S/R MOM_V_GRAD_KE                                        |
C     |==========================================================|
C     \==========================================================/

C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "GRID.h"

C     == Routine arguments ==
      INTEGER bi,bj,K
      _RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
      _RL dKEdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
      INTEGER myThid

C     == Local variables ==
      INTEGER I,J

       DO J=2-Oly,sNy+Oly
        DO I=1-Olx,sNx+Olx
         dKEdy(I,J)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))
     &       *_maskS(i,j,k,BI,BJ)
        ENDDO
       ENDDO

      RETURN
      END
1	adcroft	1.1.2.1	C $Header: $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			SUBROUTINE MOM_VI_V_GRAD_KE(
7			I bi,bj,K,
8			I KE,
9			O dKEdy,
10			I myThid)
11			IMPLICIT NONE
12			C /==========================================================\
13			C \| S/R MOM_V_GRAD_KE \|
14			C \|==========================================================\|
15			C \==========================================================/
16
17			C == Global variables ==
18			#include "SIZE.h"
19			#include "EEPARAMS.h"
20			#include "GRID.h"
21
22			C == Routine arguments ==
23			INTEGER bi,bj,K
24			_RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
25			_RL dKEdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
26			INTEGER myThid
27
28			C == Local variables ==
29			INTEGER I,J
30
31			DO J=2-Oly,sNy+Oly
32			DO I=1-Olx,sNx+Olx
33			dKEdy(I,J)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))
34			& *_maskS(i,j,k,BI,BJ)
35			ENDDO
36			ENDDO
37
38			RETURN
39			END