Skip to content
Snippets Groups Projects
Commit d2403944 authored by Gaelle DELAUTIER's avatar Gaelle DELAUTIER
Browse files

Gaelle 27/01/2017 : bug with AROME surface files

parent e8d7cb53
No related branches found
No related tags found
No related merge requests found
......@@ -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
!
......
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