diff --git a/.typos.toml b/.typos.toml
index 1fb0c90272..a595990e72 100644
--- a/.typos.toml
+++ b/.typos.toml
@@ -20,6 +20,7 @@ Strang = "Strang"
 TKE = "TKE"
 HSA = "HSA"
 infp = "infp"
+Sur = "Sur"
 
 [files]
 extend-exclude = ["docs/documentation/references*", "tests/", "toolchain/cce_simulation_workgroup_256.sh"]
diff --git a/src/pre_process/m_boundary_conditions.fpp b/src/pre_process/m_boundary_conditions.fpp
index 6ce2c07c24..08b7b3e656 100644
--- a/src/pre_process/m_boundary_conditions.fpp
+++ b/src/pre_process/m_boundary_conditions.fpp
@@ -230,8 +230,8 @@ contains
 
     impure subroutine s_apply_boundary_patches(q_prim_vf, bc_type)
 
-        type(scalar_field), dimension(sys_size) :: q_prim_vf
-        type(integer_field), dimension(1:num_dims, -1:1) :: bc_type
+        type(scalar_field), dimension(sys_size), intent(inout) :: q_prim_vf
+        type(integer_field), dimension(1:num_dims, -1:1), intent(inout) :: bc_type
         integer :: i
 
         !< Apply 2D patches to 3D domain