From cab000f4b4b9acbb0e8051f22256904ac36d3628 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 4 Feb 2020 23:52:10 +0100 Subject: [PATCH] not used --- src/mesh_grid.f90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90 index bce392d78..0366f2213 100644 --- a/src/mesh_grid.f90 +++ b/src/mesh_grid.f90 @@ -42,9 +42,7 @@ contains !-------------------------------------------------------------------------------------------------- !> @brief reads the geometry file to obtain information on discretization !-------------------------------------------------------------------------------------------------- -subroutine mesh_init(ip,el) - - integer, intent(in), optional :: el, ip ! for compatibility reasons +subroutine mesh_init include 'fftw3-mpi.f03' real(pReal), dimension(3) :: &