do not mesh if incompatible

KratosMultiphysics · May 29, 2024 · 51cb2c9 · 51cb2c9
1 parent 413aa02
commit 51cb2c9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/kratos.gid/kratos.tcl b/kratos.gid/kratos.tcl
@@ -454,7 +454,9 @@ proc Kratos::Event_BeforeMeshGeneration {elementsize} {
     }
 
     # Change the mesh settings depending on the element requirements
-    catch {Kratos::CheckMeshCriteria $elementsize}
+    if {[Kratos::CheckMeshCriteria $elementsize]<0} {
+        return "-cancel-"
+    }
 
     # Maybe the current application needs to do some extra job
     set ret [apps::ExecuteOnCurrentApp BeforeMeshGeneration $elementsize]

diff --git a/kratos.gid/scripts/Utils.tcl b/kratos.gid/scripts/Utils.tcl
@@ -311,7 +311,8 @@ proc Kratos::CheckMeshCriteria { elementsize } {
             } else {
                 if {$forced_mesh_order ne $element_forces} {
                     # W "The element $element_id requires a different mesh order"
-                    error "Incompatible mesh orders in elements"
+                    W "Incompatible mesh orders in elements"
+                    return -1
                 }
             }
         }