/[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.98 by heimbach, Tue Jul 8 15:00:26 2003 UTC revision 1.99 by heimbach, Thu Oct 2 21:33:54 2003 UTC
# Line 334  C--       kDown  Cycles through 2,1 to p Line 334  C--       kDown  Cycles through 2,1 to p
334    
335  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
336           kkey = (idynkey-1)*Nr + k           kkey = (idynkey-1)*Nr + k
337    c
338  CADJ STORE totphihyd (:,:,k,bi,bj)  CADJ STORE totphihyd (:,:,k,bi,bj)
339  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
340    CADJ STORE gt (:,:,k,bi,bj)
341    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
342    CADJ STORE gs (:,:,k,bi,bj)
343    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
344    CADJ STORE theta (:,:,k,bi,bj)
345    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
346    CADJ STORE salt  (:,:,k,bi,bj)
347    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
348  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
349    
350  C--      Integrate hydrostatic balance for phiHyd with BC of  C--      Integrate hydrostatic balance for phiHyd with BC of
Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99
  ViewVC Help
Powered by ViewVC 1.1.22