From db513e0885a5b9a0ec7cd5f04a2afbd82d5d527e Mon Sep 17 00:00:00 2001 From: David Minton Date: Sun, 11 Feb 2024 12:38:00 -0500 Subject: [PATCH] Changed do concurrent to regular do because of a complex data structure that is incompatible with optimized ifx --- src/init/init_regolith_stack.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/init/init_regolith_stack.f90 b/src/init/init_regolith_stack.f90 index 7115a63c..3538909f 100644 --- 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