From 231ae8c71c52cccac1b91b0d21c2644242610def Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 28 May 2021 11:11:24 +0200
Subject: [PATCH] Philippe 28/05/2021: budgets: IO_Mnhname_clean: modify
messages
---
src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 | 13 ++++---------
1 file changed, 4 insertions(+), 9 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90
index d0d2568f3..9804348f8 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_tools_nc4.f90
@@ -869,20 +869,15 @@ subroutine IO_Mnhname_clean( hinname, houtname )
yresult = Str_replace( yresult, '*', 'star' )
yresult = Str_replace( Trim( yresult ), ' ', '_' ) !Trim to prevent problem with spaces at the end of the string
- cmnhmsg(1) = 'name (' // Trim( hinname) // ') contains characters not allowed in CF convention'
- cmnhmsg(2) = 'Allowed: alphanumeric + underscore'
-
!Chek corrected name
ipos = Verify( Trim( yresult ), 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_' )
if ( ipos == 0 ) then
- cmnhmsg(3) = 'Trying to correct => successful'
- cmnhmsg(4) = Trim( hinname ) // '->' // Trim( yresult )
- call Print_msg( NVERB_DEBUG, 'IO', 'IO_Mnhname_clean' )
+ call Print_msg( NVERB_INFO, 'IO', 'IO_Mnhname_clean', "Renaming to comply with CF convention: '" &
+ // Trim( hinname ) // "' -> '" // Trim( yresult ) // "'" )
else
- cmnhmsg(3) = 'Trying to correct => FAILED'
- cmnhmsg(4) = Trim( hinname ) // '->' // Trim( yresult )
- call Print_msg( NVERB_WARNING, 'IO', 'IO_Mnhname_clean' )
+ call Print_msg( NVERB_WARNING, 'IO', 'IO_Mnhname_clean', "Renaming to comply with CF convention FAILED: '" &
+ // Trim( hinname ) // "' -> '" // Trim( yresult ) // "'" )
end if
else
yresult = Trim( hinname )
--
GitLab