Juan 8/12/2016: add management of LEN_HREC in MNH & SURFEX
[MNH-git_open_source-lfs.git] / src / SURFEX / read_cover_garden.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       SUBROUTINE READ_COVER_GARDEN(HPROGRAM,OGARDEN)
7 !     ######################################################################
8 !
9 USE MODI_READ_SURF
10 !
11 !
12 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
13 USE PARKIND1  ,ONLY : JPRB
14 !
15 IMPLICIT NONE
16 !
17 !* dummy arguments
18 !  ---------------
19 !
20  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
21 LOGICAL,           INTENT(OUT) :: OGARDEN   ! T: Definition of urban green areas
22 !
23 !
24 !* local variables
25 !  ---------------
26 !
27  CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
28 INTEGER           :: IRESP      ! reading return code
29 !
30 INTEGER           :: IVERSION   ! surface version
31 INTEGER           :: IBUGFIX    ! surface bugfix
32 REAL(KIND=JPRB) :: ZHOOK_HANDLE
33 !
34 !
35 !------------------------------------------------------------------------------
36 !
37 IF (LHOOK) CALL DR_HOOK('READ_COVER_GARDEN',0,ZHOOK_HANDLE)
38 YRECFM='VERSION'
39  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
40 !
41 IF (IVERSION<=5) THEN
42   OGARDEN = .FALSE.
43 ELSE
44   YRECFM='GARDEN'
45   CALL READ_SURF(HPROGRAM,YRECFM,OGARDEN,IRESP)
46 END IF
47 IF (LHOOK) CALL DR_HOOK('READ_COVER_GARDEN',1,ZHOOK_HANDLE)
48 !
49 !------------------------------------------------------------------------------
50 !
51 END SUBROUTINE READ_COVER_GARDEN