Update m_bubbles_EL_kernels.fpp

MFlowCode · Dec 20, 2024 · f2de459 · f2de459
1 parent 55e3efa
commit f2de459
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/simulation/m_bubbles_EL_kernels.fpp b/src/simulation/m_bubbles_EL_kernels.fpp
@@ -390,7 +390,7 @@ contains
 
         !< Compute characteristic distance
         chardist = sqrt(dx(cell(1))*dy(cell(2)))
-        if (p > 0) chardist = (dx(cell(1))*dy(cell(2))*dz(cell(3)))**(1./3.)
+        if (p > 0) chardist = (dx(cell(1))*dy(cell(2))*dz(cell(3)))**(1._wp/3._wp)
 
         !< Compute characteristic volume
         if (p > 0) then