diff --git a/src/ppexit.F90 b/src/ppexit.F90
index dc68c0b7bfade20c1005f808302431b13bea3904..102924cbb27bfb6a9016a63ad7d44cdfb4954199 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)