_RL climvstrconst
& climvstrconst, climvstrRepCycle,
I climvstrperiod, exf_inscal_climvstr, climvstrconst,
& climustrconst, climvstrconst,
climvstrconst = 0.0 _d 0