Formatting

Author: DimAdam-01

src/common/m_chemistry.fpp

@@ -30,6 +30,7 @@ contains
         integer :: x, y, z, eqn
         real(wp) :: energy, mean_molecular_weight
         real(wp), dimension(num_species) :: Ys
+
         do z = bounds(3)%beg, bounds(3)%end
             do y = bounds(2)%beg, bounds(2)%end
                 do x = bounds(1)%beg, bounds(1)%end
@@ -52,7 +53,6 @@ contains
 
                     call get_temperature(energy, dflt_T_guess, Ys, .true., q_T_sf%sf(x, y, z))
                 end do
-
             end do
         end do
 

src/pre_process/include/3dHardcodedIC.fpp

@@ -171,8 +171,9 @@
             q_prim_vf(f + jump)%sf(i, j, k) = stored_values(data_i, data_j, f)
         end do
         ! Set z velocity to zero
-        q_prim_vf(4)%sf(i, j, k) = 0.0_wp        ! Put your variable assignments here
+        q_prim_vf(4)%sf(i, j, k) = 0.0_wp
 
+        ! Put your variable assignments here
     case default
         call s_int_to_str(patch_id, iStr)
         call s_mpi_abort("Invalid hcid specified for patch "//trim(iStr))