From 575f258efcfc653e72c1adbea1c1387923ccbb17 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Tue, 26 Apr 2016 12:57:16 +0000
Subject: [PATCH] =?UTF-8?q?Gaelle=20:=20suppression=20des=20derni=C3=83?=
=?UTF-8?q?=C2=A8res=20modifs?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
src/SURFEX/read_nam_prep_surfn.F90 | 5 -----
1 file changed, 5 deletions(-)
diff --git a/src/SURFEX/read_nam_prep_surfn.F90 b/src/SURFEX/read_nam_prep_surfn.F90
index ae6c33f03..2e10541bc 100644
--- a/src/SURFEX/read_nam_prep_surfn.F90
+++ b/src/SURFEX/read_nam_prep_surfn.F90
@@ -5,7 +5,6 @@
!! -------------
!! MODIFICATIONS
!! -------------
-!! 04/2016 add ABORT if CINIFILEPGD is not specified (G.Delautier)
! #########
SUBROUTINE READ_NAM_PREP_SURF_n(HPROGRAM)
! #######################################################
@@ -19,7 +18,6 @@ USE MODI_TEST_NAM_VAR_SURF
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
USE MODI_CLOSE_NAMELIST
-USE MODI_ABOR1_SFX
USE MODE_POS_SURF
!
!
@@ -57,9 +55,6 @@ IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PREP_SURF_ATM)
!
CALL TEST_NAM_VAR_SURF(ILUOUT,'CFILETYPE', CFILETYPE, ' ','GRIB ','MESONH','ASCII ','LFI ')
CALL TEST_NAM_VAR_SURF(ILUOUT,'CFILEPGDTYPE', CFILEPGDTYPE, ' ','GRIB ','MESONH','ASCII ','LFI ')
- IF (LEN_TRIM(CFILEPGD)==0) THEN
- CALL ABOR1_SFX('Namelist NAM_PREP_SURF_ATM : you need to specify CFILEPGD ')
- ENDIF
IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_SURF_N',1,ZHOOK_HANDLE)
!
END SUBROUTINE READ_NAM_PREP_SURF_n
--
GitLab