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

Go to the documentation of this file.
00001 !     #######################
00002       SUBROUTINE READ_LECOCLIMAP(HPROGRAM,OECOCLIMAP)
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)   :: OECOCLIMAP! flag for ecoclimap
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_LECOCLIMAP',0,ZHOOK_HANDLE)
00034 YRECFM='VERSION'
00035  CALL READ_SURF(HPROGRAM,YRECFM,IVERSION,IRESP)
00036 YRECFM='BUG'
00037  CALL READ_SURF(HPROGRAM,YRECFM,IBUGFIX,IRESP)
00038 !
00039 IF (IVERSION<1 .OR. (IVERSION==1 .AND. IBUGFIX==0)) THEN
00040   OECOCLIMAP = .TRUE.
00041 ELSE
00042   YRECFM='ECOCLIMAP'
00043   CALL READ_SURF(HPROGRAM,YRECFM,OECOCLIMAP,IRESP)
00044 END IF
00045 IF (LHOOK) CALL DR_HOOK('READ_LECOCLIMAP',1,ZHOOK_HANDLE)
00046 !
00047 !------------------------------------------------------------------------------
00048 !
00049 END SUBROUTINE READ_LECOCLIMAP