Skip to content
Snippets Groups Projects
Commit 68dff92b authored by Dave Whipp's avatar Dave Whipp
Browse files

Cleaned up formatting

parent a26a2b4f
No related branches found
No related tags found
No related merge requests found
......@@ -95,6 +95,7 @@ if (iproc.eq.0) then
case default
call stop_run ('pb with argument in write_global_output$')
end select
! write array lengths
write (9) osolve%octree(3), &
osolve%nnode, &
......@@ -124,9 +125,7 @@ if (iproc.eq.0) then
! write icon array
write (9) ((osolve%icon(k,i),k=1,8), &
! Line below uncommented by dwhipp - 12/09
osolve%pressure(i), &
! Line below added by dwhipp - 12/09
osolve%spressure(i), &
osolve%crit(i), &
osolve%e2d(i), &
......@@ -139,8 +138,10 @@ if (iproc.eq.0) then
! write octree information
write (9) (osolve%octree(i),i=1,osolve%octree(3))
! write bad face information
write (9) ((osolve%iface(k,i),k=1,9),i=1,osolve%nface)
! write void information
write (9) (vo%node(i), &
vo%leaf(i), &
......@@ -148,8 +149,10 @@ if (iproc.eq.0) then
vo%rtf(i), &
vo%influid(i), &
i=1,osolve%nnode)
! write bad faces information
write (9) (vo%face(i),i=1,osolve%nface)
! write surface information (r,s,x,y,z,xn,yn,zn)
do is=1,osolve%nlsf
write (9) surface(is)%nsurface, &
......@@ -180,8 +183,9 @@ if (iproc.eq.0) then
surface(is)%w(i), &
i=1,surface(is)%nsurface)
end select
write (9) (surface(is)%icon(1:3,i),i=1,surface(is)%nt)
write (9) ((surface(is)%icon(j,i),j=1,3),i=1,surface(is)%nt)
enddo
! write cloud information
write (9) (cl%x(i), &
cl%y(i), &
......@@ -215,13 +219,6 @@ if (iproc.eq.0) then
endif
close (9)
! do i=1,osolve%nnode
! if (abs(osolve%x(i)-0.5d0)<1.d-6 .and. osolve%z(i)<0.08d0) then
! write (1234,'(5f30.15)') osolve%y(i),osolve%z(i),osolve%v(i),osolve%w(i),ov%temporary_nodal_pressure(i)
! end if
! end do
! close (1234)
end if
return
......@@ -229,6 +226,3 @@ end
!------------------------------------------------------------------------------|
!------------------------------------------------------------------------------|
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment