Bound 1.f90 - Set boundary conditions
From CFD-Wiki
(Difference between revisions)
| Line 1: | Line 1: | ||
| + | <pre> | ||
| + | |||
Subroutine Bound_condition | Subroutine Bound_condition | ||
| Line 22: | Line 24: | ||
End | End | ||
| + | |||
| + | </pre> | ||
Revision as of 20:18, 20 September 2005
Subroutine Bound_condition include 'icomm_1.f90' open(54, file='ioutlet_prof.txt') DO 5 I=1,NXmaxP If ( Xp(i,1)>0.) then F(i,1,5) = F(i,2,5) write(54,*) Xp(i,1),F(i,1,5) end if 5 continue close(54) Return End
