Philippe 16/05/2023: MNH_ALLOC_ZWORK: set intent(in) for KMODEL

src/MNH/mode_mnh_zwork.f90

 #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