Philippe 07/03/2019: IO bugfix: io_set_mnhversion must be called by all the processes
[MNH-git_open_source-lfs.git] / src / SURFEX / read_lclim_lai.F90
1 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
4 !SFX_LIC for details. version 1.
5 !     #######################
6       SUBROUTINE READ_LCLIM_LAI (&
7                                  HPROGRAM,OCLIM_LAI)
8 !     #######################
9 !
10 !
11 !
12 !
13 USE MODI_READ_SURF
14 !
15 !
16 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
17 USE PARKIND1  ,ONLY : JPRB
18 !
19 IMPLICIT NONE
20 !
21 !* dummy arguments
22 !  ---------------
23 !
24 !
25 !
26  CHARACTER(LEN=6),     INTENT(IN)    :: HPROGRAM  ! program calling surf. schemes
27 LOGICAL,              INTENT(OUT)   :: OCLIM_LAI ! flag for use of climatologic LAI
28 !
29 !
30 !* local variables
31 !  ---------------
32 !
33  CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
34 INTEGER           :: IRESP      ! reading return code
35 !
36 INTEGER           :: IVERSION   ! surface version
37 INTEGER           :: IBUGFIX    ! surface bugfix
38 REAL(KIND=JPRB) :: ZHOOK_HANDLE
39 !
40 !
41 !------------------------------------------------------------------------------
42 !
43 IF (LHOOK) CALL DR_HOOK('READ_LCLIM_LAI',0,ZHOOK_HANDLE)
44 YRECFM='VERSION'
45  CALL READ_SURF(&
46                 HPROGRAM,YRECFM,IVERSION,IRESP)
47 YRECFM='BUG'
48  CALL READ_SURF(&
49                 HPROGRAM,YRECFM,IBUGFIX,IRESP)
50 !
51 IF (IVERSION<4 .OR. IVERSION==4 .AND. IBUGFIX==2) THEN
52   OCLIM_LAI = .FALSE.
53 ELSE
54   YRECFM='LCLIM_LAI'
55   CALL READ_SURF(&
56                 HPROGRAM,YRECFM,OCLIM_LAI,IRESP)
57 END IF
58 IF (LHOOK) CALL DR_HOOK('READ_LCLIM_LAI',1,ZHOOK_HANDLE)
59 !
60 !------------------------------------------------------------------------------
61 !
62 END SUBROUTINE READ_LCLIM_LAI