From f2de45988716bf80582e3edb33dc3103a98e6706 Mon Sep 17 00:00:00 2001 From: Spencer Bryngelson Date: Fri, 20 Dec 2024 11:29:32 -0500 Subject: [PATCH] Update m_bubbles_EL_kernels.fpp --- src/simulation/m_bubbles_EL_kernels.fpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/simulation/m_bubbles_EL_kernels.fpp b/src/simulation/m_bubbles_EL_kernels.fpp index 81427cc55..84ebe655d 100644 --- 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