/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.92 by jmc, Sat Feb 8 02:09:20 2003 UTC revision 1.93 by jmc, Tue Feb 11 04:05:32 2003 UTC
# Line 280  C--     Set up work arrays that need val Line 280  C--     Set up work arrays that need val
280          ENDDO          ENDDO
281    
282  C--     Start computation of dynamics  C--     Start computation of dynamics
283          iMin = 1-OLx+2          iMin = 0
284          iMax = sNx+OLx-1          iMax = sNx+1
285          jMin = 1-OLy+2          jMin = 0
286          jMax = sNy+OLy-1          jMax = sNy+1
287    
288  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
289  CADJ STORE wvel (:,:,:,bi,bj) =  CADJ STORE wvel (:,:,:,bi,bj) =
Legend:
Removed from v.1.92  
changed lines
  Added in v.1.93
  ViewVC Help
Powered by ViewVC 1.1.22