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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE TOWN_PRESENCE(HFILETYPE,OTEB)
00003 !     #################################################################################
00004 !
00005 USE MODI_READ_SURF
00006 !
00007 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00008 USE PARKIND1  ,ONLY : JPRB
00009 !
00010 IMPLICIT NONE
00011 !
00012 !*      0.1    declarations of arguments
00013 !
00014  CHARACTER(LEN=6),   INTENT(IN)  :: HFILETYPE ! type of input file
00015 LOGICAL,            INTENT(OUT) :: OTEB      ! TRUE if TEB data exist in the file
00016 !
00017 !*      0.2    declarations of local variables
00018 !
00019 INTEGER           :: IRESP     ! reading return code
00020  CHARACTER(LEN=6)  :: YTOWN     ! scheme for towns in input file
00021 INTEGER           :: IDIM_TOWN ! number of TEB points in input file
00022 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00023 !-------------------------------------------------------------------------------------
00024 !
00025 !*      1.     reads if TEB fields exist in the input file
00026 !              -------------------------------------------
00027 !
00028 IF (LHOOK) CALL DR_HOOK('TOWN_PRESENCE',0,ZHOOK_HANDLE)
00029 !
00030  CALL READ_SURF(HFILETYPE,'TOWN',YTOWN,IRESP)
00031  CALL READ_SURF(HFILETYPE,'DIM_TOWN',IDIM_TOWN,IRESP)
00032 !
00033 OTEB = (YTOWN=='TEB   ') .AND. (IDIM_TOWN > 0)
00034 IF (LHOOK) CALL DR_HOOK('TOWN_PRESENCE',1,ZHOOK_HANDLE)
00035 !
00036 !---------------------------------------------------------------------------------------
00037 !
00038 END SUBROUTINE TOWN_PRESENCE