36 |
INTEGER myThid |
INTEGER myThid |
37 |
|
|
38 |
C === Functions ==== |
C === Functions ==== |
39 |
LOGICAL DIFFERENT_MULTIPLE |
LOGICAL DIFF_BASE_MULTIPLE |
40 |
EXTERNAL DIFFERENT_MULTIPLE |
EXTERNAL DIFF_BASE_MULTIPLE |
41 |
|
|
42 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
43 |
#ifdef ALLOW_MONITOR |
#ifdef ALLOW_MONITOR |
54 |
|
|
55 |
dT=deltaTclock |
dT=deltaTclock |
56 |
|
|
57 |
IF (DIFFERENT_MULTIPLE( |
IF (DIFF_BASE_MULTIPLE( |
58 |
& PTRACERS_monitorFreq,myTime,myTime-dT)) THEN |
& baseTime,PTRACERS_monitorFreq,myTime,dT)) THEN |
59 |
|
|
60 |
C Ptracers field monitor start |
C Ptracers field monitor start |
61 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |