31 |
#include "PARAMS.h" |
#include "PARAMS.h" |
32 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
33 |
#include "GRID.h" |
#include "GRID.h" |
34 |
|
#ifdef ALLOW_GENERIC_ADVDIFF |
35 |
#include "GAD.h" |
#include "GAD.h" |
36 |
|
#endif |
37 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
38 |
#include "PTRACERS_SIZE.h" |
#include "PTRACERS_SIZE.h" |
39 |
#include "PTRACERS.h" |
#include "PTRACERS.h" |
55 |
_RL KappaRTr(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRTr(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
56 |
INTEGER myThid |
INTEGER myThid |
57 |
|
|
58 |
|
#ifdef ALLOW_GENERIC_ADVDIFF |
59 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
60 |
C == Local variables == |
C == Local variables == |
61 |
C i, j, k :: Loop counters |
C i, j, k :: Loop counters |
198 |
c ENDDO |
c ENDDO |
199 |
c ENDDO |
c ENDDO |
200 |
|
|
201 |
|
#endif /* ALLOW_GENERIC_ADVDIFF */ |
202 |
|
|
203 |
RETURN |
RETURN |
204 |
END |
END |