From 942c695fdfbf9b0dcf8208c18fff61caac3ea2b1 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 10 Jan 2024 15:03:42 +0100
Subject: [PATCH] Philippe 10/01/2024: check that CSEG and CEXP do not contain
. or space characters (replace them by _)
---
src/MNH/read_exsegn.f90 | 27 ++++++++++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
diff --git a/src/MNH/read_exsegn.f90 b/src/MNH/read_exsegn.f90
index b2f87f427..9d3ee4b52 100644
--- a/src/MNH/read_exsegn.f90
+++ b/src/MNH/read_exsegn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1994-2023 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2024 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.
@@ -998,6 +998,31 @@ IF (.NOT. LHARAT .AND. LSTATNW) THEN
CALL PRINT_MSG(NVERB_FATAL, 'GEN', 'READ_EXSEGN', &
&'LSTATNW only tested in combination with HARATU and EDMFm!')
ENDIF
+
+! Check that CSEG and CEXP does not contain unauthorized characters ('.' and ' ')
+IF ( KMI == 1 ) THEN
+ DO JI = 1, LEN_TRIM(CSEG)
+ IF ( CSEG(JI:JI) == '.' ) THEN
+ CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'READ_EXSEGN', 'CSEG may not contain . character (replaced by _)' )
+ CSEG(JI:JI) = '_'
+ END IF
+ IF ( CSEG(JI:JI) == ' ' ) THEN
+ CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'READ_EXSEGN', 'CSEG may not contain space character (replaced by _)' )
+ CSEG(JI:JI) = '_'
+ END IF
+ END DO
+
+ DO JI = 1, LEN_TRIM(CEXP)
+ IF ( CEXP(JI:JI) == '.' ) THEN
+ CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'READ_EXSEGN', 'CEXP may not contain . character (replaced by _)' )
+ CEXP(JI:JI) = '_'
+ END IF
+ IF ( CEXP(JI:JI) == ' ' ) THEN
+ CALL PRINT_MSG( NVERB_WARNING, 'GEN', 'READ_EXSEGN', 'CEXP may not contain space character (replaced by _)' )
+ CEXP(JI:JI) = '_'
+ END IF
+ END DO
+END IF
!
!-------------------------------------------------------------------------------!
!* 2. FIRST INITIALIZATIONS
--
GitLab