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

Go to the documentation of this file.
00001 !     ##################
00002       SUBROUTINE SURF_VERSION
00003 !     ##################
00004 !
00005 !!****  *SURF_VERSION * - subroutine to initialize the surface version
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this routine is to initialize NVERSION and NBUGFIX
00010 !     corresponding to the version chosen by the user.
00011 !       The user can also set the name of his own binary library
00012 !      These values will be writen in the output files
00013 !
00014 !!
00015 !!    AUTHOR
00016 !!    ------
00017 !!      V. Masson          * Meteo France *
00018 !!
00019 !!    MODIFICATIONS
00020 !!    -------------
00021 !!      Original    02/2004
00022 !-------------------------------------------------------------------------------
00023 !
00024 !*       0.    DECLARATIONS
00025 !              ------------
00026 USE MODD_SURF_PAR, ONLY : NVERSION,NBUGFIX
00027 !
00028 !
00029 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00030 USE PARKIND1  ,ONLY : JPRB
00031 !
00032 IMPLICIT NONE
00033 !
00034 
00035 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00036 
00037 IF (LHOOK) CALL DR_HOOK('SURF_VERSION',0,ZHOOK_HANDLE)
00038 NVERSION = 7
00039 NBUGFIX  = 3
00040 IF (LHOOK) CALL DR_HOOK('SURF_VERSION',1,ZHOOK_HANDLE)
00041 !
00042 END SUBROUTINE SURF_VERSION