format

wilfonba · Feb 5, 2024 · ecfbd26 · ecfbd26
1 parent f908e12
commit ecfbd26
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 16 deletions.
diff --git a/src/simulation/m_rhs.fpp b/src/simulation/m_rhs.fpp
@@ -1029,10 +1029,10 @@ contains
             ! RHS addition for advection source
             call nvtxStartRange("RHS_advection_source")
             call s_compute_advection_source_term(id, &
-                                                    rhs_vf, &
-                                                    q_cons_qp%vf, &
-                                                    q_prim_qp%vf, &
-                                                    flux_src_n(id)%vf)
+                                                 rhs_vf, &
+                                                 q_cons_qp%vf, &
+                                                 q_prim_qp%vf, &
+                                                 flux_src_n(id)%vf)
             call nvtxEndRange()
 
             ! RHS additions for hypoelasticity
@@ -1045,13 +1045,13 @@ contains
             ! RHS additions for viscosity
             call nvtxStartRange("RHS_viscous")
             if (any(Re_size > 0d0)) call s_compute_viscous_rhs(id, &
-                                                                q_prim_qp%vf, &
-                                                                rhs_vf, &
-                                                                flux_src_n(id)%vf, &
-                                                                dq_prim_dx_qp%vf, &
-                                                                dq_prim_dy_qp%vf, &
-                                                                dq_prim_dz_qp%vf, &
-                                                                ixt, iyt, izt)
+                                                               q_prim_qp%vf, &
+                                                               rhs_vf, &
+                                                               flux_src_n(id)%vf, &
+                                                               dq_prim_dx_qp%vf, &
+                                                               dq_prim_dy_qp%vf, &
+                                                               dq_prim_dz_qp%vf, &
+                                                               ixt, iyt, izt)
             call nvtxEndRange
 
             ! RHS additions for sub-grid bubbles

diff --git a/src/simulation/m_viscous.fpp b/src/simulation/m_viscous.fpp
@@ -990,13 +990,13 @@ contains
     end subroutine s_get_viscous
 
     subroutine s_compute_viscous_rhs(idir, q_prim_vf, rhs_vf, flux_src_n, &
-        dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf, ixt, iyt, izt)
+                                     dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf, ixt, iyt, izt)
 
         type(scalar_field), dimension(sys_size), intent(IN) :: q_prim_vf, &
-                                                                flux_src_n, &
-                                                                dq_prim_dx_vf, &
-                                                                dq_prim_dy_vf, &
-                                                                dq_prim_dz_vf
+                                                               flux_src_n, &
+                                                               dq_prim_dx_vf, &
+                                                               dq_prim_dy_vf, &
+                                                               dq_prim_dz_vf
         type(scalar_field), dimension(sys_size), intent(INOUT) :: rhs_vf
         type(int_bounds_info) :: ixt, iyt, izt
         integer, intent(IN) :: idir