Gaelle : suppression des dernières modifs
authorGaelle Tanguy <gaelle.tanguy@meteo.fr>
Tue, 26 Apr 2016 12:57:16 +0000 (12:57 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/SURFEX/read_nam_prep_surfn.F90

index ae6c33f..2e10541 100644 (file)
@@ -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