From 7fffa90eb0f996488176824aa15f0ad28b4c475b Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 3 Apr 2023 10:42:23 +0200
Subject: [PATCH] test_svd is called only if we compile in test_svd
---
src/stepon.F90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/stepon.F90 b/src/stepon.F90
index 89c61ab7..71ad932a 100644
--- a/src/stepon.F90
+++ b/src/stepon.F90
@@ -8,7 +8,7 @@ SUBROUTINE stepon
use mpi, ONLY: MPI_COMM_WORLD
USE time_integration, ONLY: ntimelevel
USE prec_const, ONLY: xp
- USE DLRA, ONLY: test_SVD
+ USE DLRA, ONLY: test_svd
IMPLICIT NONE
INTEGER :: num_step, ierr
@@ -57,7 +57,9 @@ SUBROUTINE stepon
!! TEST SINGULAR VALUE DECOMPOSITION
! CALL filter_singular_value_ky_pj(nsv,moments)
- ! CALL test_SVD
+#ifdef TEST_SVD
+ CALL test_svd
+#endif
IF( nlend ) EXIT ! exit do loop
--
GitLab