/[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.140 by jmc, Mon Oct 20 23:51:39 2008 UTC revision 1.141 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 336  C--     Start computation of dynamics Line 336  C--     Start computation of dynamics
336    
337  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
338  CADJ STORE wvel (:,:,:,bi,bj) =  CADJ STORE wvel (:,:,:,bi,bj) =
339  CADJ &     comlev1_bibj, key = idynkey, byte = isbyte  CADJ &     comlev1_bibj, key=idynkey, byte=isbyte
340  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
341    
342  C--     Explicit part of the Surface Potentiel Gradient (add in TIMESTEP)  C--     Explicit part of the Surface Potentiel Gradient (add in TIMESTEP)
Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141
  ViewVC Help
Powered by ViewVC 1.1.22