From dba01aeb16234046017c068ac543726f145d35bc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 6 Mar 2023 10:56:32 +0100
Subject: [PATCH] Philippe 06/03/2023: skip empty lines in CSV files
 (stations/profilers)

---
 src/MNH/statprof_reader.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/MNH/statprof_reader.f90 b/src/MNH/statprof_reader.f90
index be9c3d2e2..43a7168d2 100644
--- a/src/MNH/statprof_reader.f90
+++ b/src/MNH/statprof_reader.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2020-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2020-2023 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.
@@ -81,6 +81,9 @@ DO
   ! Read station/profiler coordinates
   READ( ILU, END = 101, FMT = '(A)' ) YSTRING
 
+  ! Skip empty lines
+  IF ( LEN_TRIM( YSTRING ) == 0 ) CYCLE
+
   ! Check if record is written in French convention
   CALL FRENCH_TO_ENGLISH( YSTRING )
 
-- 
GitLab