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) :: &