Index: /issm/trunk-jpl/src/m/io/structtonc.m
===================================================================
--- /issm/trunk-jpl/src/m/io/structtonc.m	(revision 14612)
+++ /issm/trunk-jpl/src/m/io/structtonc.m	(revision 14613)
@@ -46,6 +46,15 @@
 elseif isa(field,'struct'),
 	subfields = fields(field);
-	for i=1:length(subfields),
-		[var_id,counter] = structtonc(ncid,[fieldname '.' subfields{i}],field.(subfields{i}),depth+1,var_id,counter,step);
+	sublength = numel(field);
+	if sublength==1,
+		for i=1:length(subfields),
+			[var_id,counter] = structtonc(ncid,[fieldname '.' subfields{i}],field.(subfields{i}),depth+1,var_id,counter,step);
+		end
+	else
+		for n=1:sublength,
+			for i=1:length(subfields),
+				[var_id,counter] = structtonc(ncid,[fieldname '.' subfields{i} '(' num2str(n) ')'],field(n).(subfields{i}),depth+1,var_id,counter,step);
+			end
+		end
 	end
 elseif isobject(field),