/[MITgcm]/MITgcm/pkg/autodiff/autodiff_store.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_store.F

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

revision 1.5 by heimbach, Fri Mar 28 03:49:12 2008 UTC revision 1.6 by heimbach, Tue Sep 23 06:13:59 2008 UTC
# Line 83  c--   == end of interface == Line 83  c--   == end of interface ==
83  C--   Over all tiles  C--   Over all tiles
84        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
85         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
86    
87    #ifndef AUTODIFF_USE_OLDSTORE_2D
88  C-      2D arrays  C-      2D arrays
89          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
90           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
# Line 127  C-      2D arrays Line 129  C-      2D arrays
129  #endif  #endif
130           ENDDO           ENDDO
131          ENDDO          ENDDO
132    #endif /* AUTODIFF_USE_OLDSTORE_2D */
133    
134    #ifndef AUTODIFF_USE_OLDSTORE_3D
135  C-      3D arrays  C-      3D arrays
136          DO K=1,Nr          DO K=1,Nr
137           DO J=1-Oly,sNy+Oly           DO J=1-Oly,sNy+Oly
# Line 146  C-      3D arrays Line 151  C-      3D arrays
151            ENDDO            ENDDO
152           ENDDO           ENDDO
153          ENDDO          ENDDO
154    #endif /* AUTODIFF_USE_OLDSTORE_3D */
155    
156         ENDDO         ENDDO
157        ENDDO        ENDDO
158            
159  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
160    
161  C--   Over all tiles  C--   Over all tiles
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22