& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
& DIFFERENT_MULTIPLE( thSIce_diagFreq, myTime, deltaTClock )
thSIce_diagFreq = dumpFreq
WRITE(iUnit,*) 'ThSI: thSIce_diagFreq=',thSIce_diagFreq
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq,
thSIce_diagFreq = 0.