61 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
62 |
C == Local variables == |
C == Local variables == |
63 |
CHARACTER*(MAX_LEN_MBUF) suff |
CHARACTER*(MAX_LEN_MBUF) suff |
64 |
LOGICAL DIFF_BASE_MULTIPLE |
LOGICAL DIFFERENT_MULTIPLE |
65 |
EXTERNAL DIFF_BASE_MULTIPLE |
EXTERNAL DIFFERENT_MULTIPLE |
66 |
INTEGER bi, bj, K |
INTEGER bi, bj, K |
67 |
_RL DDTT |
_RL DDTT |
68 |
CEOP |
CEOP |
72 |
C---------------------------------------------------------------- |
C---------------------------------------------------------------- |
73 |
|
|
74 |
IF ( |
IF ( |
75 |
& DIFF_BASE_MULTIPLE(baseTime,MYdumpFreq, |
& DIFFERENT_MULTIPLE(MYdumpFreq, |
76 |
& myCurrentTime,deltaTClock) |
& myCurrentTime,deltaTClock) |
77 |
& ) THEN |
& ) THEN |
78 |
|
|
136 |
|
|
137 |
C Time Average MY82 fields |
C Time Average MY82 fields |
138 |
IF ( myIter .EQ. nIter0 .OR. |
IF ( myIter .EQ. nIter0 .OR. |
139 |
& DIFF_BASE_MULTIPLE |
& DIFFERENT_MULTIPLE(MYtaveFreq,myCurrentTime,deltaTClock) |
140 |
& (baseTime,MYtaveFreq,myCurrentTime,deltaTClock) ) |
& ) THEN |
|
& THEN |
|
141 |
DDTT=0.5*deltaTclock |
DDTT=0.5*deltaTclock |
142 |
ELSE |
ELSE |
143 |
DDTT=deltaTclock |
DDTT=deltaTclock |
159 |
|
|
160 |
C Dump files and restart average computation if needed |
C Dump files and restart average computation if needed |
161 |
IF ( myIter.NE.nIter0 .AND. |
IF ( myIter.NE.nIter0 .AND. |
162 |
& DIFF_BASE_MULTIPLE(baseTime,MYtaveFreq, |
& DIFFERENT_MULTIPLE(MYtaveFreq,myCurrentTime,deltaTClock) |
|
& myCurrentTime,deltaTClock) |
|
163 |
& ) THEN |
& ) THEN |
164 |
|
|
165 |
C Normalize by integrated time |
C Normalize by integrated time |