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

Go to the documentation of this file.
00001 !     ######################################################################
00002       SUBROUTINE READ_COVER_GARDEN(HPROGRAM,OGARDEN)
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) :: OGARDEN   ! T: Definition of urban green areas
00018 !
00019 !
00020 !* local variables
00021 !  ---------------
00022 !
00023  CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
00024 INTEGER           :: IRESP      ! reading return code
00025 !
00026 INTEGER           :: IVERSION   ! surface version
00027 INTEGER           :: IBUGFIX    ! surface bugfix
00028 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00029 !
00030 !
00031 !------------------------------------------------------------------------------
00032 !
00033 IF (LHOOK) CALL DR_HOOK('READ_COVER_GARDEN',0,ZHOOK_HANDLE)
00034 YRECFM='VERSION'
00035  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
00036 !
00037 IF (IVERSION<=5) THEN
00038   OGARDEN = .FALSE.
00039 ELSE
00040   YRECFM='GARDEN'
00041   CALL READ_SURF(HPROGRAM,YRECFM,OGARDEN,IRESP)
00042 END IF
00043 IF (LHOOK) CALL DR_HOOK('READ_COVER_GARDEN',1,ZHOOK_HANDLE)
00044 !
00045 !------------------------------------------------------------------------------
00046 !
00047 END SUBROUTINE READ_COVER_GARDEN