23 |
#include "PTRACERS.h" |
#include "PTRACERS.h" |
24 |
#include "PTRACERS_STATV.h" |
#include "PTRACERS_STATV.h" |
25 |
C Functions |
C Functions |
26 |
LOGICAL DIFFERENT_MULTIPLE |
LOGICAL DIFF_BASE_MULTIPLE |
27 |
EXTERNAL DIFFERENT_MULTIPLE |
EXTERNAL DIFF_BASE_MULTIPLE |
28 |
INTEGER IO_ERRCOUNT |
INTEGER IO_ERRCOUNT |
29 |
EXTERNAL IO_ERRCOUNT |
EXTERNAL IO_ERRCOUNT |
30 |
|
|
57 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
58 |
|
|
59 |
C Final Time Averages and Dump Files if needed |
C Final Time Averages and Dump Files if needed |
60 |
c IF ( myIter.NE.nIter0 .AND. DIFFERENT_MULTIPLE |
c IF ( myIter.NE.nIter0 .AND. DIFF_BASE_MULTIPLE |
61 |
c & (PTRACERS_taveFreq,myTime,myTime-deltaTClock) ) THEN |
c & (baseTime,PTRACERS_taveFreq, myTime, deltaTClock) ) THEN |
62 |
IF ( DIFFERENT_MULTIPLE |
IF ( DIFF_BASE_MULTIPLE |
63 |
& (PTRACERS_taveFreq, myTime, myTime-deltaTClock) ) THEN |
& (baseTime,PTRACERS_taveFreq, myTime, deltaTClock) ) THEN |
64 |
|
|
65 |
CML WRITE(*,*) 'EH3: myIter = ', myIter |
CML WRITE(*,*) 'EH3: myIter = ', myIter |
66 |
|
|