SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/read_arrange

Go to the documentation of this file.
00001 !     ######################################################################
00002       SUBROUTINE READ_ARRANGE_COVER(HPROGRAM,OWATER_TO_NATURE,OTOWN_TO_ROCK)
00003 !     ######################################################################
00004 !
00005 USE MODI_READ_SURF
00006 !
00007 !
00008 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00009 USE PARKIND1  ,ONLY : JPRB
00010 !
00011 IMPLICIT NONE
00012 !
00013 !* dummy arguments
00014 !  ---------------
00015 !
00016  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00017 LOGICAL,           INTENT(OUT) :: OWATER_TO_NATURE ! T: Change Wetland treated as inland water into nature
00018 LOGICAL,           INTENT(OUT) :: OTOWN_TO_ROCK    ! T: Change Town into Rock 
00019 !
00020 !
00021 !* local variables
00022 !  ---------------
00023 !
00024  CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
00025 INTEGER           :: IRESP      ! reading return code
00026 !
00027 INTEGER           :: IVERSION   ! surface version
00028 INTEGER           :: IBUGFIX    ! surface bugfix
00029 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00030 !
00031 !
00032 !------------------------------------------------------------------------------
00033 !
00034 IF (LHOOK) CALL DR_HOOK('READ_ARRANGE_COVER',0,ZHOOK_HANDLE)
00035 YRECFM='VERSION'
00036  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
00037 !
00038 IF (IVERSION<5) THEN
00039   OWATER_TO_NATURE = .FALSE.
00040   OTOWN_TO_ROCK    = .FALSE.
00041 ELSE
00042   YRECFM='WATER_TO_NAT'
00043   CALL READ_SURF(HPROGRAM,YRECFM,OWATER_TO_NATURE,IRESP)
00044   YRECFM='TOWN_TO_ROCK'
00045   CALL READ_SURF(HPROGRAM,YRECFM,OTOWN_TO_ROCK,IRESP)
00046 END IF
00047 IF (LHOOK) CALL DR_HOOK('READ_ARRANGE_COVER',1,ZHOOK_HANDLE)
00048 !
00049 !------------------------------------------------------------------------------
00050 !
00051 END SUBROUTINE READ_ARRANGE_COVER