/[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.94 by jmc, Tue Feb 18 15:25:09 2003 UTC revision 1.95 by heimbach, Fri Feb 28 02:20:52 2003 UTC
# Line 329  C--       kDown  Cycles through 2,1 to p Line 329  C--       kDown  Cycles through 2,1 to p
329    
330  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
331           kkey = (idynkey-1)*Nr + k           kkey = (idynkey-1)*Nr + k
332  CADJ STORE pressure(:,:,k,bi,bj) = comlev1_bibj_k ,  CADJ STORE totphihyd (:,:,k,bi,bj)
333  CADJ &     key=kkey , byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
334  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
335    
336  C--      Integrate hydrostatic balance for phiHyd with BC of  C--      Integrate hydrostatic balance for phiHyd with BC of
Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95
  ViewVC Help
Powered by ViewVC 1.1.22