Changeset 613 for trunk/src/read_civdata.m

Timestamp:

Apr 19, 2013, 8:26:15 AM (11 years ago)

Author:

sommeria

Message:

a few bugs repaired, GUI sizes optimized

File:

• trunk/src/read_civdata.m (modified) (7 diffs)

trunk/src/read_civdata.m

@@ -2 +2 @@
 %------------------------------------------------------------------
 %
-% function [Field,VelTypeOut]=read_civdata(filename,FieldNames,VelType)
+% function [Field,VelTypeOut]=read_civdata(FileName,FieldNames,VelType)
 %
 % OUTPUT:
@@ -30 +30 @@
 %
 % INPUT:
-% filename: file name (string).
+% FileName: file name (string).
 % FieldNames =cell of field names to get, which can contain the strings:
 %             'ima_cor': image correlation, vec_c or vec2_C
@@ -45 +45 @@
 % 'nc2struct': reads a netcdf file 
 
-function [Field,VelTypeOut,errormsg]=read_civdata(filename,FieldNames,VelType)
+function [Field,VelTypeOut,errormsg]=read_civdata(FileName,FieldNames,VelType)
 
 %% default input
@@ -60 +60 @@
     FieldNames=[]; %default
 end
+Field=[];
+VelTypeOut=VelType;
 errormsg='';
+if ~exist(FileName,'file')
+    errormsg=['input file ' FileName ' does not exist'];
+    return
+end
 if ischar(FieldNames), FieldNames={FieldNames}; end;
 ProjModeRequest='';
@@ -75 +81 @@
 
 %% reading data
-Data=nc2struct(filename,'ListGlobalAttribute','CivStage');
+Data=nc2struct(FileName,'ListGlobalAttribute','CivStage');
 if isfield(Data,'Txt')
      erromsg=['error in read_civdata: ' Data.Txt];
@@ -85 +91 @@
     return
 else
-    [Field,vardetect]=nc2struct(filename,varlist);%read the variables in the netcdf file
+    [Field,vardetect]=nc2struct(FileName,varlist);%read the variables in the netcdf file
 end
 if isfield(Field,'Txt')
@@ -92 +98 @@
 end
 if vardetect(1)==0
-     errormsg=[ 'requested field not available in ' filename '/' VelType ': need to run patch'];
+     errormsg=[ 'requested field not available in ' FileName '/' VelType ': need to run patch'];
      return
 end