modelers only in geom mode

Author: jginternational

kratos.gid/scripts/Writing/WriteProjectParameters.tcl

@@ -623,23 +623,23 @@ proc write::GetTimeStepIntervals { {time_parameters_un ""} } {
 proc write::GetModelersDict { projectParametersDict {stage ""}  } {
     set modelerts_list [list ]
 
-    # Move the import to the modelers
-    dict unset projectParametersDict solver_settings model_import_settings 
-    dict set projectParametersDict solver_settings model_import_settings input_type use_input_model_part
-    set importer_modeler [dict create name "Modelers.KratosMultiphysics.ImportMDPAModeler"]  
-    dict set importer_modeler "parameters" [dict create input_filename [Kratos::GetModelName] model_part_name [write::GetConfigurationAttribute model_part_name]]  
-    lappend modelerts_list $importer_modeler
-
     if {[write::GetConfigurationAttribute write_mdpa_mode] eq "geometries"} {
+        # Move the import to the modelers
+        dict unset projectParametersDict solver_settings model_import_settings 
+        dict set projectParametersDict solver_settings model_import_settings input_type use_input_model_part
+        set importer_modeler [dict create name "Modelers.KratosMultiphysics.ImportMDPAModeler"]  
+        dict set importer_modeler "parameters" [dict create input_filename [Kratos::GetModelName] model_part_name [write::GetConfigurationAttribute model_part_name]]  
+        lappend modelerts_list $importer_modeler
+
         # Add the entities creation modeler
         set entities_modeler [dict create name "Modelers.KratosMultiphysics.CreateEntitiesFromGeometriesModeler"]
         dict set entities_modeler "parameters" elements_list [::write::GetMatchSubModelPart element $stage]
         dict set entities_modeler "parameters" conditions_list [::write::GetMatchSubModelPart condition $stage]
         lappend modelerts_list $entities_modeler
-    }
 
-    dict set projectParametersDict "modelers" $modelerts_list
-
+    
+        dict set projectParametersDict "modelers" $modelerts_list
+    }
     return $projectParametersDict
 }