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