& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
_RL thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq
& DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,deltaTclock)
IF ( thSIce_monFreq.GT. 0. _d 0 )
thSIce_monFreq = monitorFreq
WRITE(iUnit,fmtR) 'ThSI:','thSIce_monFreq =',thSIce_monFreq
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq,
thSIce_monFreq = 0.