pkg/mom_vecinv/mom_vi_u_grad_ke.F

cec2469d72 Alis*0001 #include "MOM_VECINV_OPTIONS.h"
aea29c8517 Alis*0002
f1a4cec01a Jean*0003       SUBROUTINE MOM_VI_U_GRAD_KE(
                0004      I        bi,bj,k,
aea29c8517 Alis*0005      I        KE,
                0006      O        dKEdx,
                0007      I        myThid)
                0008       IMPLICIT NONE
                0009 C     /==========================================================\
                0010 C     | S/R MOM_U_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 dKEdx(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=1-OLy,sNy+OLy
                0029         DO i=2-OLx,sNx+OLx
                0030           dKEdx(i,j)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j))
                0031      &               *_maskW(i,j,k,bi,bj)*recip_deepFacC(k)
aea29c8517 Alis*0032         ENDDO
f1a4cec01a Jean*0033       ENDDO
aea29c8517 Alis*0034
                0035       RETURN
                0036       END