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" |
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 |
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 */ |