if ( snowprecip_errfile .NE. ' ' ) then
call MDSREADFIELD( snowprecip_errfile, cost_iprec, cost_yftype,
& snowprecip_errfile,
character*(MAX_LEN_FNAM) snowprecip_errfile
& snowprecip_errfile, apressure_errfile,
snowprecip_errfile = ' '