Gaelle : suppression des dernières modifs
[MNH-git_open_source-lfs.git] / src / SURFEX / read_nam_prep_surfn.F90
1 !SURFEX_LIC Copyright 1994-2014 Meteo-France 
2 !SURFEX_LIC This is part of the SURFEX software governed by the CeCILL-C  licence
3 !SURFEX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SURFEX_LIC for details. version 1.
5 !!    -------------
6 !!    MODIFICATIONS
7 !!    -------------
8 !     #########
9 SUBROUTINE READ_NAM_PREP_SURF_n(HPROGRAM)
10 !     #######################################################
11 !
12 !---------------------------------------
13 !
14 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
15 USE MODN_PREP_SURF_ATM
16 !
17 USE MODI_TEST_NAM_VAR_SURF
18 USE MODI_GET_LUOUT
19 USE MODI_OPEN_NAMELIST
20 USE MODI_CLOSE_NAMELIST
21 USE MODE_POS_SURF
22 !
23 !
24 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
25 USE PARKIND1  ,ONLY : JPRB
26 !
27 IMPLICIT NONE
28 !
29  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
30 !
31 INTEGER :: ILUNAM         ! logical unit of namelist file
32 INTEGER :: ILUOUT
33 LOGICAL :: GFOUND         ! Return code when searching namelist
34 REAL(KIND=JPRB) :: ZHOOK_HANDLE
35 !
36 !---------------------------------------
37 !
38 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_SURF_N',0,ZHOOK_HANDLE)
39 NYEAR=NUNDEF
40 NMONTH=NUNDEF
41 NDAY=NUNDEF
42 XTIME=XUNDEF
43 CFILE     = '                         '
44 CFILETYPE = '      '
45 CFILEPGD     = '                         '
46 CFILEPGDTYPE = '      '
47 !
48  CALL GET_LUOUT(HPROGRAM,ILUOUT)
49 !
50 !
51  CALL OPEN_NAMELIST(HPROGRAM,ILUNAM)
52  CALL POSNAM(ILUNAM,'NAM_PREP_SURF_ATM',GFOUND,ILUOUT)
53 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_PREP_SURF_ATM)
54  CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM)
55 !
56  CALL TEST_NAM_VAR_SURF(ILUOUT,'CFILETYPE',   CFILETYPE,   '      ','GRIB  ','MESONH','ASCII ','LFI   ')
57  CALL TEST_NAM_VAR_SURF(ILUOUT,'CFILEPGDTYPE',   CFILEPGDTYPE,   '      ','GRIB  ','MESONH','ASCII ','LFI   ')
58 IF (LHOOK) CALL DR_HOOK('READ_NAM_PREP_SURF_N',1,ZHOOK_HANDLE)
59 !
60 END SUBROUTINE READ_NAM_PREP_SURF_n