diff --git a/src/simulation/m_global_parameters.fpp b/src/simulation/m_global_parameters.fpp
index 7108ad17dc..b88c6205f4 100644
--- a/src/simulation/m_global_parameters.fpp
+++ b/src/simulation/m_global_parameters.fpp
@@ -681,7 +681,8 @@ contains
     !> Initialize the global parameters module
     impure subroutine s_initialize_global_parameters_module
 
-        integer :: i, j, k
+        integer :: i, j
+        integer :: k
         integer :: fac
 
         #:if not MFC_CASE_OPTIMIZATION