Local variables to be added
integer ifac, iel, ii, ivar
integer ilelt, nlelt, izone
integer, allocatable, dimension(:) :: lstelt
Initialization and finalization
Initialization and finalization is similar to that of the base examples
Example 1
Assign a free outlet for faces of color/group 2
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
izone = 1
enddo
Example 2
Assign a wall condition for faces of color/group 4
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
izone = 2
enddo
Example 3
Assign a symmetry for faces of color/group 5
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
izone = 3
enddo