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.
E3SM-Project · Apr 14, 2023 · 47f0bca · 47f0bca
1 parent 5918d07
commit 47f0bca
Showing 1 changed file with 1 addition and 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
@@ -4324,15 +4324,14 @@ 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)
          !$acc update host(SIvec_in)
          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