if ( climtempfile .NE. ' ' .AND. climtempperiod .NE. 0. ) then
& climtempstartdate1, climtempstartdate2, climtempperiod,
climtempperiod = 0
& climtempperiod
if ( climtempperiod .EQ. 0 ) then
I climtempstartdate, climtempperiod
_RL climtempperiod
& climtempperiod, climtempstartdate,