cleanup

Team25/shape.pro

@@ -106,7 +106,6 @@ Function{
   nu[Region[{Domain,-Core}]] = 1/mu0; // linear
 
   dnudb2[] = dInterpolationLinear[SquNorm[$1]]{List[Mat1_nu_b2]} ;
-  dnudb_1[] = 2.0*dInterpolationLinear[SquNorm[$1]]{List[Mat1_nu_b2]}*SquDyadicProduct[$1];
   dhdb_NL[Core] = 2*dnudb2[$1#1] * SquDyadicProduct[#1];
 
   // This is the current density which feeds the inductor.
@@ -321,7 +320,9 @@ PostProcessing {
   }
 }
 
-PostOperation Get_ObjectiveConstraints UsingPost ObjectiveConstraints {
+PostOperation {
+  { Name Get_ObjectiveConstraints; NameOfPostProcessing ObjectiveConstraints;
+    Operation{
       CreateDir[Opt_ResDir];
       Print[w,
         OnGrid {(9.5e-3+2.25e-3)*Cos[$A],(9.5e-3+2.25e-3)*Sin[$A],0}{0:50*Pi/180:5*Pi/180,0,0},
@@ -346,6 +347,8 @@ PostOperation Get_ObjectiveConstraints UsingPost ObjectiveConstraints {
         Print[js, OnElementsOf Coil, File StrCat[Opt_ResDir,"js.pos"]];
       EndIf
     }
+  }
+}
 
 // -------------------------------------------------------------------------
 // Sensitivity of w based on a direct method
@@ -359,10 +362,14 @@ PostProcessing{
   }
 }
 
-PostOperation Get_GradOf_w UsingPost Direct_MagSta {
+PostOperation{
+  { Name Get_GradOf_w; NameOfPostProcessing Direct_MagSta;
+    Operation {
       Print[Lie_w, OnGrid {(9.5e-3+2.25e-3)*Cos[$A],(9.5e-3+2.25e-3)*Sin[$A], 0} { 0:50*Pi/180:5*Pi/180, 0, 0 },
         Format SimpleTable, File StrCat[Opt_ResDir,Sprintf["Grad_w_wrt_dv_%g.txt",VelocityTag]]];
     }
+  }
+}
 
 // Show useful data
 PostProcessing {
@@ -374,11 +381,15 @@ PostProcessing {
   }
 }
 
-PostOperation Show_shape UsingPost Show_shape{
+PostOperation{
+  { Name Show_shape; NameOfPostProcessing Show_shape;
+    Operation {
       CreateDir[Opt_ResDir];
       Print[ VV, OnElementsOf Domain,File StrCat[Opt_ResDir, "velocity.pos"] ];
       Print[ Lie_az, OnElementsOf Domain,File StrCat[Opt_ResDir, "Lie_az.pos"] ];
     }
+  }
+}
 
 // -------------------------------------------------------------------------
 // The following resolution solves the physical problem