SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/get_offline

Go to the documentation of this file.
00001 !     ########################################
00002       SUBROUTINE GET_OFFLINE_CONF(PTSTEP_OUTPUT)
00003 !     ########################################
00004 !
00005 !
00006 !!****  *GET_OFFLINE_CONF* - routine to get some ISBA fields
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      V. Masson   *Meteo France*      
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    04/2008
00032 !-------------------------------------------------------------------------------
00033 !
00034 !*       0.    DECLARATIONS
00035 !              ------------
00036 !
00037 USE MODN_IO_OFFLINE,     ONLY : XTSTEP_OUTPUT
00038 !
00039 !
00040 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00041 USE PARKIND1  ,ONLY : JPRB
00042 !
00043 IMPLICIT NONE
00044 !
00045 !*       0.1   Declarations of arguments
00046 !              -------------------------
00047 !
00048 REAL, INTENT(OUT) :: PTSTEP_OUTPUT ! time step of output time series
00049 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00050 !
00051 !
00052 !*       0.2   Declarations of local variables
00053 !              -------------------------------
00054 !
00055 !
00056 !-------------------------------------------------------------------------------
00057 IF (LHOOK) CALL DR_HOOK('GET_OFFLINE_CONF',0,ZHOOK_HANDLE)
00058 PTSTEP_OUTPUT = XTSTEP_OUTPUT
00059 IF (LHOOK) CALL DR_HOOK('GET_OFFLINE_CONF',1,ZHOOK_HANDLE)
00060 !
00061 !==============================================================================
00062 !
00063 END SUBROUTINE GET_OFFLINE_CONF