Skip to content

Commit

Permalink
Merge branch 'hkang/ocean/si-bug-fix' (PR #5600)
Browse files Browse the repository at this point in the history
Fix a bug in the SI solver

Fixes a bug in the standalone MPAS-O build that was broken due to a
missing 'USE_LAPACK' directive in the SI solver code (issued by #5598).

Fixes #5598

[BFB]
  • Loading branch information
jonbob committed Apr 17, 2023
2 parents 709a369 + 47f0bca commit 4b3e611
Showing 1 changed file with 1 addition and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 4b3e611

Please sign in to comment.