Frontier tests pass

MFlowCode · Nov 11, 2024 · 4debf59 · 4debf59
1 parent ea836f1
commit 4debf59
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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