source: issm/oecreview/Archive/21337-21723/ISSM-21647-21648.diff@ 21726

../trunk-jpl/src/m/contrib/defleurian/netCDF/export_netCDF.m

@@ -72 +72 @@
                                 else
                                         listsize=length(Var);
                                         subgroupID=netcdf.defGrp(groupID,groupfields{j});
-                                        netcdf.putAtt(subgroupID,netcdf.getConstant('NC_GLOBAL'),'classtype',class(md.(groups{i}).(groupfields{j})));
+                                        netcdf.putAtt(subgroupID,netcdf.getConstant('NC_GLOBAL'),'classtype',class(Var));
                                         for l=1:listsize
                                                 if isprop(Var{l},'name')
                                                         lname=Var{l}.name;
@@ -91 +91 @@
                                                 end
                                         end
                                 end
+                        elseif isa(Var,'struct') && ~strcmp(groupfields{j},'bamg')
+                                classtype=class(md.(groups{i}));
+                                if strcmp(classtype,'struct')
+                                        classtype=groups{i};
+                                end
+                                netcdf.putAtt(groupID,netcdf.getConstant('NC_GLOBAL'),'classtype',classtype);
+                                if length(Var)>1
+                                        listsize=length(Var);
+                                        subgroupID=netcdf.defGrp(groupID,groupfields{j});
+                                        classtype=class(Var);
+                                        if strcmp(classtype,'struct')
+                                                classtype=groups{i};
+                                        end
+                                        netcdf.putAtt(subgroupID,netcdf.getConstant('NC_GLOBAL'),'classtype',classtype);
+                                        for l=1:listsize
+                                                if isfield(Var(l),'step')
+                                                        lname=[int2str(Var(l).step)];
+                                                else
+                                                        lname=[class(Var(l)) int2str(l)];
+                                                end
+                                                classtype=class(Var(l));
+                                                if strcmp(classtype,'struct')
+                                                        classtype=groups{i};
+                                                end
+                                                listgroupID=netcdf.defGrp(subgroupID,lname);
+                                                netcdf.putAtt(listgroupID,netcdf.getConstant('NC_GLOBAL'),'classtype',classtype);
+                                                subfields=fields(Var(l));
+                                                for m=1:length(subfields)
+                                                        if ~strcmp(subfields{m},'outlog')
+                                                                [DimSize,DimValue]=DefCreateVar(ncid,Var(l).(subfields{m}),listgroupID,subfields{m},DimSize,DimValue);
+                                                        end
+                                                end
+                                        end
+                                else
+                                        subgroupID=netcdf.defGrp(groupID,groupfields{j});
+                                        classtype=class(Var);
+                                        if strcmp(classtype,'struct')
+                                                classtype=groups{i};
+                                        end
+                                        netcdf.putAtt(subgroupID,netcdf.getConstant('NC_GLOBAL'),'classtype',classtype);
+                                        subfields=fields(Var);
+                                        for m=1:length(subfields)
+                                                if ~strcmp(subfields{m},'outlog')
+                                                        [DimSize,DimValue]=DefCreateVar(ncid,Var.(subfields{m}),subgroupID,subfields{m},DimSize,DimValue);
+                                                end
+                                        end
+                                end
                         else
                                 netcdf.putAtt(groupID,netcdf.getConstant('NC_GLOBAL'),'classtype',class(md.(groups{i})));
                                 [DimSize,DimValue]=DefCreateVar(ncid,Var,groupID,groupfields{j},DimSize,DimValue);