Another bug

Miguel Angel · Miguel Angel · commit 11898713864f · 2019-12-12T18:15:50.000+01:00
diff --git a/kratos.gid/apps/DEM/write/writeMDPA_Inlet.tcl b/kratos.gid/apps/DEM/write/writeMDPA_Inlet.tcl
@@ -629,7 +629,12 @@ proc DEM::write::writeMaterialsInlet { } {
         dict set inletProperties $group DEM_CONTINUUM_CONSTITUTIVE_LAW_NAME DEMContinuumConstitutiveLaw
         foreach {prop val} [dict get $inletProperties $group] {
             if {$prop in $printable} {
-                write::WriteString "    $prop $val"
+				if {$prop eq "FRICTION"} {
+                    set propvalue [expr {tan($val)}]
+                    write::WriteString "    FRICTION $propvalue"
+				} else {
+                	write::WriteString "    $prop $val"
+				}
             }
         }
         write::WriteString "End Properties\n"

Original file line number	Diff line number	Diff line change
`@@ -629,7 +629,12 @@ proc DEM::write::writeMaterialsInlet { } {`
`629`	`629`	`dict set inletProperties $group DEM_CONTINUUM_CONSTITUTIVE_LAW_NAME DEMContinuumConstitutiveLaw`
`630`	`630`	`foreach {prop val} [dict get $inletProperties $group] {`
`631`	`631`	`if {$prop in $printable} {`
`632`		`- write::WriteString " $prop $val"`
	`632`	`+ if {$prop eq "FRICTION"} {`
	`633`	`+ set propvalue [expr {tan($val)}]`
	`634`	`+ write::WriteString " FRICTION $propvalue"`
	`635`	`+ } else {`
	`636`	`+ write::WriteString " $prop $val"`
	`637`	`+ }`
`633`	`638`	`}`
`634`	`639`	`}`
`635`	`640`	`write::WriteString "End Properties\n"`