diff --git a/SlidingSurface3D/rfpm.geo b/SlidingSurface3D/rfpm.geo
index 52d98f46d5b2d077daea6dd5f56818c6293100cd..0aadd5b0ee2a4c1f09d39682de4afc702d58493d 100644
--- a/SlidingSurface3D/rfpm.geo
+++ b/SlidingSurface3D/rfpm.geo
@@ -206,10 +206,8 @@ StatorPerSlave() = face();
 FaceId = 5; Call Cube2Face;
 StatorTop() = face();
 
-// Make AirRing a transfinite region.  The width of the air ring is arbitrary,
-// but it is in general thin, especially in machine models where it has to fit
-// into the air gap.  To improve the quality of the mesh, it is thus appropriate
-// to have it transfinite in practice.
+// The width of the air ring region is arbitrary, but it is in general thin, 
+// especially in machine models where it has to fit into the air gap.
 
 surfaces() = Boundary { Volume{10}; };
 lines() = Boundary { Surface{ SlidingSlave() }; };
@@ -235,9 +233,9 @@ For num In { 0:#lines()-1 }
   EndIf
 EndFor
 
-// Transfinite Surface{ surfaces() } ;
+  //Transfinite Surface{ surfaces() } ;
 Transfinite Surface{ SlidingMaster() } ;
-Transfinite Surface{ SlidingSlave() };
+Transfinite Surface{ SlidingSlave() } ;
 
 // Identify 'SlidingSubmaster' Curve
 
diff --git a/SlidingSurface3D/rfpm.pro b/SlidingSurface3D/rfpm.pro
index 851dafac2fce9bb724507cea5d5d1bf09526f704..23346e0a3bb83577c46a3d16e1d1f64baf6d0350 100644
--- a/SlidingSurface3D/rfpm.pro
+++ b/SlidingSurface3D/rfpm.pro
@@ -19,7 +19,7 @@ DefineConstant[
     Name "GetDP/1ResolutionChoices"},
   C_ = {"-solve -v 4 -pos -v2", Visible 0,
     Name "GetDP/9ComputeCommand"},
-  P_ = { "Check_Periodicity", Choices {"Fields", "Check_Periodicity"}, Visible 0,
+  P_ = { "", Choices {"Fields", "Check_Periodicity"}, Visible 0,
     Name "GetDP/2PostOperationChoices"}
 ];
 
@@ -251,6 +251,7 @@ Resolution {
 
       UpdateConstraint[Sys_Mag] ;
       Generate Sys_Mag ; Solve Sys_Mag ; SaveSolution Sys_Mag ;
+      PostOperation [Check_Periodicity];
       PostOperation [Fields];
     }
   }
@@ -326,7 +327,7 @@ PostOperation Check_Periodicity UsingPost MagSta_a {
               "View[l].LineWidth = 5;"] ,
             File "tmp.geo", LastTimeStepOnly] ;
   EndIf
-
+	/*
   Print[ bsurf, OnElementsOf Region[ {Sur_SlidingMaster} ],
 	 LastTimeStepOnly, File "bsm.pos"] ;
   Echo[ Str["l=PostProcessing.NbViews-1;",
@@ -348,7 +349,7 @@ PostOperation Check_Periodicity UsingPost MagSta_a {
 	    "View[l].LineWidth = 3;",
 	    "View[l].VectorType = 4;" ] ,
   	File "tmp.geo", LastTimeStepOnly] ;
-
+	*/
   Print[ bsurf, OnElementsOf Region[ Sur_Link ],
   	 LastTimeStepOnly, File "bsl.pos"] ;
   Echo[ Str["l=PostProcessing.NbViews-1;",