Skip to content
Snippets Groups Projects
Commit 8425a72d authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

free FFTW only if nonlinear

parent 40f6c552
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 1 deletion
src/ppexit.F90
+ 3
− 1
View file @ 8425a72d
...@@ -3,12 +3,14 @@ SUBROUTINE ppexit ...@@ -3,12 +3,14 @@ SUBROUTINE ppexit
USE basic USE basic
USE fourier, ONLY : finalize_plans USE fourier, ONLY : finalize_plans
USE model, ONLY : LINEARITY
use prec_const use prec_const
IMPLICIT NONE IMPLICIT NONE
INTEGER :: ierr INTEGER :: ierr
CALL finalize_plans IF (LINEARITY .EQ. 'nonlinear') &
CALL finalize_plans
CALL MPI_BARRIER(MPI_COMM_WORLD, ierr) CALL MPI_BARRIER(MPI_COMM_WORLD, ierr)
CALL MPI_FINALIZE(ierr) CALL MPI_FINALIZE(ierr)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment