From 8425a72d0ce0f011e13c3db34cfbc2577d2b0e89 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 25 Sep 2023 15:48:32 +0200
Subject: [PATCH] free FFTW only if nonlinear

---
 src/ppexit.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ppexit.F90 b/src/ppexit.F90
index dc68c0b7..102924cb 100644
--- a/src/ppexit.F90
+++ b/src/ppexit.F90
@@ -3,12 +3,14 @@ SUBROUTINE ppexit
 
   USE basic
   USE fourier, ONLY : finalize_plans
+  USE model,   ONLY : LINEARITY
 
   use prec_const
   IMPLICIT NONE
   INTEGER :: ierr
 
-  CALL finalize_plans
+  IF (LINEARITY .EQ. 'nonlinear') &
+   CALL finalize_plans
   CALL MPI_BARRIER(MPI_COMM_WORLD, ierr)
   CALL MPI_FINALIZE(ierr)
 
-- 
GitLab