Philippe 16/09/2021: minor: typo correction

src/MNH/mode_mnh_zwork.f90

 #ifdef MNH_OPENACC
-!MNH_LIC Copyright 2013-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2013-2021 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.
@@ -416,10 +416,10 @@ CONTAINS
        ELSE IF (KK .EQ.0 )  THEN
           PTAB => ZT3D_OSIZE
        ELSE
-          call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT3D', ' Size mismatsh ' )
+          call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT3D', ' Size mismatch ' )
        END IF
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT3D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT3D', ' Size mismatch ' )
     END IF
        
   END FUNCTION MNH_ALLOCATE_ZT3D
@@ -446,7 +446,7 @@ CONTAINS
           KINDEX_BEG = 0
        END IF
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT4D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT4D', ' Size mismatch ' )
     END IF
        
   END FUNCTION MNH_ALLOCATE_ZT4D
@@ -466,10 +466,10 @@ CONTAINS
        ELSE IF (KJ .EQ. 0)  THEN
           PTAB => ZT2D_OSIZE
        ELSE
-          call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT2D', ' Size mismatsh ' )
+          call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT2D', ' Size mismatch ' )
        END IF
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT2D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT2D', ' Size mismatch ' )
     END IF
        
   END FUNCTION MNH_ALLOCATE_ZT2D
@@ -486,7 +486,7 @@ CONTAINS
        CALL MNH_GET_ZT3D_N0(KINDEX)
        PTAB(1:,1:,KKB:) => ZT3D(:,:,KKB:KKE,KINDEX)
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT3DP', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT3DP', ' Size mismatch ' )
     END IF
        
   END FUNCTION MNH_ALLOCATE_ZT3DP
@@ -612,7 +612,7 @@ CONTAINS
        CALL MNH_GET_GT3D_N0(KINDEX)
        PTAB => GT3D(:,:,:,KINDEX)
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_GT3D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_GT3D', ' Size mismatch ' )
     END IF
        
   END FUNCTION MNH_ALLOCATE_GT3D
@@ -632,10 +632,10 @@ CONTAINS
        ELSE IF (KJ .EQ. 0)  THEN
           PTAB => GT2D_OSIZE
        ELSE
-          call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_GT2D', ' Size mismatsh ' )
+          call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_GT2D', ' Size mismatch ' )
        END IF
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_GT2D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_GT2D', ' Size mismatch ' )
     END IF
        
   END FUNCTION MNH_ALLOCATE_GT2D
@@ -764,7 +764,7 @@ CONTAINS
        CALL MNH_GET_ZT1D_N0(KINDEX)
        PTAB => ZT1D(:,KINDEX)
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT1D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT1D', ' Size mismatch ' )
     END IF
     !WRITE( *, '( "MNH_ALLOCATE_ZT1D: KI=(",I4,") , KINDEX=(",I4,")" )' ) KI,KINDEX
     !FLUSH(6) 
@@ -787,7 +787,7 @@ CONTAINS
           PTAB => ZT1D_OSIZE
        END IF
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT1DP', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_ZT1DP', ' Size mismatch ' )
     END IF
     !WRITE( *, '( "MNH_ALLOCATE_ZT1DP: KI=(",I9,") , KINDEX=(",I4,")" )' ) KI,KINDEX
     
@@ -917,7 +917,7 @@ CONTAINS
        CALL MNH_GET_IT1D_N0(KINDEX)
        PTAB => IT1D(:,KINDEX)
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_IT1D', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_IT1D', ' Size mismatch ' )
     END IF
     !WRITE( *, '( "MNH_ALLOCATE_IT1D: KI=(",I4,") , KINDEX=(",I4,")" )' ) KI,KINDEX
     !FLUSH(6) 
@@ -940,7 +940,7 @@ CONTAINS
           PTAB => IT1D_OSIZE
        END IF
     ELSE
-       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_IT1DP', ' Size mismatsh ' )
+       call Print_msg( NVERB_ERROR, 'GEN', 'MNH_ALLOCATE_IT1DP', ' Size mismatch ' )
     END IF
     !WRITE( *, '( "MNH_ALLOCATE_IT1DP: KI=(",I9,") , KINDEX=(",I4,")" )' ) KI,KINDEX