& OBCS_monitorFreq,
_RL OBCS_monitorFreq
CALL WRITE_0D_RL( OBCS_monitorFreq, INDEX_NONE,
IF ( DIFFERENT_MULTIPLE( OBCS_monitorFreq,myTime,deltaTClock )
IF ( OBCS_monitorFreq .NE. monitorFreq
& OBCS_monitorFreq, OBCS_monSelect, OBCSprintDiags,
OBCS_monitorFreq = monitorFreq
IF ( useOBCS ) OBCS_monitorFreq = 0.