pkg/mom_vecinv/mom_vi_v_grad_ke.F

cec2469d72 Alis*0001 #include "MOM_VECINV_OPTIONS.h"
aea29c8517 Alis*0002
f1a4cec01a Jean*0003       SUBROUTINE MOM_VI_V_GRAD_KE(
                0004      I        bi,bj,k,
aea29c8517 Alis*0005      I        KE,
                0006      O        dKEdy,
                0007      I        myThid)
                0008       IMPLICIT NONE
                0009 C     /==========================================================\
                0010 C     | S/R MOM_V_GRAD_KE                                        |
                0011 C     |==========================================================|
                0012 C     \==========================================================/
                0013
                0014 C     == Global variables ==
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "GRID.h"
                0018
                0019 C     == Routine arguments ==
f1a4cec01a Jean*0020       INTEGER bi,bj,k
aea29c8517 Alis*0021       _RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
                0022       _RL dKEdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
                0023       INTEGER myThid
                0024
                0025 C     == Local variables ==
f1a4cec01a Jean*0026       INTEGER i,j
aea29c8517 Alis*0027
f1a4cec01a Jean*0028       DO j=2-OLy,sNy+OLy
                0029         DO i=1-OLx,sNx+OLx
                0030           dKEdy(i,j)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))
                0031      &               *_maskS(i,j,k,bi,bj)*recip_deepFacC(k)
aea29c8517 Alis*0032         ENDDO
f1a4cec01a Jean*0033       ENDDO
aea29c8517 Alis*0034
                0035       RETURN
                0036       END