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

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

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

revision 1.9 by jmc, Thu Dec 1 14:27:53 2011 UTC revision 1.10 by jmc, Thu Mar 8 17:13:31 2012 UTC
# Line 30  C !USES: =============================== Line 30  C !USES: ===============================
30  #endif  #endif
31  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
32  #include "PTRACERS_PARAMS.h"  #include "PTRACERS_PARAMS.h"
33    #include "PTRACERS_START.h"
34  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
35  #include "PARAMS.h"  #include "PARAMS.h"
36  #include "GRID.h"  #include "GRID.h"
# Line 72  CEOP Line 73  CEOP
73    
74  C Loop over tracers  C Loop over tracers
75        DO iTracer=1,PTRACERS_numInUse        DO iTracer=1,PTRACERS_numInUse
76           IF ( PTRACERS_StepFwd(iTracer) ) THEN
77    
78  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
79            act0 = iTracer - 1            act0 = iTracer - 1
# Line 146  C--     Apply open boundary conditions Line 148  C--     Apply open boundary conditions
148  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
149    
150  C End of tracer loop  C End of tracer loop
151           ENDIF
152        ENDDO        ENDDO
153    
154  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22