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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE INIT_TRIP_PAR 
00003 !     ########################
00004 !
00005 !
00006 !!****  *INIT_TRIP_PAR* - Initialization of TRIP parameters
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !       The purpose of this routine is to specify  the 
00011 !     parameters related to the TRIP RRM. 
00012 !
00013 !!
00014 !!      
00015 !!
00016 !!    AUTHOR
00017 !!    ------
00018 !!      B. Decharme   *Meteo France*
00019 !!
00020 !!    MODIFICATIONS
00021 !!    -------------
00022 !!      Original  22/05/08
00023 !-------------------------------------------------------------------------------
00024 !
00025 !*       0.   DECLARATIONS
00026 !             ------------
00027 !
00028 USE MODD_TRIP_PAR
00029 !
00030 !
00031 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00032 USE PARKIND1  ,ONLY : JPRB
00033 !
00034 IMPLICIT NONE
00035 !
00036 
00037 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00038 
00039 IF (LHOOK) CALL DR_HOOK('INIT_TRIP_PAR',0,ZHOOK_HANDLE)
00040 XTRIP_UNDEF = 1.0E20
00041 NTRIPTAB    = 1000
00042 !
00043 XM_EXP      = 2.0/3.0
00044 !
00045 XRHOLW_T    = 1000.0
00046 XDAY_T      = 86400.0
00047 XSEA_T      = 135.3E12
00048 XYEAR_T     = 365.0
00049 !
00050 XRAD_T      = 6371229.
00051 XPI_T       = 2.*ASIN(1.)
00052 IF (LHOOK) CALL DR_HOOK('INIT_TRIP_PAR',1,ZHOOK_HANDLE)
00053 !
00054 !--------------------------------------------------------------------------------
00055 !
00056 END SUBROUTINE INIT_TRIP_PAR