Beginning of open source history
[MNH-git_open_source-lfs.git] / src / SURFEX / read_arrange_cover.F90
1 !     ######################################################################
2       SUBROUTINE READ_ARRANGE_COVER(HPROGRAM,OWATER_TO_NATURE,OTOWN_TO_ROCK)
3 !     ######################################################################
4 !
5 USE MODI_READ_SURF
6 !
7 !
8 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
9 USE PARKIND1  ,ONLY : JPRB
10 !
11 IMPLICIT NONE
12 !
13 !* dummy arguments
14 !  ---------------
15 !
16  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
17 LOGICAL,           INTENT(OUT) :: OWATER_TO_NATURE ! T: Change Wetland treated as inland water into nature
18 LOGICAL,           INTENT(OUT) :: OTOWN_TO_ROCK    ! T: Change Town into Rock 
19 !
20 !
21 !* local variables
22 !  ---------------
23 !
24  CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
25 INTEGER           :: IRESP      ! reading return code
26 !
27 INTEGER           :: IVERSION   ! surface version
28 INTEGER           :: IBUGFIX    ! surface bugfix
29 REAL(KIND=JPRB) :: ZHOOK_HANDLE
30 !
31 !
32 !------------------------------------------------------------------------------
33 !
34 IF (LHOOK) CALL DR_HOOK('READ_ARRANGE_COVER',0,ZHOOK_HANDLE)
35 YRECFM='VERSION'
36  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
37 !
38 IF (IVERSION<5) THEN
39   OWATER_TO_NATURE = .FALSE.
40   OTOWN_TO_ROCK    = .FALSE.
41 ELSE
42   YRECFM='WATER_TO_NAT'
43   CALL READ_SURF(HPROGRAM,YRECFM,OWATER_TO_NATURE,IRESP)
44   YRECFM='TOWN_TO_ROCK'
45   CALL READ_SURF(HPROGRAM,YRECFM,OTOWN_TO_ROCK,IRESP)
46 END IF
47 IF (LHOOK) CALL DR_HOOK('READ_ARRANGE_COVER',1,ZHOOK_HANDLE)
48 !
49 !------------------------------------------------------------------------------
50 !
51 END SUBROUTINE READ_ARRANGE_COVER