remove commented lines

Author: farrufat-cimne

kratos.gid/apps/CDEM/write/writeMDPA_Walls.tcl

@@ -300,48 +300,6 @@ proc CDEM::write::writeWallConditionMeshes { } {
             write::WriteString "    IS_GHOST $is_ghost"
             write::WriteString "    IDENTIFIER [write::transformGroupName $group]"
 
-            # proc DEM::write::DefineMaterialTestConditions { } {
-            #     if CDEM:
-
-            #         set material_analysis [write::getValue DEMTestMaterial Active]
-            #         if {$material_analysis == "true"} {
-            #             set is_material_test [write::getValueByNode [$group_node selectNodes "./value\[@n='MaterialTest'\]"]]
-            #             if {$is_material_test == "true"} {
-            #                 set as_condition [write::getValueByNode [$group_node selectNodes "./value\[@n='DefineTopBot'\]"]]
-            #                 if {$as_condition eq "top"} {
-            #                     write::WriteString "    TOP 1"
-            #                     write::WriteString "    BOTTOM 0"
-            #                 } else {
-            #                     write::WriteString "    TOP 0"
-            #                     write::WriteString "    BOTTOM 1"
-            #                 }
-            #             }
-            #         } else {
-            #                 write::WriteString "    TOP 0"
-            #                 write::WriteString "    BOTTOM 0"
-            #         }
-
-            #         set GraphPrint [write::getValueByNode [$group_node selectNodes "./value\[@n='GraphPrint'\]"]]
-            #         if {$GraphPrint == "true" || $material_analysis == "true"} {
-            #             set GraphPrintval 1
-            #         } else {
-            #             set GraphPrintval 0
-            #         }
-            #     }
-
-            # else DEM:
-
-            #     set GraphPrint [write::getValueByNode [$group_node selectNodes "./value\[@n='GraphPrint'\]"]]
-            #     if {$GraphPrint == "true"} {
-            #         set GraphPrintval 1
-            #     } else {
-            #         set GraphPrintval 0
-            #     }
-
-
-
-
-
             # set material_analysis [write::getValue DEMTestMaterial Active]
             # if {$material_analysis == "true"} {
             #     set is_material_test [write::getValueByNode [$group_node selectNodes "./value\[@n='MaterialTest'\]"]]
@@ -366,7 +324,7 @@ proc CDEM::write::writeWallConditionMeshes { } {
             # } else {
             #     set GraphPrintval 0
             # }
-            write::WriteString "    FORCE_INTEGRATION_GROUP $GraphPrintval"
+            #write::WriteString "    FORCE_INTEGRATION_GROUP $GraphPrintval"
         }
         write::WriteString "  End SubModelPartData"
 

kratos.gid/apps/DEM/write/writeMDPA_Walls.tcl

@@ -426,6 +426,8 @@ proc DEM::write::writeWallConditionMeshes { } {
             W "xxxxxxxxxxxxxxxxxxxxxx"
             DEM::DefineMaterialTestConditions
 
+
+            # DEFINED AT THE END OF THE FILE
             # proc DEM::write::DefineMaterialTestConditions { } {
             #     if CDEM:
 
@@ -467,7 +469,7 @@ proc DEM::write::writeWallConditionMeshes { } {
 
 
 
-
+            # ORIGINAL LINES
             # set GraphPrint [write::getValueByNode [$group_node selectNodes "./value\[@n='GraphPrint'\]"]]
             # if {$GraphPrint == "true"} {
             #     set GraphPrintval 1
@@ -696,9 +698,9 @@ proc DEM::write::writeWallConditionMeshes2D { } {
             write::WriteString "    IS_GHOST $is_ghost"
             write::WriteString "    IDENTIFIER [write::transformGroupName $group]"
 
-            W "xxxxxxxxxxxxxxxxxxxxxx"
-            W [apps::getActiveAppId]
-            W "xxxxxxxxxxxxxxxxxxxxxx"
+            # W "xxxxxxxxxxxxxxxxxxxxxx"
+            # W [apps::getActiveAppId]
+            # W "xxxxxxxxxxxxxxxxxxxxxx"
             DEM::write::DefineMaterialTestConditions $group_node
 
             # write::WriteString "    TOP 0"