retourne -1 si le fichier levitus n'existe pas

utilise warning en place de error

tsg_util/read_file_woa01.m

 function levitus = read_file_woa01(file)
 % a mettre dans la classe de base oceano puisque commun a tous
-% read_woa01.m
 %
 % read WOA01 Levitus T-S-O2, Stddev & nb_obs Netcdf file in memory
 
-% $Id: read_file_woa01.m 123 2007-02-12 08:35:45Z jgrelet $
+% $Id$
 
 filesfound = checkforfiles( file );
 if filesfound == 0; 
-   error(['Couldn''t find ', file])
+   warning(['Couldn''t find ', file]);
+   levitus = -1;
+   return;
 end
 
 % a commenter en production