diff --git a/src/writedat_fluid.f90 b/src/writedat_fluid.f90 deleted file mode 100644 index 77989532278fb60fbf9f696ca40e8f5d23804038..0000000000000000000000000000000000000000 --- a/src/writedat_fluid.f90 +++ /dev/null @@ -1,93 +0,0 @@ -!#################################################################### -!> @author Holger Grosshans - subroutine writedat_ufluid_xz - use var - character(70) :: filename,rowfmt - integer :: i,j,l - -100 format(es11.4e2) - write(rowfmt,'(a,i4,a)') '(',(imax-imin+2),'(1x,es11.4e2))' - - j=int(jj/2) - - write(filename,'(a,i3.3,a,i6.6,a)') & - 'results/fluid_u_xz_p',myid,'_',nt,'.dat' - open(10,file=filename) - - write(10,'(a,es14.6e2,a,x,a)') '# u: t=',t,' s --',version - - write(10,'(a11)',advance='no') '# z/x' - write(10,fmt=rowfmt) (xf(i),i=imin,imax+1) - do l=lmin-1,lmax+1 - write(10,fmt=100,advance='no') zc(l) - write(10,fmt=rowfmt) (u(i,j,l),i=imin,imax+1) - enddo - - close(10) - - return - - end - -!#################################################################### -!> @author Holger Grosshans - subroutine writedat_vfluid_xz - use var - character(70) :: filename,rowfmt - integer :: i,j,l - -100 format(es11.4e2) - write(rowfmt,'(a,i4,a)') '(',(imax-imin+2),'(1x,es11.4e2))' - - j=int(jj/2) - - write(filename,'(a,i3.3,a,i6.6,a)') & - 'results/fluid_v_xz_p',myid,'_',nt,'.dat' - open(10,file=filename) - - write(10,'(a,es14.6e2,a,x,a)') '# v: t=',t,' s --',version - - write(10,'(a11)',advance='no') '# z/x' - write(10,fmt=rowfmt) (xc(i),i=imin,imax+1) - do l=lmin-1,lmax+1 - write(10,fmt=100,advance='no') zc(l) - write(10,fmt=rowfmt) (v(i,j,l),i=imin,imax+1) - enddo - - close(10) - - return - - end - -!#################################################################### -!> @author Holger Grosshans - subroutine writedat_wfluid_xz - use var - character(70) :: filename,rowfmt - integer :: i,j,l - -100 format(es11.4e2) - write(rowfmt,'(a,i4,a)') '(',(imax-imin+2),'(1x,es11.4e2))' - - j=int(jj/2) - - write(filename,'(a,i3.3,a,i6.6,a)') & - 'results/fluid_w_xz_p',myid,'_',nt,'.dat' - open(10,file=filename) - - write(10,'(a,es14.6e2,a,x,a)') '# w: t=',t,' s --',version - - write(10,'(a11)',advance='no') '# z/x' - write(10,fmt=rowfmt) (xc(i),i=imin,imax+1) - do l=lmin-1,lmax+1 - write(10,fmt=100,advance='no') zf(l) - write(10,fmt=rowfmt) (w(i,j,l),i=imin,imax+1) - enddo - - close(10) - - return - - end -