/[MITgcm]/MITgcm/pkg/ptracers/ptracers_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_advection.F

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

revision 1.9 by jmc, Tue Jan 9 22:26:03 2007 UTC revision 1.10 by jmc, Mon Nov 5 18:48:04 2007 UTC
# Line 20  C !USES: =============================== Line 20  C !USES: ===============================
20  #include "PARAMS.h"  #include "PARAMS.h"
21  #include "DYNVARS.h"  #include "DYNVARS.h"
22  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
23  #include "PTRACERS.h"  #include "PTRACERS_PARAMS.h"
24    #include "PTRACERS_FIELDS.h"
25  #include "GAD.h"  #include "GAD.h"
26  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
27  # include "tamc.h"  # include "tamc.h"
# Line 72  C Loop over tracers Line 73  C Loop over tracers
73  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
74    
75  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
76  CADJ STORE ptracer(:,:,:,bi,bj,iTracer)  CADJ STORE pTracer(:,:,:,bi,bj,iTracer)
77  CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte  CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte
78  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
79    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22