From 066d12047e34cf3672a6c410461fef2aced719e8 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 28 Mar 2017 15:39:15 +0000
Subject: [PATCH] Juan 28/03/2017:mode_read_extern.F90 , from Gaelle 27/01/2017
: bug with AROME surface files => if PB reading L_GROUND_DEPTH try
L_GROUND_DPT
---
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 1a01fcb25..d4a7867ee 100644
--- a/src/SURFEX/mode_read_extern.F90
+++ b/src/SURFEX/mode_read_extern.F90
@@ -200,6 +200,14 @@ IF (HNAT=='NAT' .AND. (IVERSION>=7 .OR. .NOT.GECOCLIMAP)) THEN
IF (IVERSION>7 .OR. IVERSION==7 .AND. IBUGFIX>=3) YRECFM2='L_GROUND_DPT'
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