_RL climustrperiod
& climustrperiod, climustrStartTime,
I climustrStartTime, climustrperiod, climustrRepCycle,
& climustrperiod .NE. 0. )
I 'exf', 'climustr', climustrperiod,
& .AND. climustrperiod .EQ. climvstrperiod
I climustrperiod, exf_inscal_climustr, climustrconst,
& climustrperiod .EQ. 0. )
& climustrRepCycle, climustrperiod, climustrStartTime,
climustrperiod = 0