Changed do concurrent to regular do because of a complex data structu…

…re that is incompatible with optimized ifx
MintonGroup · Feb 11, 2024 · db513e0 · db513e0
1 parent dfbe54f
commit db513e0
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/init/init_regolith_stack.f90 b/src/init/init_regolith_stack.f90
@@ -37,9 +37,10 @@ subroutine init_regolith_stack(user,surf,domain)
    !=======================================
    ! Initialize the grid space  
    !=======================================
-
-   do concurrent(xp=1:user%gridsize,yp=1:user%gridsize)
-      call util_init_array(user,surf(xp,yp)%regolayer,domain,initstat)
+   do yp=1,user%gridsize
+      do xp=1,user%gridsize
+         call util_init_array(user,surf(xp,yp)%regolayer,domain,initstat)
+      end do
    end do
 
    return