diff --git a/src/MNH/mode_mnh_zwork.f90 b/src/MNH/mode_mnh_zwork.f90
index 73fb5b2f0b54d8f0acbde36d9b155878822c0eb8..1dd3eae2fe268b099eb6e7299870f74c2ea6fcc0 100644
--- a/src/MNH/mode_mnh_zwork.f90
+++ b/src/MNH/mode_mnh_zwork.f90
@@ -1,5 +1,5 @@
 #ifdef MNH_OPENACC
-!MNH_LIC Copyright 2013-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-2023 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -200,7 +200,7 @@ MODULE MODE_MNH_ZWORK
 
 CONTAINS
 
-  SUBROUTINE MNH_ALLOC_ZWORK(IMODEL)
+  SUBROUTINE MNH_ALLOC_ZWORK(KMODEL)
 
     USE MODE_TOOLS_ll,   ONLY: GET_DIM_EXT_ll, GET_INDICE_ll, LWEST_ll, LEAST_ll, LSOUTH_ll, LNORTH_ll
 
@@ -209,7 +209,7 @@ CONTAINS
 
     IMPLICIT NONE
 
-    INTEGER :: IMODEL
+    INTEGER, INTENT(IN) :: KMODEL
 
     INTEGER :: JI