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

Go to the documentation of this file.
00001 !     #################################
00002       SUBROUTINE GET_SURF_UNDEF(PUNDEF)
00003 !     #################################
00004 !
00005 !!****  *GET_SURF_UNDEF* - routine to get undefined value of SURFEX
00006 !    PURPOSE
00007 !!    -------
00008 !!
00009 !!**  METHOD
00010 !!    -------
00011 !!
00012 !!    REFERENCE
00013 !!    ---------
00014 !!
00015 !!
00016 !!    AUTHOR
00017 !!    ------
00018 !!      V. Masson    *Meteo France*     
00019 !!
00020 !!    MODIFICATIONS
00021 !!    -------------
00022 !!      Original    10/2008
00023 !-------------------------------------------------------------------------------
00024 !
00025 !*       0.    DECLARATIONS
00026 !              ------------
00027 !
00028 USE MODD_SURF_PAR,   ONLY : XUNDEF
00029 !
00030 !
00031 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00032 USE PARKIND1  ,ONLY : JPRB
00033 !
00034 IMPLICIT NONE
00035 !
00036 !*       0.1   Declarations of arguments
00037 !              -------------------------
00038 !
00039 REAL, INTENT(OUT) :: PUNDEF
00040 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00041 !
00042 !*       0.2   Declarations of local variables
00043 !              -------------------------------
00044 !
00045 !-------------------------------------------------------------------------------
00046 !
00047 IF (LHOOK) CALL DR_HOOK('GET_SURF_UNDEF',0,ZHOOK_HANDLE)
00048 PUNDEF = XUNDEF
00049 IF (LHOOK) CALL DR_HOOK('GET_SURF_UNDEF',1,ZHOOK_HANDLE)
00050 !
00051 !-------------------------------------------------------------------------------
00052 !
00053 END SUBROUTINE GET_SURF_UNDEF