format, spelling, and lint

Author: wilfonba

src/post_process/m_data_output.fpp

@@ -1257,8 +1257,7 @@ contains
 
     end subroutine s_write_lag_bubbles_results_to_text
 
-
- impure subroutine s_write_lag_bubbles_to_formatted_database_file(t_step)
+    impure subroutine s_write_lag_bubbles_to_formatted_database_file(t_step)
 
         integer, intent(in) :: t_step
 
@@ -1360,9 +1359,9 @@ contains
         if (nBub > 0) then
 
             #:for VAR in ['bub_id', 'px', 'py', 'pz', 'ppx', 'ppy', 'ppz', 'vx', 'vy', 'vz', &
-                          'radius', 'rvel', 'rnot', 'rmax', 'rmin', 'dphidt', &
-                          'pressure', 'mv', 'mg', 'betaT', 'betaC']
-                allocate(${VAR}$(nBub))
+                'radius', 'rvel', 'rnot', 'rmax', 'rmin', 'dphidt', &
+                'pressure', 'mv', 'mg', 'betaT', 'betaC']
+                allocate (${VAR}$ (nBub))
             #:endfor
             allocate (MPI_IO_DATA_lg_bubbles(nBub, 1:lag_io_vars))
 
@@ -1387,10 +1386,10 @@ contains
             ! Extract data from MPI_IO_DATA_lg_bubbles array
             ! Adjust these indices based on your actual data layout
             #:for VAR, IDX in [('bub_id', 1), ('px', 2), ('py',3), ('pz',4), ('ppx',5), ('ppy',6), ('ppz',7), &
-                              ('vx',8), ('vy',9), ('vz',10), ('radius',11), ('rvel',12), &
-                              ('rnot',13), ('rmax',14), ('rmin',15), ('dphidt',16), &
-                              ('pressure',17), ('mv',18), ('mg',19), ('betaT',20), ('betaC',21)]
-                ${VAR}$(:) = MPI_IO_DATA_lg_bubbles(:, ${IDX}$) 
+                ('vx',8), ('vy',9), ('vz',10), ('radius',11), ('rvel',12), &
+                ('rnot',13), ('rmax',14), ('rmin',15), ('dphidt',16), &
+                ('pressure',17), ('mv',18), ('mg',19), ('betaT',20), ('betaC',21)]
+                ${VAR}$ (:) = MPI_IO_DATA_lg_bubbles(:, ${IDX}$)
             #:endfor
 
             ! Next, the root processor proceeds to record all of the spatial

src/simulation/m_body_forces.fpp

@@ -59,7 +59,7 @@ contains
 
         #:for DIR, XYZ in [(1, 'x'), (2, 'y'), (3, 'z')]
             if (bf_${XYZ}$) then
-                accel_bf(${DIR}$) = g_${XYZ}$ + k_${XYZ}$*sin(w_${XYZ}$*t - p_${XYZ}$)
+                accel_bf(${DIR}$) = g_${XYZ}$+k_${XYZ}$*sin(w_${XYZ}$*t - p_${XYZ}$)
             end if
         #:endfor
 

src/simulation/m_bubbles_EL.fpp

@@ -1402,7 +1402,7 @@ contains
 
     end subroutine s_gradient_dir
 
-     !> Subroutine that writes on each time step the changes of the lagrangian bubbles.
+    !> Subroutine that writes on each time step the changes of the lagrangian bubbles.
         !!  @param q_time Current time
     impure subroutine s_write_lag_particles(qtime)
 

src/simulation/m_data_output.fpp

@@ -36,7 +36,7 @@ module m_data_output
 
     implicit none
 
-    private;
+    private; 
     public :: s_initialize_data_output_module, &
               s_open_run_time_information_file, &
               s_open_com_files, &
@@ -161,11 +161,11 @@ contains
             trim('Time-step'), trim('dt'), trim('Time'), trim('ICFL Max')
 
         if (viscous) then
-            write(3, '(13X,A10,13X,A16)', advance="no") &
+            write (3, '(13X,A10,13X,A16)', advance="no") &
                 trim('VCFL Max'), trim('Rc Min')
         end if
 
-        write(3, *) ! new line
+        write (3, *) ! new line
 
     end subroutine s_open_run_time_information_file
 
@@ -359,7 +359,7 @@ contains
                     Rc_min_glb
             end if
 
-            write(3, *) ! new line
+            write (3, *) ! new line
 
             if (.not. f_approx_equal(icfl_max_glb, icfl_max_glb)) then
                 call s_mpi_abort('ICFL is NaN. Exiting.')