@@ -1573,11 +1573,14 @@ contains
15731573 !$acc update device(sigma, surface_tension)
15741574
15751575 !$acc update device(dx, dy, dz, x_cb, x_cc, y_cb, y_cc, z_cb, z_cc)
1576-
1577- #:for VAR in [ ' x' ,' y' ,' z' ]
1578- !$acc update device(bc_{VAR}%vb1, bc_{VAR}%vb2, bc_{VAR}%vb3, bc_{VAR}%ve1, bc_{VAR}%ve2, bc_{VAR}%ve3)
1579- !$acc update device(bc_{VAR}%grcbc_in, bc_{VAR}%grcbc_out, bc_{VAR}%grcbc_vel_out)
1580- #:endfor
1576+
1577+ !$acc update device(bc_x%vb1, bc_x%vb2, bc_x%vb3, bc_x%ve1, bc_x%ve2, bc_x%ve3)
1578+ !$acc update device(bc_y%vb1, bc_y%vb2, bc_y%vb3, bc_y%ve1, bc_y%ve2, bc_y%ve3)
1579+ !$acc update device(bc_z%vb1, bc_z%vb2, bc_z%vb3, bc_z%ve1, bc_z%ve2, bc_z%ve3)
1580+
1581+ !$acc update device(bc_x%grcbc_in, bc_x%grcbc_out, bc_x%grcbc_vel_out)
1582+ !$acc update device(bc_y%grcbc_in, bc_y%grcbc_out, bc_y%grcbc_vel_out)
1583+ !$acc update device(bc_z%grcbc_in, bc_z%grcbc_out, bc_z%grcbc_vel_out)
15811584
15821585 !$acc update device(relax, relax_model)
15831586 if (relax) then
0 commit comments