From efd7b8a6c43854add6c5e7382fff040fb43b1501 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 7 Mar 2019 16:36:04 +0100
Subject: [PATCH] Philippe 07/03/2019: minor: non-conforming Fortran write
correction
---
src/MNH/read_all_data_grib_case.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/read_all_data_grib_case.f90 b/src/MNH/read_all_data_grib_case.f90
index ade924ead..e8dcc36b6 100644
--- a/src/MNH/read_all_data_grib_case.f90
+++ b/src/MNH/read_all_data_grib_case.f90
@@ -583,8 +583,8 @@ SELECT CASE (IMODEL)
CALL SEARCH_FIELD(IGRIB,INUM,KPARAM=229)
!
IF(INUM < 0) THEN
- WRITE (ILUOUT0,'(A)')' | !!! WARNING !!! Sea wave height is missing in &
- the GRIB file - the default value of 2 meters is used'
+ WRITE (ILUOUT0,'(A)')' | !!! WARNING !!! Sea wave height is missing in '// &
+ 'the GRIB file - the default value of 2 meters is used'
XZWS = 2.0
ELSE
GFIND=.TRUE.
--
GitLab