fix typos

MFlowCode · Jun 24, 2024 · 6434eac · 6434eac
1 parent 05bd88c
commit 6434eac
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/simulation/m_body_forces.fpp b/src/simulation/m_body_forces.fpp
@@ -104,8 +104,8 @@ contains
 
     !> This subroutine calculates the source term due to body forces
     !! so the system can be advanced in time
-    !! @param q_cons_vf Conservative varaibles
-    !! @param q_prim_vf Primitive varaibles
+    !! @param q_cons_vf Conservative variables
+    !! @param q_prim_vf Primitive variables
     subroutine s_compute_body_forces_rhs(q_cons_vf, q_prim_vf, rhs_vf)
 
         type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf

diff --git a/src/simulation/m_ibm.fpp b/src/simulation/m_ibm.fpp
@@ -122,16 +122,16 @@ contains
 
     !>  Subroutine that updates the conservative variables at the ghost points
         !!  @param q_cons_vf Conservative variables
-        !!  @param q_prim_vf Primitive varaibles
+        !!  @param q_prim_vf Primitive variables
     subroutine s_ibm_correct_state(q_cons_vf, q_prim_vf, pb, mv)
 
         type(scalar_field), &
             dimension(sys_size), &
-            intent(INOUT) :: q_cons_vf !< Conservative Variables
+            intent(inout) :: q_cons_vf !< Conservative Variables
 
         type(scalar_field), &
             dimension(sys_size), &
-            intent(INOUT) :: q_prim_vf !< Primitive Variables
+            intent(inout) :: q_prim_vf !< Primitive Variables
 
         real(kind(0d0)), dimension(startx:, starty:, startz:, 1:, 1:), optional, intent(inout) :: pb, mv