Skip to content

Commit ee7e431

Browse files
author
Daniel Vickers
committed
Formatting
1 parent 9952603 commit ee7e431

2 files changed

Lines changed: 14 additions & 14 deletions

File tree

‎src/simulation/m_ib_patches.fpp‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -140,7 +140,7 @@ contains
140140

141141
do patch_id = 1, num_ibs
142142
if (patch_ib(patch_id)%geometry == 5 .or. patch_ib(patch_id)%geometry == 12) then
143-
allocate(models(patch_id)%model)
143+
allocate (models(patch_id)%model)
144144
print *, " * Reading model: "//trim(patch_ib(patch_id)%model_filepath)
145145

146146
model = f_model_read(patch_ib(patch_id)%model_filepath)

‎src/simulation/m_igr.fpp‎

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -265,7 +265,7 @@ contains
265265

266266
subroutine s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
267267
#ifdef _CRAYFTN
268-
!DIR$ OPTIMIZE (-haggress)
268+
!DIR$ OPTIMIZE (-haggress)
269269
#endif
270270
type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
271271
type(integer_field), dimension(1:num_dims, 1:2), intent(in) :: bc_type
@@ -366,7 +366,7 @@ contains
366366

367367
subroutine s_igr_sigma_x(q_cons_vf, rhs_vf)
368368
#ifdef _CRAYFTN
369-
!DIR$ OPTIMIZE (-haggress)
369+
!DIR$ OPTIMIZE (-haggress)
370370
#endif
371371
type(scalar_field), &
372372
dimension(sys_size), &
@@ -451,7 +451,7 @@ contains
451451

452452
subroutine s_igr_riemann_solver(q_cons_vf, rhs_vf, idir)
453453
#ifdef _CRAYFTN
454-
!DIR$ OPTIMIZE (-haggress)
454+
!DIR$ OPTIMIZE (-haggress)
455455
#endif
456456
type(scalar_field), &
457457
dimension(sys_size), &
@@ -491,9 +491,9 @@ contains
491491

492492
#:if MFC_CASE_OPTIMIZATION
493493
#:if igr_order == 5
494-
!DIR$ unroll 6
494+
!DIR$ unroll 6
495495
#:elif igr_order == 3
496-
!DIR$ unroll 4
496+
!DIR$ unroll 4
497497
#:endif
498498
#:endif
499499
$:GPU_LOOP(parallelism='[seq]')
@@ -908,9 +908,9 @@ contains
908908

909909
#:if MFC_CASE_OPTIMIZATION
910910
#:if igr_order == 5
911-
!DIR$ unroll 6
911+
!DIR$ unroll 6
912912
#:elif igr_order == 3
913-
!DIR$ unroll 4
913+
!DIR$ unroll 4
914914
#:endif
915915
#:endif
916916
$:GPU_LOOP(parallelism='[seq]')
@@ -1425,9 +1425,9 @@ contains
14251425

14261426
#:if MFC_CASE_OPTIMIZATION
14271427
#:if igr_order == 5
1428-
!DIR$ unroll 6
1428+
!DIR$ unroll 6
14291429
#:elif igr_order == 3
1430-
!DIR$ unroll 4
1430+
!DIR$ unroll 4
14311431
#:endif
14321432
#:endif
14331433
$:GPU_LOOP(parallelism='[seq]')
@@ -1822,9 +1822,9 @@ contains
18221822

18231823
#:if MFC_CASE_OPTIMIZATION
18241824
#:if igr_order == 5
1825-
!DIR$ unroll 6
1825+
!DIR$ unroll 6
18261826
#:elif igr_order == 3
1827-
!DIR$ unroll 4
1827+
!DIR$ unroll 4
18281828
#:endif
18291829
#:endif
18301830
$:GPU_LOOP(parallelism='[seq]')
@@ -2307,9 +2307,9 @@ contains
23072307

23082308
#:if MFC_CASE_OPTIMIZATION
23092309
#:if igr_order == 5
2310-
!DIR$ unroll 6
2310+
!DIR$ unroll 6
23112311
#:elif igr_order == 3
2312-
!DIR$ unroll 4
2312+
!DIR$ unroll 4
23132313
#:endif
23142314
#:endif
23152315
$:GPU_LOOP(parallelism='[seq]')

0 commit comments

Comments
 (0)