From 09824df695150c8b26439df33395164275aadc7f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 16 Sep 2021 15:59:01 +0200
Subject: [PATCH] Philippe 16/09/2021: minor: typo correction
---
src/MNH/mode_mnh_zwork.f90 | 28 ++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/src/MNH/mode_mnh_zwork.f90 b/src/MNH/mode_mnh_zwork.f90
index 7e2e6bdcc..d1a0d0570 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-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
--
GitLab