SUBROUTINE PP81_DO_DIAGS( myCurrentTime, myIter, myThid )
& DIFFERENT_MULTIPLE(PPtaveFreq,myCurrentTime,deltaTClock)
_RL myCurrentTime
& DIFFERENT_MULTIPLE(PPdumpFreq,myCurrentTime,deltaTClock)