CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)
wrIter = myItM1
wrIter = myIter
CALL DIAGSTATS_OUTPUT(n,myTime,wrIter,myThid)
INTEGER myItM1, wrIter