@@ -135,14 +135,11 @@ module m_cbc
135135 !$acc declare create(dj, bcxb, bcxe, bcyb, bcye, bczb, bcze, cbc_dir, cbc_loc)
136136
137137 real (kind (0d0 )) :: ux_in, ux_out, vx_in, vx_out, wx_in, wx_out, presx_in, presx_out, Delx_in, Delx_out
138-
139138 real (kind (0d0 )) :: uy_in, uy_out, vy_in, vy_out, wy_in, wy_out, presy_in, presy_out, Dely_in, Dely_out
140-
141139 real (kind (0d0 )) :: uz_in, uz_out, vz_in, vz_out, wz_in, wz_out, presz_in, presz_out, Delz_in, Delz_out
142-
143- !$acc declare create(ux_in, ux_out, vx_in, vx_out, wx_in, wx_out, presx_in, presx_out, Delx_in, Delx_out)
144- !$acc declare create(uy_in, uy_out, vy_in, vy_out, wy_in, wy_out, presy_in, presy_out, Dely_in, Dely_out)
145- !$acc declare create(uz_in, uz_out, vz_in, vz_out, wz_in, wz_out, presz_in, presz_out, Delz_in, Delz_out)
140+ !$acc declare create(ux_in, ux_out, vx_in, vx_out, wx_in, wx_out, presx_in, presx_out, Delx_in, Delx_out)
141+ !$acc declare create(uy_in, uy_out, vy_in, vy_out, wy_in, wy_out, presy_in, presy_out, Dely_in, Dely_out)
142+ !$acc declare create(uz_in, uz_out, vz_in, vz_out, wz_in, wz_out, presz_in, presz_out, Delz_in, Delz_out)
146143
147144#ifdef CRAY_ACC_WAR
148145 @:CRAY_DECLARE_GLOBAL(real (kind (0d0 )), dimension (:), alpha_rhox_in, alphax_in)
@@ -452,7 +449,6 @@ contains
452449 @:ALLOCATE_GLOBAL(alphax_in(1 :num_fluids), alphay_in(1 :num_fluids), alphaz_in(1 :num_fluids))
453450
454451 #:for CBC_DIR, XYZ in [(1 , ' x' ), (2 , ' y' ), (3 , ' z' )]
455-
456452 if (${CBC_DIR}$ == 1 ) then
457453 u${XYZ}$_in = bc_${XYZ}$%u_in
458454 v${XYZ}$_in = bc_${XYZ}$%v_in
@@ -463,7 +459,6 @@ contains
463459 Del${XYZ}$_in = maxval (dx)
464460 Del${XYZ}$_out = maxval (dx)
465461 else if (${CBC_DIR}$ == 2 ) then
466-
467462 u${XYZ}$_in = bc_${XYZ}$%v_in
468463 v${XYZ}$_in = bc_${XYZ}$%u_in
469464 w${XYZ}$_in = bc_${XYZ}$%w_in
@@ -486,7 +481,6 @@ contains
486481 Del${XYZ}$_out = maxval (dz)
487482 end if
488483 end if
489-
490484 pres${XYZ}$_in = bc_${XYZ}$%pres_in
491485 pres${XYZ}$_out = bc_${XYZ}$%pres_out
492486 do i = 1 , num_fluids
@@ -496,7 +490,6 @@ contains
496490 !$acc update device(u${XYZ}$_in, v${XYZ}$_in, w${XYZ}$_in, u${XYZ}$_out, v${XYZ}$_out, w${XYZ}$_out)
497491 !$acc update device(pres${XYZ}$_in, pres${XYZ}$_out, alpha_rho${XYZ}$_in, alpha${XYZ}$_in)
498492 !$acc update device(Del${XYZ}$_in, Del${XYZ}$_out)
499-
500493 #:endfor
501494
502495 end subroutine s_initialize_cbc_module
@@ -943,7 +936,6 @@ contains
943936 call s_compute_nonreflecting_subsonic_buffer_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
944937 else if ((cbc_loc == - 1 .and. bc${XYZ}$b == - 7 ) .or. (cbc_loc == 1 .and. bc${XYZ}$e == - 7 )) then
945938 call s_compute_nonreflecting_subsonic_inflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
946-
947939 !Add GRCBC for Subsonic Inflow
948940 if (bc_${XYZ}$%grcbc_in) then
949941 !$acc loop seq
@@ -964,7 +956,6 @@ contains
964956 end if
965957 else if ((cbc_loc == - 1 .and. bc${XYZ}$b == - 8 ) .or. (cbc_loc == 1 .and. bc${XYZ}$e == - 8 )) then
966958 call s_compute_nonreflecting_subsonic_outflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
967-
968959 !Add GRCBC for Subsonic Outflow (Pressure)
969960 if (bc_${XYZ}$%grcbc_out) then
970961 L(advxe) = c* (1d0 - Ma)* (pres - pres${XYZ}$_out)/ Del${XYZ}$_out
@@ -974,7 +965,6 @@ contains
974965 L(advxe) = L(advxe) + rho* c** 2d0 * (1d0 - Ma)* (vel(dir_idx(1 )) + u${XYZ}$_out* sign (1 , cbc_loc))/ Del${XYZ}$_out
975966 end if
976967 end if
977-
978968 else if ((cbc_loc == - 1 .and. bc${XYZ}$b == - 9 ) .or. (cbc_loc == 1 .and. bc${XYZ}$e == - 9 )) then
979969 call s_compute_force_free_subsonic_outflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
980970 else if ((cbc_loc == - 1 .and. bc${XYZ}$b == - 10 ) .or. (cbc_loc == 1 .and. bc${XYZ}$e == - 10 )) then
0 commit comments