init_trip_par.F90

Go to the documentation of this file.

!     #########
      SUBROUTINE init_trip_par 
!     ########################
!
!
!!****  *INIT_TRIP_PAR* - Initialization of TRIP parameters
!!
!!    PURPOSE
!!    -------
!       The purpose of this routine is to specify  the 
!     parameters related to the TRIP RRM. 
!
!!
!!      
!!
!!    AUTHOR
!!    ------
!!      B. Decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original  22/05/08
!!      09/16   B. Decharme  limit wtd to -1000m
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_trip_par
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
IF (lhook) CALL dr_hook('INIT_TRIP_PAR',0,zhook_handle)
!
ndimtab     = 10
nundef      = 1e+9
!
xvelmin     = 0.025
xhsmin      = 0.01
xundef      = 1.0e+20
xm          = 2.0/3.0
xrholw      = 1000.0
xday        = 86400.0
xsea        = 135.3e12
xyear       = 365.0
xrad        = 6371229.
xpi         = 2.*asin(1.)
xtime_diag  = 0.
!
xgwdzmax    = 1000.
!
lncprint    = .false.
!
IF (lhook) CALL dr_hook('INIT_TRIP_PAR',1,zhook_handle)
!
!--------------------------------------------------------------------------------
!
END SUBROUTINE init_trip_par