integer climsststartdate1
& climsststartdate1, climsststartdate2,
CALL CAL_FULLDATE( climsststartdate1, climsststartdate2,
& climsststartdate1, climsststartdate2, climsstperiod,
climsststartdate1 = 0