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