Commit eae1f94e authored by Elia Merzari's avatar Elia Merzari
Browse files

Fixing bc at the boundary of the cynlinder. Previous setting was an issue for surface transfer.

parent c1b3a6aa
......@@ -171,7 +171,7 @@ c implicit none
id_face = bc(5,ifc,iel,1)
if (id_face.eq.3) then ! SideSet 3 SIDEWALL
cbc(ifc,iel,1) = 'W '
cbc(ifc,iel,2) = 'f '
cbc(ifc,iel,2) = 'I '
elseif (id_face.eq.4) then ! SideSet 4 PEBBLES
cbc(ifc,iel,1) = 'W '
cbc(ifc,iel,2) = 'f '
......
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