/[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.7 by mlosch, Mon Oct 10 05:53:48 2005 UTC revision 1.8 by heimbach, Tue Apr 4 14:52:43 2006 UTC
# Line 22  C !USES: =============================== Line 22  C !USES: ===============================
22  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
23  #include "PTRACERS.h"  #include "PTRACERS.h"
24  #include "GAD.h"  #include "GAD.h"
25    #ifdef ALLOW_AUTODIFF_TAMC
26    # include "tamc.h"
27    # include "tamc_keys.h"
28    #endif
29    
30  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
31  C  bi,bj                :: tile indices  C  bi,bj                :: tile indices
# Line 50  CEOP Line 54  CEOP
54  C Loop over tracers  C Loop over tracers
55        DO iTracer=1,PTRACERS_numInUse        DO iTracer=1,PTRACERS_numInUse
56    
57    #ifdef ALLOW_AUTODIFF_TAMC
58              act0 = iTracer - 1
59              max0 = PTRACERS_num
60              act1 = bi - myBxLo(myThid)
61              max1 = myBxHi(myThid) - myBxLo(myThid) + 1
62              act2 = bj - myByLo(myThid)
63              max2 = myByHi(myThid) - myByLo(myThid) + 1
64              act3 = myThid - 1
65              max3 = nTx*nTy
66              act4 = ikey_dynamics - 1
67              iptrkey = (act0 + 1)
68         &                      + act1*max0
69         &                      + act2*max0*max1
70         &                      + act3*max0*max1*max2
71         &                      + act4*max0*max1*max2*max3
72    #endif /* ALLOW_AUTODIFF_TAMC */
73    
74    #ifdef ALLOW_AUTODIFF_TAMC
75    CADJ STORE ptracer(:,:,:,bi,bj,iTracer)
76    CADJ &      = comlev1_bibj_ptracers, key=iptrkey, byte=isbyte
77    #endif /* ALLOW_AUTODIFF_TAMC */
78    
79         IF (         IF (
80       &     multiDimAdvection .AND.       &     multiDimAdvection .AND.
81       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.       &     PTRACERS_advScheme(iTracer).NE.ENUM_CENTERED_2ND .AND.
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22