exf_clim_iprec = 32
if (.NOT. (exf_clim_iprec .EQ. 32
& .OR. exf_clim_iprec .EQ. 64)) then
& exf_clim_iprec, exf_clim_yftype
call MDSREADFIELD( climsstfile, exf_clim_iprec
& climsstfile, exf_clim_iprec
common /exf_clim_prec/ exf_clim_iprec
integer exf_clim_iprec
call MDSREADFIELD( climsssfile, exf_clim_iprec
& climsssfile, exf_clim_iprec