/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vi_v_grad_ke.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vi_v_grad_ke.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Tue Jul 20 17:46:38 2004 UTC revision 1.4 by jmc, Thu Sep 10 18:08:51 2015 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "MOM_VECINV_OPTIONS.h"  #include "MOM_VECINV_OPTIONS.h"
5    
6        SUBROUTINE MOM_VI_V_GRAD_KE(        SUBROUTINE MOM_VI_V_GRAD_KE(
7       I        bi,bj,K,       I        bi,bj,k,
8       I        KE,       I        KE,
9       O        dKEdy,       O        dKEdy,
10       I        myThid)       I        myThid)
# Line 20  C     == Global variables == Line 20  C     == Global variables ==
20  #include "GRID.h"  #include "GRID.h"
21    
22  C     == Routine arguments ==  C     == Routine arguments ==
23        INTEGER bi,bj,K        INTEGER bi,bj,k
24        _RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL KE(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
25        _RL dKEdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL dKEdy(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
26        INTEGER myThid        INTEGER myThid
27    
28  C     == Local variables ==  C     == Local variables ==
29        INTEGER I,J        INTEGER i,j
30    
31         DO J=2-Oly,sNy+Oly        DO j=2-OLy,sNy+OLy
32          DO I=1-Olx,sNx+Olx          DO i=1-OLx,sNx+OLx
33           dKEdy(I,J)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))            dKEdy(i,j)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))
34       &       *_maskS(i,j,k,BI,BJ)       &               *_maskS(i,j,k,bi,bj)*recip_deepFacC(k)
35          ENDDO          ENDDO
36         ENDDO        ENDDO
37    
38        RETURN        RETURN
39        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22