prettyify, lint, and fix test suite

Author: okBrian

src/pre_process/m_checker.fpp

@@ -204,44 +204,43 @@ contains
 
         @:PROHIBIT(num_bc_patches > num_bc_patches_max, "num_bc_patches must be <= 10")
 
-
         do i = 1, num_bc_patches
 
-            ! Line Segment BC 
+            ! Line Segment BC
             if (patch_bc(i)%geometry == 1) then
                 @:PROHIBIT( .not. f_is_default(patch_bc(i)%radius), "Line Segment Patch can't have radius defined")
                 #:for DIR in [('1'), ('2')]
                     @:PROHIBIT(patch_bc(i)%dir == ${DIR}$ .and. (.not. f_is_default(patch_bc(i)%centroid(${DIR}$)) .or. .not. f_is_default(patch_bc(i)%centroid(3))), &
-                        "Line Segment Patch of Dir ${DIR}$ can't have a centroid in Dir ${DIR}$ or 3" ) 
-                        @:PROHIBIT(patch_bc(i)%dir == ${DIR}$ .and. (.not. f_is_default(patch_bc(i)%length(${DIR}$)) .or. .not. f_is_default(patch_bc(i)%length(3))), &
-                        "Line Segment Patch of Dir ${DIR}$ can't have a length in Dir ${DIR}$ or 3" ) 
+                        "Line Segment Patch of Dir ${DIR}$ can't have a centroid in Dir ${DIR}$ or 3" )
+                    @:PROHIBIT(patch_bc(i)%dir == ${DIR}$ .and. (.not. f_is_default(patch_bc(i)%length(${DIR}$)) .or. .not. f_is_default(patch_bc(i)%length(3))), &
+                        "Line Segment Patch of Dir ${DIR}$ can't have a length in Dir ${DIR}$ or 3" )
                 #:endfor
-            end if  
-            ! Circle BC 
+            end if
+            ! Circle BC
             if (patch_bc(i)%geometry == 2) then
                 @:PROHIBIT(f_is_default(patch_bc(i)%radius), "Circle Patch must have radius defined")
-                @:PROHIBIT(.not. f_is_default(patch_bc(i)%length(1)) .or. .not. f_is_default(patch_bc(i)%length(2)) .or. .not. f_is_default(patch_bc(i)%length(3)), & 
+                @:PROHIBIT(.not. f_is_default(patch_bc(i)%length(1)) .or. .not. f_is_default(patch_bc(i)%length(2)) .or. .not. f_is_default(patch_bc(i)%length(3)), &
                     "Circle Patch can't have lengths defined")
 
                 #:for DIR in [('1'), ('2'), ('3')]
                     @:PROHIBIT(patch_bc(i)%dir == ${DIR}$ .and. .not. f_is_default(patch_bc(i)%centroid(${DIR}$)), &
-                    "Circle Patch of Dir ${DIR}$ can't have a centroid in Dir ${DIR}$")
+                        "Circle Patch of Dir ${DIR}$ can't have a centroid in Dir ${DIR}$")
                 #:endfor
 
-            end if 
+            end if
             ! Rectangle BC
             if (patch_bc(i)%geometry == 3) then
                 @:PROHIBIT( .not. f_is_default(patch_bc(i)%radius), "Rectangle Patch can't have radius defined")
 
                 #:for DIR, VAR in [('1', '2', '3'), ('2', '3', '1'), ('3', '1', '2')]
                     @:PROHIBIT(patch_bc(i)%dir == ${DIR}$ .and. .not. f_is_default(patch_bc(i)%centroid(${DIR}$)), &
-                    "Rectangle Patch of Dir ${DIR}$ can't have a centroid in Dir ${DIR}$")
+                        "Rectangle Patch of Dir ${DIR}$ can't have a centroid in Dir ${DIR}$")
                     @:PROHIBIT(patch_bc(i)%dir == ${DIR}$ .and. .not. f_is_default(patch_bc(i)%length(${DIR}$)), &
-                    "Rectangle Patch of Dir ${DIR}$ can't have a length in Dir ${DIR}$")
+                        "Rectangle Patch of Dir ${DIR}$ can't have a length in Dir ${DIR}$")
                 #:endfor
 
-            end if 
-            
+            end if
+
         end do
 
     end subroutine

src/pre_process/m_start_up.fpp

@@ -178,7 +178,6 @@ contains
 
             if (cfl_adap_dt .or. cfl_const_dt .or. rkck_adap_dt) cfl_dt = .true.
 
-
             if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -17) .or. &
                 num_bc_patches > 0) then
                 save_bc = .true.

src/simulation/m_global_parameters.fpp

@@ -1223,12 +1223,12 @@ contains
         @:ALLOCATE(x_cc(-buff_size:m + buff_size))
         @:ALLOCATE(dx(-buff_size:m + buff_size))
 
-        if (n == 0) return;
+        if (n == 0) return; 
         @:ALLOCATE(y_cb(-1 - buff_size:n + buff_size))
         @:ALLOCATE(y_cc(-buff_size:n + buff_size))
         @:ALLOCATE(dy(-buff_size:n + buff_size))
 
-        if (p == 0) return;
+        if (p == 0) return; 
         @:ALLOCATE(z_cb(-1 - buff_size:p + buff_size))
         @:ALLOCATE(z_cc(-buff_size:p + buff_size))
         @:ALLOCATE(dz(-buff_size:p + buff_size))
@@ -1307,10 +1307,10 @@ contains
         ! Deallocating grid variables for the x-, y- and z-directions
         @:DEALLOCATE(x_cb, x_cc, dx)
 
-        if (n == 0) return;
+        if (n == 0) return; 
         @:DEALLOCATE(y_cb, y_cc, dy)
 
-        if (p == 0) return;
+        if (p == 0) return; 
         @:DEALLOCATE(z_cb, z_cc, dz)
 
     end subroutine s_finalize_global_parameters_module

src/simulation/m_sim_helpers.f90

@@ -272,18 +272,18 @@ subroutine s_assign_default_bc_type(bc_type)
 
         type(integer_field), dimension(1:num_dims, -1:1) :: bc_type
 
-        bc_type(1,-1)%sf(:,:,:) = bc_x%beg
-        bc_type(1,1)%sf(:,:,:) = bc_x%end
+        bc_type(1, -1)%sf(:, :, :) = bc_x%beg
+        bc_type(1, 1)%sf(:, :, :) = bc_x%end
         !$acc update device(bc_type(1,-1)%sf, bc_type(1,1)%sf)
 
         if (n > 0) then
-            bc_type(2,-1)%sf(:,:,:) = bc_y%beg
-            bc_type(2,1)%sf(:,:,:) = bc_y%end
+            bc_type(2, -1)%sf(:, :, :) = bc_y%beg
+            bc_type(2, 1)%sf(:, :, :) = bc_y%end
             !$acc update device(bc_type(2,-1)%sf, bc_type(2,1)%sf)
 
             if (p > 0) then
-                bc_type(3,-1)%sf(:,:,:) = bc_z%beg
-                bc_type(3,1)%sf(:,:,:) = bc_z%end
+                bc_type(3, -1)%sf(:, :, :) = bc_z%beg
+                bc_type(3, 1)%sf(:, :, :) = bc_z%end
                 !$acc update device(bc_type(3,-1)%sf, bc_type(3,1)%sf)
             end if
         end if