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