Skip to content

Commit 4159b74

Browse files
prathi-windprathi-wind
committed
Removed all end directives excpet host_data and kernels
1 parent eb01272 commit 4159b74

File tree

9 files changed

+0
-35
lines changed

9 files changed

+0
-35
lines changed

‎src/common/m_variables_conversion.fpp‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1145,7 +1145,6 @@ contains
11451145
end do
11461146
end do
11471147
end do
1148-
!$acc end parallel loop
11491148

11501149
end subroutine s_convert_conservative_to_primitive_variables
11511150

‎src/simulation/m_data_output.fpp‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -297,7 +297,6 @@ contains
297297
end do
298298
end do
299299
end do
300-
!$acc end parallel loop
301300

302301
! end: Computing Stability Criteria at Current Time-step
303302

‎src/simulation/m_hyperelastic.fpp‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -208,7 +208,6 @@ contains
208208
end do
209209
end do
210210
end do
211-
!$acc end parallel loop
212211
end subroutine s_hyperelastic_rmt_stress_update
213212

214213
!> The following subroutine handles the calculation of the btensor.

‎src/simulation/m_hypoelastic.fpp‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -112,7 +112,6 @@ contains
112112
end do
113113
end do
114114
end do
115-
!$acc end parallel loop
116115

117116
$:GPU_PARALLEL_LOOP(collapse=3)
118117
do q = 0, p
@@ -127,7 +126,6 @@ contains
127126
end do
128127
end do
129128
end do
130-
!$acc end parallel loop
131129

132130
if (ndirs > 1) then
133131
$:GPU_PARALLEL_LOOP(collapse=3)
@@ -138,7 +136,6 @@ contains
138136
end do
139137
end do
140138
end do
141-
!$acc end parallel loop
142139

143140
$:GPU_PARALLEL_LOOP(collapse=3)
144141
do q = 0, p
@@ -156,7 +153,6 @@ contains
156153
end do
157154
end do
158155
end do
159-
!$acc end parallel loop
160156

161157
! 3D
162158
if (ndirs == 3) then
@@ -170,7 +166,6 @@ contains
170166
end do
171167
end do
172168
end do
173-
!$acc end parallel loop
174169

175170
$:GPU_PARALLEL_LOOP(collapse=3)
176171
do q = 0, p
@@ -192,7 +187,6 @@ contains
192187
end do
193188
end do
194189
end do
195-
!$acc end parallel loop
196190
end if
197191
end if
198192

‎src/simulation/m_mhd.fpp‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -129,7 +129,6 @@ contains
129129
end do
130130
end do
131131
end do
132-
!$acc end parallel loop
133132

134133
end subroutine s_compute_mhd_powell_rhs
135134

‎src/simulation/m_rhs.fpp‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1742,7 +1742,6 @@ contains
17421742
end do
17431743
end do
17441744
end do
1745-
!$acc end parallel loop
17461745
else if (recon_dir == 2) then
17471746
$:GPU_PARALLEL_LOOP(collapse=4)
17481747
do i = iv%beg, iv%end
@@ -1755,7 +1754,6 @@ contains
17551754
end do
17561755
end do
17571756
end do
1758-
!$acc end parallel loop
17591757
else if (recon_dir == 3) then
17601758
$:GPU_PARALLEL_LOOP(collapse=4)
17611759
do i = iv%beg, iv%end
@@ -1768,7 +1766,6 @@ contains
17681766
end do
17691767
end do
17701768
end do
1771-
!$acc end parallel loop
17721769
end if
17731770

17741771
end subroutine s_reconstruct_cell_boundary_values_first_order

