Juan 8/12/2016: add management of LEN_HREC in MNH & SURFEX
[MNH-git_open_source-lfs.git] / src / SURFEX / read_arrange_cover.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_ARRANGE_COVER(HPROGRAM,OWATER_TO_NATURE,OTOWN_TO_ROCK)
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) :: OWATER_TO_NATURE ! T: Change Wetland treated as inland water into nature
22 LOGICAL,           INTENT(OUT) :: OTOWN_TO_ROCK    ! T: Change Town into Rock 
23 !
24 !
25 !* local variables
26 !  ---------------
27 !
28  CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
29 INTEGER           :: IRESP      ! reading return code
30 !
31 INTEGER           :: IVERSION   ! surface version
32 INTEGER           :: IBUGFIX    ! surface bugfix
33 REAL(KIND=JPRB) :: ZHOOK_HANDLE
34 !
35 !
36 !------------------------------------------------------------------------------
37 !
38 IF (LHOOK) CALL DR_HOOK('READ_ARRANGE_COVER',0,ZHOOK_HANDLE)
39 YRECFM='VERSION'
40  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
41 !
42 IF (IVERSION<5) THEN
43   OWATER_TO_NATURE = .FALSE.
44   OTOWN_TO_ROCK    = .FALSE.
45 ELSE
46   YRECFM='WATER_TO_NAT'
47   CALL READ_SURF(HPROGRAM,YRECFM,OWATER_TO_NATURE,IRESP)
48   YRECFM='TOWN_TO_ROCK'
49   CALL READ_SURF(HPROGRAM,YRECFM,OTOWN_TO_ROCK,IRESP)
50 END IF
51 IF (LHOOK) CALL DR_HOOK('READ_ARRANGE_COVER',1,ZHOOK_HANDLE)
52 !
53 !------------------------------------------------------------------------------
54 !
55 END SUBROUTINE READ_ARRANGE_COVER