From 4189aa126bd9d4aa00e481a1fe0ef851d41e27be Mon Sep 17 00:00:00 2001 From: Anand Radhakrishnan Date: Mon, 11 Nov 2024 14:10:22 -0500 Subject: [PATCH] Frontier tests pass --- src/simulation/m_ibm.fpp | 6 +++--- src/simulation/m_qbmm.fpp | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp index afd565820..0eec65b00 100644 --- a/src/simulation/m_ibm.fpp +++ b/src/simulation/m_ibm.fpp @@ -73,7 +73,7 @@ contains ! @:ALLOCATE(ib_markers%sf(0:m, 0:n, 0:p)) @:ALLOCATE(levelset(0:m, 0:n, 0:p, num_ibs)) - @:ALLOCATE(levelset_norm(0:m, 0:n, 0:p, num_ibs, 3)) + @:ALLOCATE(levelset_norm(0:m, 0:n, 0:p, 1:num_ibs, 1:3)) !$acc enter data copyin(gp_layers, num_gps, num_inner_gps) @@ -93,8 +93,8 @@ contains call s_find_num_ghost_points() !$acc update device(num_gps, num_inner_gps) - @:ALLOCATE(ghost_points(num_gps)) - @:ALLOCATE(inner_points(num_inner_gps)) + @:ALLOCATE(ghost_points(1:num_gps)) + @:ALLOCATE(inner_points(1:num_inner_gps)) !$acc enter data copyin(ghost_points, inner_points) diff --git a/src/simulation/m_qbmm.fpp b/src/simulation/m_qbmm.fpp index 61e2fdaad..b22163b21 100644 --- a/src/simulation/m_qbmm.fpp +++ b/src/simulation/m_qbmm.fpp @@ -66,7 +66,7 @@ contains #:endif - @:ALLOCATE(momrhs(3, 0:2, 0:2, nterms, nb)) + @:ALLOCATE(momrhs(1:3, 0:2, 0:2, 1:nterms, 1:nb)) momrhs = 0d0 ! Assigns the required RHS moments for moment transport equations