Commit 3e487bfe authored by Paul Stryck's avatar Paul Stryck
Browse files

adaptions

parent 3bafc50c
......@@ -31,7 +31,7 @@
<blendingFactor>0.5</blendingFactor>
</UD1_CD_BLEND>
</convectiveFluxDiscretisation>
<relaxationFactor>0.5</relaxationFactor>
<relaxationFactor>0.2</relaxationFactor>
</EQMomentum>
</equation>
<equation name="pres">
......@@ -67,18 +67,18 @@
<boundaries>
<family name="INLET">
<BCVelocity>
<velocity userCode="true"></velocity>
<velocity userCode="false">1.2 0.0 0.0</velocity>
</BCVelocity>
</family>
<family name="OUTLET">
<BCOutflow/>
</family>
<family name="YMIN">
<family name="INNER">
<BCWall>
<useWallFunction>LOW_RN</useWallFunction>
</BCWall>
</family>
<family name="YMAX">
<family name="OUTER">
<BCWall>
<useWallFunction>LOW_RN</useWallFunction>
</BCWall>
......
......@@ -93,9 +93,10 @@ CONTAINS
v_init = 4.
angle = 30./180. * PI ! COS(...) SIN(...)
IF ( controls_initial%Velocity_userCode .AND. family_f(iface) ==
IF ( controls_initial%Velocity_userCode .AND. family_f(iface) == &
topology_get_ifamily(trim ("INLET")) )THEN
DO iface = nIntFaces+1 , nIntFaces + nBndFaces ! Loop all cell
write(*,*) "test"
icell = cell2_f(iface)
! Before the Bend
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment