18 |
#include "SIZE.h" |
#include "SIZE.h" |
19 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
20 |
#include "PTRACERS_SIZE.h" |
#include "PTRACERS_SIZE.h" |
21 |
#include "PTRACERS.h" |
#include "PTRACERS_PARAMS.h" |
22 |
|
#include "PTRACERS_FIELDS.h" |
23 |
|
|
24 |
C !INPUT PARAMETERS: =================================================== |
C !INPUT PARAMETERS: =================================================== |
25 |
C myThid :: thread number |
C myThid :: thread number |
48 |
& gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
& gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
49 |
WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer |
WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer |
50 |
CALL DEBUG_STATS_RL(Nr, |
CALL DEBUG_STATS_RL(Nr, |
51 |
& gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
& gpTrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid) |
52 |
|
|
53 |
C end of tracer loop |
C end of tracer loop |
54 |
ENDDO |
ENDDO |