& xx_snowprecip_remo_slope, xx_snowprecipperiod,
& , xx_snowprecipperiod
_RL xx_snowprecipperiod
fldperiod = xx_snowprecipperiod
if ( xx_snowprecipperiod .EQ. 0 ) then
& xx_snowprecipperiod) + 1
& xx_snowprecipperiod) + 2
xx_snowprecipperiod = 0. _d 0
& xx_snowprecip_file, xx_snowprecip_dummy, xx_snowprecipperiod,
& xx_snowprecipperiod,