SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TRIP/get_conf

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE GET_CONF_TRIP_n(OFLOOD_TRIP, PTSTEP_COUPLING)
00003 !#######################################################
00004 !
00005 !!**** *GET_CONF_TRIP_n* get the configuration of TRIP
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !!
00010 !!    METHOD
00011 !!    ------
00012 !!   
00013 !!    REFERENCE
00014 !!    ---------
00015 !!
00016 !!    AUTHOR
00017 !!    ------
00018 !!
00019 !!    B. Decharme         Meteo-France
00020 !!
00021 !!    MODIFICATION
00022 !!    ------------
00023 !!
00024 !!    Original    05/2008
00025 !!
00026 !----------------------------------------------------------------------------
00027 !
00028 !*    0.     DECLARATION
00029 !            -----------
00030 !
00031 USE MODD_TRIP_n,           ONLY : LFLOODT, XTSTEP_COUPLING
00032 !
00033 !
00034 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00035 USE PARKIND1  ,ONLY : JPRB
00036 !
00037 IMPLICIT NONE
00038 !
00039 !*    0.1    Declaration of arguments
00040 !            ------------------------
00041 !
00042 LOGICAL,INTENT(OUT), OPTIONAL :: OFLOOD_TRIP
00043 REAL,   INTENT(OUT), OPTIONAL :: PTSTEP_COUPLING
00044 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00045 !
00046 !*    0.2    Declaration of other local variables
00047 !            ------------------------------------
00048 !
00049 !----------------------------------------------------------------------------
00050 !
00051 IF (LHOOK) CALL DR_HOOK('GET_CONF_TRIP_N',0,ZHOOK_HANDLE)
00052 IF(PRESENT(OFLOOD_TRIP)) OFLOOD_TRIP = LFLOODT
00053 !
00054 IF(PRESENT(PTSTEP_COUPLING))PTSTEP_COUPLING = XTSTEP_COUPLING
00055 IF (LHOOK) CALL DR_HOOK('GET_CONF_TRIP_N',1,ZHOOK_HANDLE)
00056 !
00057 !-------------------------------------------------------------------------------
00058 !
00059 END SUBROUTINE GET_CONF_TRIP_n