/[MITgcm]/MITgcm/pkg/mom_common/mom_calc_ke.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_calc_ke.F

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

revision 1.5 by jmc, Sun Mar 4 23:13:07 2012 UTC revision 1.6 by jmc, Fri Apr 4 20:08:11 2014 UTC
# Line 53  C                 1  /  ___I    ___J   \ Line 53  C                 1  /  ___I    ___J   \
53  C           KE = --- |   U    +  V     |  C           KE = --- |   U    +  V     |
54  C                 2  \                 /  C                 2  \                 /
55  C  C
56  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF
57        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
58         DO i=1-OLx,sNx+OLx         DO i=1-OLx,sNx+OLx
59           KE(i,j) = 0.           KE(i,j) = 0.
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22