frontier build issue

MFlowCode · Nov 14, 2024 · 3792b88 · 3792b88
1 parent 48209c1
commit 3792b88
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/src/simulation/m_start_up.fpp b/src/simulation/m_start_up.fpp
@@ -1573,11 +1573,14 @@ contains
         !$acc update device(sigma, surface_tension)
 
         !$acc update device(dx, dy, dz, x_cb, x_cc, y_cb, y_cc, z_cb, z_cc)
-
-        #:for VAR in [ 'x','y','z' ]    
-        !$acc update device(bc_{VAR}%vb1, bc_{VAR}%vb2, bc_{VAR}%vb3, bc_{VAR}%ve1, bc_{VAR}%ve2, bc_{VAR}%ve3)
-        !$acc update device(bc_{VAR}%grcbc_in, bc_{VAR}%grcbc_out, bc_{VAR}%grcbc_vel_out)
-        #:endfor
+
+        !$acc update device(bc_x%vb1, bc_x%vb2, bc_x%vb3, bc_x%ve1, bc_x%ve2, bc_x%ve3)
+        !$acc update device(bc_y%vb1, bc_y%vb2, bc_y%vb3, bc_y%ve1, bc_y%ve2, bc_y%ve3)
+        !$acc update device(bc_z%vb1, bc_z%vb2, bc_z%vb3, bc_z%ve1, bc_z%ve2, bc_z%ve3)
+
+        !$acc update device(bc_x%grcbc_in, bc_x%grcbc_out, bc_x%grcbc_vel_out)
+        !$acc update device(bc_y%grcbc_in, bc_y%grcbc_out, bc_y%grcbc_vel_out)
+        !$acc update device(bc_z%grcbc_in, bc_z%grcbc_out, bc_z%grcbc_vel_out)
 
         !$acc update device(relax, relax_model)
         if (relax) then