diff --git a/src/stepon.F90 b/src/stepon.F90 index 89c61ab77d6e09fe07e1400011d220d7b668e86b..71ad932a0bec6ed56a393040909c74fe3dab66cf 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