/[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.100 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 334  C--       kDown  Cycles through 2,1 to p Line 335  C--       kDown  Cycles through 2,1 to p
335    
336  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
337           kkey = (idynkey-1)*Nr + k           kkey = (idynkey-1)*Nr + k
338    c
339  CADJ STORE totphihyd (:,:,k,bi,bj)  CADJ STORE totphihyd (:,:,k,bi,bj)
340  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
341    CADJ STORE gt (:,:,k,bi,bj)
342    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
343    CADJ STORE gs (:,:,k,bi,bj)
344    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
345    CADJ STORE theta (:,:,k,bi,bj)
346    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
347    CADJ STORE salt  (:,:,k,bi,bj)
348    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
349  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
350    
351  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.100
  ViewVC Help
Powered by ViewVC 1.1.22