Changeset 1157 for trunk/src/struct2nc.m

Timestamp:

Jul 11, 2024, 4:13:03 PM (3 months ago)

Author:

sommeria

Message:

filter_time added

File:

• trunk/src/struct2nc.m (modified) (5 diffs)

trunk/src/struct2nc.m

@@ -38 +38 @@
 function [errormsg,nc]=struct2nc(flname,Data,action,ListDimName,DimValue,VarDimIndex)
 nc=[];
+errormsg='';
 if ~ischar(flname)
     errormsg='invalid input for the netcf file name';
@@ -81 +82 @@
             end
             if ~testvar               
-                eval(['cte=Data.' keys{iattr} ';'])
+                cte=Data.(keys{iattr});
                 if (ischar(cte) ||isnumeric(cte)) &&  ~isempty(cte)%&& ~isequal(cte,'')
                     %write constant only if it is numeric or char string, and not empty
@@ -106 +107 @@
 %% create the variables
 varid=nan(1,length(Data.ListVarName));
+VarClass=cell(1,length(ListVarName));
 for ivar=1:length(ListVarName)
     if isfield(Data,ListVarName{ivar})
@@ -141 +143 @@
 netcdf.endDef(nc); %put in data mode
 
-%% fill the variables with input data
+%% fill the variables with input data except in mode 'keep_open' (variables will be filled later)
 if ~(exist('action','var') && strcmp(action,'keep_open'))
     for ivar=1:length(ListVarName)
@@ -169 +171 @@
     end
 end
+if ~ (exist('action','var') && strcmp(action,'keep_open'))
  netcdf.close(nc)
 [success,errormsg] = fileattrib(flname ,'+w');% allow writing access for the group of users
+end
 %'check_field_structure': check the validity of the field struture representation consistant with the netcdf format
 %------------------------------------------------------------------------