Cleaned up formatting

src/write_global_output.f90

@@ -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
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
-
-
-