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