For some reason running formatting on my local machine is different than on frontier. We should look into that eventually

Author: danieljvickers

src/simulation/m_igr.fpp

@@ -265,7 +265,7 @@ contains
 
     subroutine s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
 #ifdef _CRAYFTN
-    !DIR$ OPTIMIZE (-haggress)
+        !DIR$ OPTIMIZE (-haggress)
 #endif
         type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
         type(integer_field), dimension(1:num_dims, 1:2), intent(in) :: bc_type
@@ -366,7 +366,7 @@ contains
 
     subroutine s_igr_sigma_x(q_cons_vf, rhs_vf)
 #ifdef _CRAYFTN
-    !DIR$ OPTIMIZE (-haggress)
+        !DIR$ OPTIMIZE (-haggress)
 #endif
         type(scalar_field), &
             dimension(sys_size), &
@@ -451,7 +451,7 @@ contains
 
     subroutine s_igr_riemann_solver(q_cons_vf, rhs_vf, idir)
 #ifdef _CRAYFTN
-    !DIR$ OPTIMIZE (-haggress)
+        !DIR$ OPTIMIZE (-haggress)
 #endif
         type(scalar_field), &
             dimension(sys_size), &
@@ -491,9 +491,9 @@ contains
 
                                 #:if MFC_CASE_OPTIMIZATION
                                     #:if igr_order == 5
-                                    !DIR$ unroll 6
+                                        !DIR$ unroll 6
                                     #:elif igr_order == 3
-                                    !DIR$ unroll 4
+                                        !DIR$ unroll 4
                                     #:endif
                                 #:endif
                                 $:GPU_LOOP(parallelism='[seq]')
@@ -908,9 +908,9 @@ contains
 
                                 #:if MFC_CASE_OPTIMIZATION
                                     #:if igr_order == 5
-                                    !DIR$ unroll 6
+                                        !DIR$ unroll 6
                                     #:elif igr_order == 3
-                                    !DIR$ unroll 4
+                                        !DIR$ unroll 4
                                     #:endif
                                 #:endif
                                 $:GPU_LOOP(parallelism='[seq]')
@@ -1425,9 +1425,9 @@ contains
 
                                     #:if MFC_CASE_OPTIMIZATION
                                         #:if igr_order == 5
-                                        !DIR$ unroll 6
+                                            !DIR$ unroll 6
                                         #:elif igr_order == 3
-                                        !DIR$ unroll 4
+                                            !DIR$ unroll 4
                                         #:endif
                                     #:endif
                                     $:GPU_LOOP(parallelism='[seq]')
@@ -1822,9 +1822,9 @@ contains
 
                                     #:if MFC_CASE_OPTIMIZATION
                                         #:if igr_order == 5
-                                        !DIR$ unroll 6
+                                            !DIR$ unroll 6
                                         #:elif igr_order == 3
-                                        !DIR$ unroll 4
+                                            !DIR$ unroll 4
                                         #:endif
                                     #:endif
                                     $:GPU_LOOP(parallelism='[seq]')
@@ -2307,9 +2307,9 @@ contains
 
                                 #:if MFC_CASE_OPTIMIZATION
                                     #:if igr_order == 5
-                                    !DIR$ unroll 6
+                                        !DIR$ unroll 6
                                     #:elif igr_order == 3
-                                    !DIR$ unroll 4
+                                        !DIR$ unroll 4
                                     #:endif
                                 #:endif
                                 $:GPU_LOOP(parallelism='[seq]')