From d240394486efaae4e1c34644e6d22e07de8f4fbc Mon Sep 17 00:00:00 2001
From: Gaelle DELAUTIER <gaelle.delautier@meteo.fr>
Date: Fri, 27 Jan 2017 15:52:37 +0100
Subject: [PATCH] Gaelle 27/01/2017 : bug with AROME surface files
---
src/SURFEX/mode_read_extern.F90 | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/src/SURFEX/mode_read_extern.F90 b/src/SURFEX/mode_read_extern.F90
index 9b81e89f5..223a60cb2 100644
--- a/src/SURFEX/mode_read_extern.F90
+++ b/src/SURFEX/mode_read_extern.F90
@@ -294,6 +294,14 @@ IF (HNAT=='NAT' .AND. (IVERSION>=7 .OR. .NOT.GECOCLIMAP)) THEN
YCOMMENT=YRECFM2
CALL READ_SURF(&
HPROGRAM,YRECFM2,GDATA_GROUND_DEPTH,IRESP,HCOMMENT=YCOMMENT)
+ IF (IRESP/=0 .AND. YRECFM2=='L_GROUND_DEPTH' ) THEN
+ WRITE (KLUOUT,*) ' | ERROR Reading L_GROUND_DEPTH try with L_GROUND_DPT'
+
+ YRECFM2='L_GROUND_DPT'
+ YCOMMENT=YRECFM2
+ CALL READ_SURF(&
+ HPROGRAM,YRECFM2,GDATA_GROUND_DEPTH,IRESP,HCOMMENT=YCOMMENT)
+ ENDIF
!
IF (GDATA_GROUND_DEPTH) THEN
!
--
GitLab