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