CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =',
& aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq,
& aim_taveFreq, aim_diagFreq, aim_tendFreq
_RL aim_diagFreq
IF ( DIFFERENT_MULTIPLE(aim_diagFreq,
aim_diagFreq = dumpFreq