‎src/simulation/m_riemann_solvers.fpp‎

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1968,7 +1968,6 @@ contains
19681968
end do
19691969
end do
19701970
end do
1971-
!$acc end parallel loop
19721971
19731972
elseif (model_eqns == 2 .and. bubbles_euler) then
19741973
$:GPU_PARALLEL_LOOP(collapse=3, private='[R0_L, R0_R, V0_L, &
@@ -2439,7 +2438,6 @@ contains
24392438
end do
24402439
end do
24412440
end do
2442-
!$acc end parallel loop
24432441
else
24442442
! 5-EQUATION MODEL WITH HLLC
24452443
$:GPU_PARALLEL_LOOP(collapse=3, private='[vel_L, vel_R, &
@@ -2954,7 +2952,6 @@ contains
29542952
end do
29552953
end do
29562954
end do
2957-
!$acc end parallel loop
29582955
end if
29592956
end if
29602957
#:endfor
@@ -3301,7 +3298,6 @@ contains
33013298
end do
33023299
end do
33033300
end do
3304-
!$acc end parallel loop
33053301
end if
33063302
#:endfor
33073303
@@ -4095,7 +4091,6 @@ contains
40954091
end do
40964092
end do
40974093
end do
4098-
!$acc end parallel loop
40994094
41004095
end subroutine s_compute_cylindrical_viscous_source_flux
41014096
@@ -4232,7 +4227,6 @@ contains
42324227
end do
42334228
end do
42344229
end do
4235-
!$acc end parallel loop
42364230
42374231
end subroutine s_compute_cartesian_viscous_source_flux
42384232

‎src/simulation/m_surface_tension.fpp‎

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -349,7 +349,6 @@ contains
349349
end do
350350
end do
351351
end do
352-
!$acc end parallel loop
353352
else if (recon_dir == 2) then
354353
$:GPU_PARALLEL_LOOP(collapse=4)
355354
do i = iv%beg, iv%end
@@ -362,7 +361,6 @@ contains
362361
end do
363362
end do
364363
end do
365-
!$acc end parallel loop
366364
else if (recon_dir == 3) then
367365
$:GPU_PARALLEL_LOOP(collapse=4)
368366
do i = iv%beg, iv%end
@@ -375,7 +373,6 @@ contains
375373
end do
376374
end do
377375
end do
378-
!$acc end parallel loop
379376
end if
380377

381378
end subroutine s_reconstruct_cell_boundary_values_capillary

‎src/simulation/m_weno.fpp‎

Lines changed: 0 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -679,7 +679,6 @@ contains
679679
end do
680680
end do
681681
end do
682-
!$acc end parallel loop
683682
else if (weno_dir == 2) then
684683
$:GPU_PARALLEL_LOOP(collapse=4)
685684
do i = 1, ubound(v_vf, 1)
@@ -692,7 +691,6 @@ contains
692691
end do
693692
end do
694693
end do
695-
!$acc end parallel loop
696694
else if (weno_dir == 3) then
697695
$:GPU_PARALLEL_LOOP(collapse=4)
698696
do i = 1, ubound(v_vf, 1)
@@ -705,7 +703,6 @@ contains
705703
end do
706704
end do
707705
end do
708-
!$acc end parallel loop
709706
end if
710707
elseif (weno_order == 3) then
711708
#:for WENO_DIR, XYZ in [(1, 'x'), (2, 'y'), (3, 'z')]
@@ -783,7 +780,6 @@ contains
783780
end do
784781
end do
785782
end do
786-
!$acc end parallel loop
787783
end if
788784
#:endfor
789785
elseif (weno_order == 5) then
@@ -898,7 +894,6 @@ contains
898894
end do
899895
end do
900896
end do
901-
!$acc end parallel loop
902897

903898
if (mp_weno) then
904899
call s_preserve_monotonicity(v_rs_ws_${XYZ}$, vL_rs_vf_${XYZ}$, &
@@ -1094,7 +1089,6 @@ contains
10941089
end do
10951090
end do
10961091
end do
1097-
!$acc end parallel loop
10981092

10991093
end if
11001094
#:endfor
@@ -1142,7 +1136,6 @@ contains
11421136
end do
11431137
end do
11441138
end do
1145-
!$acc end parallel loop
11461139
end if
11471140

11481141
! Reshaping/Projecting onto Characteristic Fields in y-direction
@@ -1157,15 +1150,13 @@ contains
11571150

11581151
$:GPU_HOST_DATA(use_device='[v_rs_ws_x, v_rs_ws_y]')
11591152
v_rs_ws_y = reshape(v_rs_ws_x, shape=[n + 1 + 2*buff_size, m + 2*buff_size + 1, p + 1, sys_size], order=[2, 1, 3, 4])
1160-
!$acc end host_data
11611153
end block
11621154
else
11631155
block
11641156
use CuTensorEx
11651157

11661158
$:GPU_HOST_DATA(use_device='[v_rs_ws_x, v_rs_ws_y]')
11671159
v_rs_ws_y = reshape(v_rs_ws_x, shape=[n + 1 + 2*buff_size, m + 2*buff_size + 1, p + 1 + 2*buff_size, sys_size], order=[2, 1, 3, 4])
1168-
!$acc end host_data
11691160
end block
11701161
end if
11711162
else
@@ -1180,7 +1171,6 @@ contains
11801171
end do
11811172
end do
11821173
end do
1183-
!$acc end parallel loop
11841174
#if MFC_cuTENSOR
11851175
end if
11861176
#endif
@@ -1196,7 +1186,6 @@ contains
11961186

11971187
$:GPU_HOST_DATA(use_device='[v_rs_ws_x, v_rs_ws_z]')
11981188
v_rs_ws_z = reshape(v_rs_ws_x, shape=[p + 1 + 2*buff_size, n + 2*buff_size + 1, m + 2*buff_size + 1, sys_size], order=[3, 2, 1, 4])
1199-
!$acc end host_data
12001189
end block
12011190
else
12021191
#endif
@@ -1210,7 +1199,6 @@ contains
12101199
end do
12111200
end do
12121201
end do
1213-
!$acc end parallel loop
12141202
#if MFC_cuTENSOR
12151203
end if
12161204
#endif
@@ -1388,7 +1376,6 @@ contains
13881376
end do
13891377
end do
13901378
end do
1391-
!$acc end parallel loop
13921379

13931380
end subroutine s_preserve_monotonicity
13941381

0 commit comments

Comments
 (0)