Skip to content

Commit 446d38f

Browse files
authored
Merge branch 'master' into CodeTidying
2 parents 249fd15 + f1fea7a commit 446d38f

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/simulation/m_qbmm.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -858,7 +858,7 @@ contains
858858
! Helper to select the correct coefficient routine
859859
subroutine s_coeff_selector(pres, rho, c, coeff, polytropic)
860860
#ifdef _CRAYFTN
861-
!DIR$ INLINEALWAYS s_chyqmom
861+
!DIR$ INLINEALWAYS s_coeff_selector
862862
#else
863863
!$acc routine seq
864864
#endif

0 commit comments

Comments
 (0)