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

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

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

revision 1.6 by heimbach, Tue Jan 18 19:37:41 2011 UTC revision 1.7 by jmc, Thu Mar 8 17:13:31 2012 UTC
# Line 18  C !USES: =============================== Line 18  C !USES: ===============================
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
20  #include "PTRACERS_PARAMS.h"  #include "PTRACERS_PARAMS.h"
21    #include "PTRACERS_START.h"
22  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
23  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
24  # include "tamc.h"  # include "tamc.h"
# Line 46  CEOP Line 47  CEOP
47    
48  C Loop over tracers  C Loop over tracers
49        DO iTracer=1,PTRACERS_numInUse        DO iTracer=1,PTRACERS_numInUse
50           IF ( PTRACERS_StepFwd(iTracer) ) THEN
51    
52  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
53            act0 = iTracer - 1            act0 = iTracer - 1
# Line 67  CADJ STORE pTracer(:,:,k,bi,bj,iTracer) Line 69  CADJ STORE pTracer(:,:,k,bi,bj,iTracer)
69  CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte  CADJ &      = comlev1_bibj_k_ptracers, key=kkey, byte=isbyte
70  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
71    
72         CALL CONVECTIVELY_MIXTRACER(           CALL CONVECTIVELY_MIXTRACER(
73       I         bi,bj,k,weightA,weightB,       I           bi,bj,k,weightA,weightB,
74       U         pTracer(1-Olx,1-Oly,1,1,1,iTracer),       U           pTracer(1-OLx,1-OLy,1,1,1,iTracer),
75       I         myThid)       I           myThid )
76    
77  C End of tracer loop  C End of tracer loop
78           ENDIF
79        ENDDO        ENDDO
80    
81  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22