mesh_field.txt
a876ffd2f2actemperature_mesh_coarse…

mesh_field.txt
View Options

			//+
			SetFactory("OpenCASCADE");
			ShapeFromFile("layer_013.step");
			//+
			lns[];
			z = 0;
			h = 0;
			For j In {1:newp-1}
			maxZ[] = Point{j};
			If(maxZ[2]>=z)
			z = maxZ[2];
			EndIf
			EndFor
			z = z-.005;
			For i In {1:newl-1}
			pnts[] = Boundary{Line{i};};
			coords1[] = Point{pnts[0]};
			coords2[] = Point{pnts[1]};
			If(coords1[2]>=z && coords2[2]>=z)
			lns[h] = i;
			h = h+1;
			EndIf
			EndFor
			Field[1] = Distance;
			Field[1].EdgesList = {lns[]};
			Field[1].NNodesByEdge = 600;
			Field[2] = Threshold;
			Field[2].IField = 1;
			Field[2].LcMin = 0.045158;
			Field[2].LcMax = 2.0;
			Field[2].DistMin = .15;
			Field[2].DistMax = .15;
			Background Field = 2;
			Mesh.CharacteristicLengthExtendFromBoundary = 0;
			numlines = #lns[];
			//Printf("boundary point num = %g",numlines);
			Printf("maximum z coord= %g",z);