& climsssfile, exf_iprec
call MDSREADFIELD( climsssfile, exf_clim_iprec
if ( climsssfile .NE. ' ' ) then
& climsssfile, exf_clim_iprec
if ( climsssfile .NE. ' ' .AND. climsssperiod .NE. 0. ) then
& climsssfile, climsstconst, climsssconst,
climsssfile = ' '
il = ilnblnk(climsssfile)
&' >> ',climsssfile(1:il),' <<'
& climsssfile
character*(128) climsssfile