Juan 8/12/2016: add management of LEN_HREC in MNH & SURFEX
[MNH-git_open_source-lfs.git] / src / SURFEX / read_lclim_lai.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_LCLIM_LAI(HPROGRAM,OCLIM_LAI)
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)   :: OCLIM_LAI ! flag for use of climatologic LAI
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_LCLIM_LAI',0,ZHOOK_HANDLE)
38 YRECFM='VERSION'
39  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
40 YRECFM='BUG'
41  CALL READ_SURF(HPROGRAM,YRECFM,IBUGFIX,IRESP)
42 !
43 IF (IVERSION<4 .OR. IVERSION==4 .AND. IBUGFIX==2) THEN
44   OCLIM_LAI = .FALSE.
45 ELSE
46   YRECFM='LCLIM_LAI'
47   CALL READ_SURF(HPROGRAM,YRECFM,OCLIM_LAI,IRESP)
48 END IF
49 IF (LHOOK) CALL DR_HOOK('READ_LCLIM_LAI',1,ZHOOK_HANDLE)
50 !
51 !------------------------------------------------------------------------------
52 !
53 END SUBROUTINE READ_LCLIM_LAI