From fa985e6d655d06683ba2e49e7119ff5b236c2d36 Mon Sep 17 00:00:00 2001
From: holger <holger-grosshans@gmx.de>
Date: Wed, 13 May 2020 10:49:41 +0200
Subject: [PATCH] 	deleted:    src/writedat_fluid.f90

---
 src/writedat_fluid.f90 | 93 ------------------------------------------
 1 file changed, 93 deletions(-)
 delete mode 100644 src/writedat_fluid.f90

diff --git a/src/writedat_fluid.f90 b/src/writedat_fluid.f90
deleted file mode 100644
index 7798953..0000000
--- 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
-
-- 
GitLab