100 |
ENDIF |
ENDIF |
101 |
#endif |
#endif |
102 |
|
|
103 |
IF ( dump2fileNow ) THEN |
IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) THEN |
104 |
CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid) |
CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid) |
105 |
ENDIF |
ENDIF |
106 |
ENDDO |
ENDDO |
133 |
endif |
endif |
134 |
#endif |
#endif |
135 |
|
|
136 |
IF ( dump2fileNow ) THEN |
IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) THEN |
137 |
CALL DIAGSTATS_OUTPUT(n,wrIter,myThid) |
CALL DIAGSTATS_OUTPUT(n,wrIter,myThid) |
138 |
ENDIF |
ENDIF |
139 |
ENDDO |
ENDDO |
175 |
ENDIF |
ENDIF |
176 |
#endif |
#endif |
177 |
|
|
178 |
IF ( dump2fileNow ) CALL CLRINDX(n,myThid) |
IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) |
179 |
|
. CALL CLRINDX(n,myThid) |
180 |
ENDDO |
ENDDO |
181 |
|
|
182 |
DO n = 1,diagSt_nbLists |
DO n = 1,diagSt_nbLists |
192 |
dump2fileNow = alarm2(tagname) |
dump2fileNow = alarm2(tagname) |
193 |
endif |
endif |
194 |
#endif |
#endif |
195 |
IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid) |
IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) |
196 |
|
. CALL DIAGSTATS_CLEAR(n,myThid) |
197 |
ENDDO |
ENDDO |
198 |
|
|
199 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |