GID-3576 porting kratos problemtype to tcl9, avoid bugs tester case: JAVI, have a look, I am raising a message, and is not an element number, but an string "Monolithic3D" (maybe because some problem of transform...)

                    # kike: It is happening in tester case D5E101BC834E1E5F284E3FA4F027EE67 , must raise an error? by now try to continue
                    W "Model::CheckElementsNodalCondition elem $eid empty"

Author: escolano

kratos.gid/scripts/Mesh.tcl

@@ -27,6 +27,11 @@ proc Mesh::CheckMeshCriteria { elementsize } {
     set forced_mesh_order -1
     foreach element_id $elements_used {
         set element [Model::getElement $element_id]
+        if { $element == "" } {
+            # kike: It is happening in tester case D5E101BC834E1E5F284E3FA4F027EE67 , must raise an error? by now try to continue
+            W "Mesh::CheckMeshCriteria element $element_id empty"
+            continue
+        }
         if {[$element hasAttribute "MeshOrder"]} {
             set element_forces [$element getAttribute "MeshOrder"]
             if {$element_forces eq "Quadratic"} {

kratos.gid/scripts/Model/Element.tcl

@@ -434,6 +434,11 @@ proc Model::CheckElementsNodalCondition {conditionId elemnames {restrictions ""
         foreach eid $elemnames {
             if {$eid ne ""} {
                 set elem [getElement $eid]
+                if { $elem == "" } {
+                    # kike: It is happening in tester case D5E101BC834E1E5F284E3FA4F027EE67 , must raise an error? by now try to continue
+                    W "Model::CheckElementsNodalCondition elem $eid empty"
+                    continue
+                }
                 foreach elemNCNode [$elem getNodalConditions] {
                     set elemNC [$elemNCNode getName]
                     if {$elemNC eq $conditionId} {