Formatting

Author: Cowsreal

src/post_process/m_derived_variables.fpp

@@ -503,15 +503,15 @@ contains
                             ! Schlieren field is dropped, leaving exp(0) = 1 everywhere. Compute that term below.
                             alpha_last = 1._wp
                             do i = 1, eqn_idx%adv%end - eqn_idx%E
-                                q_sf(j, k, l) = q_sf(j, k, l) - schlieren_alpha(i)*q_cons_vf(i + eqn_idx%E)%sf(j, k, l)*gm_rho_sf(j, &
-                                    & k, l)/gm_rho_max(1)
+                                q_sf(j, k, l) = q_sf(j, k, l) - schlieren_alpha(i)*q_cons_vf(i + eqn_idx%E)%sf(j, k, &
+                                     & l)*gm_rho_sf(j, k, l)/gm_rho_max(1)
                                 alpha_last = alpha_last - q_cons_vf(i + eqn_idx%E)%sf(j, k, l)
                             end do
                             q_sf(j, k, l) = q_sf(j, k, l) - schlieren_alpha(num_fluids)*alpha_last*gm_rho_sf(j, k, l)/gm_rho_max(1)
-                        else 
+                        else
                             do i = 1, eqn_idx%adv%end - eqn_idx%E
-                                q_sf(j, k, l) = q_sf(j, k, l) - schlieren_alpha(i)*q_cons_vf(i + eqn_idx%E)%sf(j, k, l)*gm_rho_sf(j, &
-                                    & k, l)/gm_rho_max(1)
+                                q_sf(j, k, l) = q_sf(j, k, l) - schlieren_alpha(i)*q_cons_vf(i + eqn_idx%E)%sf(j, k, &
+                                     & l)*gm_rho_sf(j, k, l)/gm_rho_max(1)
                             end do
                         end if
                     end do