From 47f0bca0454b66ff1c57151c2e687ba11d3cd249 Mon Sep 17 00:00:00 2001 From: Hyun Kang Date: Fri, 14 Apr 2023 01:29:24 -0400 Subject: [PATCH] Fix a bug issued by #5598 - The standalone MPAS-O build was broken due to a missing 'USE_LAPACK' directive in the SI solver code. --- .../mpas-ocean/src/mode_forward/mpas_ocn_time_integration_si.F | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_si.F b/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_si.F index 14f97cb9f6c2..a146560f23df 100644 --- a/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_si.F +++ b/components/mpas-ocean/src/mode_forward/mpas_ocn_time_integration_si.F @@ -4324,7 +4324,7 @@ subroutine si_precond(SIvec_in,SIvec_out) #endif !####################################################################### -#else +#elif defined(USE_LAPACK) ! LAPACK on CPU ! (also if no MAGMA & CUBLAS for GPU ; Data staging) @@ -4332,7 +4332,6 @@ subroutine si_precond(SIvec_in,SIvec_out) call DSPMV('U', nPrecVec, 1.0_RKIND, prec_ivmat(:,1), & SIvec_in(1:nPrecVec) , 1, 0.0_RKIND, & SIvec_out(1:nPrecVec), 1) - #endif elseif ( trim(config_btr_si_preconditioner) == 'jacobi' ) then