Hotfix DEM should only print it's materials

Author: jginternational

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

@@ -359,22 +359,24 @@ proc DEM::write::writeMaterialsParts { } {
     # WV inletProperties
     set printable [list PARTICLE_DENSITY YOUNG_MODULUS POISSON_RATIO FRICTION PARTICLE_COHESION COEFFICIENT_OF_RESTITUTION PARTICLE_MATERIAL ROLLING_FRICTION ROLLING_FRICTION_WITH_WALLS PARTICLE_SPHERICITY DEM_CONTINUUM_CONSTITUTIVE_LAW_NAME ConstitutiveLaw]
     foreach group [dict keys $partsProperties] {
-        write::WriteString "Begin Properties [dict get $partsProperties $group MID]"
-        dict set partsProperties $group DEM_CONTINUUM_CONSTITUTIVE_LAW_NAME DEMContinuumConstitutiveLaw
-        foreach {prop val} [dict get $partsProperties $group] {
-            if {$prop in $printable} {
-                if {$prop eq "ConstitutiveLaw"} {
-                    write::WriteString "    DEM_DISCONTINUUM_CONSTITUTIVE_LAW_NAME $val"
-                } elseif {$prop eq "FRICTION"} {
-                    set pi $MathUtils::PI
-                    set propvalue [expr {tan($val*$pi/180.0)}]
-                    write::WriteString "    FRICTION $propvalue"
-                } else {
-                    write::WriteString "    $prop $val"
+        if { [dict get $partsProperties $group APPID] eq "DEM"} {
+            write::WriteString "Begin Properties [dict get $partsProperties $group MID]"
+            dict set partsProperties $group DEM_CONTINUUM_CONSTITUTIVE_LAW_NAME DEMContinuumConstitutiveLaw
+            foreach {prop val} [dict get $partsProperties $group] {
+                if {$prop in $printable} {
+                    if {$prop eq "ConstitutiveLaw"} {
+                        write::WriteString "    DEM_DISCONTINUUM_CONSTITUTIVE_LAW_NAME $val"
+                    } elseif {$prop eq "FRICTION"} {
+                        set pi $MathUtils::PI
+                        set propvalue [expr {tan($val*$pi/180.0)}]
+                        write::WriteString "    FRICTION $propvalue"
+                    } else {
+                        write::WriteString "    $prop $val"
+                    }
                 }
             }
+            write::WriteString "End Properties\n"
         }
-        write::WriteString "End Properties\n"
     }
 }