Juan 28/03/2017:mode_read_extern.F90 , from Gaelle 27/01/2017 : bug with AROME surfac...
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Tue, 28 Mar 2017 15:39:15 +0000 (15:39 +0000)
committerJuan Escobar <juan.escobar@aero.obs-mip.fr>
Tue, 28 Mar 2017 15:39:15 +0000 (15:39 +0000)
src/SURFEX/mode_read_extern.F90

index 1a01fcb..d4a7867 100644 (file)
@@ -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
       !