Frontier tests pass

Author: Anand Radhakrishnan

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)
 

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