From 16fc7a355e8f45e7bb50a04f3f60440257f286fa Mon Sep 17 00:00:00 2001
From: Anand <anand@lawn-128-61-24-217.lawn.gatech.edu>
Date: Mon, 30 Jun 2025 12:38:17 -0400
Subject: [PATCH] Merge error in m_qbmm

---
 src/simulation/m_qbmm.fpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/simulation/m_qbmm.fpp b/src/simulation/m_qbmm.fpp
index 5b37fa244c..daf021c35c 100644
--- a/src/simulation/m_qbmm.fpp
+++ b/src/simulation/m_qbmm.fpp
@@ -858,7 +858,7 @@ contains
         ! Helper to select the correct coefficient routine
         subroutine s_coeff_selector(pres, rho, c, coeff, polytropic)
 #ifdef _CRAYFTN
-            !DIR$ INLINEALWAYS s_chyqmom
+            !DIR$ INLINEALWAYS s_coeff_selector
 #else
             !$acc routine seq
 #endif