Skip to content
Snippets Groups Projects
Commit dba01aeb authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 06/03/2023: skip empty lines in CSV files (stations/profilers)

parent 78e20d9b
No related branches found
No related tags found
No related merge requests found
!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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -81,6 +81,9 @@ DO ...@@ -81,6 +81,9 @@ DO
! Read station/profiler coordinates ! Read station/profiler coordinates
READ( ILU, END = 101, FMT = '(A)' ) YSTRING READ( ILU, END = 101, FMT = '(A)' ) YSTRING
! Skip empty lines
IF ( LEN_TRIM( YSTRING ) == 0 ) CYCLE
! Check if record is written in French convention ! Check if record is written in French convention
CALL FRENCH_TO_ENGLISH( YSTRING ) CALL FRENCH_TO_ENGLISH( YSTRING )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment