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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_TRIP(HGROUNDW,HVIT,OFLOODT,ODIAG_CPL,     &
00003                                 OTRIP_DIAG_MISC,ONCPRINT,OPRINT_TRIP,&
00004                                 PTSTEP_COUPLING,PTRIP_TSTEP,PTAUG,   &
00005                                 PVEL,PRATMED                         )       
00006 !     ########################################################################
00007 !
00008 !!****  *DEFAULT_TRIP* - routine to set default values for the configuration for ISBA
00009 !!
00010 !!    PURPOSE
00011 !!    -------
00012 !!
00013 !!**  METHOD
00014 !!    ------
00015 !!
00016 !!    EXTERNAL
00017 !!    --------
00018 !!
00019 !!
00020 !!    IMPLICIT ARGUMENTS
00021 !!    ------------------
00022 !!
00023 !!    REFERENCE
00024 !!    ---------
00025 !!
00026 !!
00027 !!    AUTHOR
00028 !!    ------
00029 !!      B. Decharme   *Meteo France*    
00030 !!
00031 !!    MODIFICATIONS
00032 !!    -------------
00033 !!      Original    05/2008 
00034 !-------------------------------------------------------------------------------
00035 !
00036 !*       0.    DECLARATIONS
00037 !              ------------
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  CHARACTER(LEN=3),  INTENT(OUT) :: HGROUNDW      !Use groundwater scheme
00049                                                 !'DEF' = No groundwater scheme
00050                                                 !'CST' = Constant transfert time
00051                                                 !'VAR' = Textural dependence of transfert time
00052 !                                                
00053  CHARACTER(LEN=3),  INTENT(OUT) :: HVIT          !Type of stream flow velocity
00054                                                 !'DEF' = constant and uniforme v=0.5m/s
00055                                                 !'VAR' = variable velocity
00056 !                                                
00057 LOGICAL,  INTENT(OUT)          :: OFLOODT         !if true, use TRIP-FLOOD
00058 LOGICAL,  INTENT(OUT)          :: OTRIP_DIAG_MISC !if true, more diag
00059 LOGICAL,  INTENT(OUT)          :: ODIAG_CPL       !Coupling output diag
00060 LOGICAL,  INTENT(OUT)          :: ONCPRINT        !Netcdf read/write messages
00061 LOGICAL,  INTENT(OUT)          :: OPRINT_TRIP     !Water budget messages                                               
00062 !
00063 REAL,     INTENT(OUT)          :: PTSTEP_COUPLING ! Coupling Time Step
00064 REAL,     INTENT(OUT)          :: PTRIP_TSTEP     ! TRIPTime Step
00065 REAL,     INTENT(OUT)          :: PTAUG           ! Constant transfert time value
00066 REAL,     INTENT(OUT)          :: PVEL            ! Constant velocity value
00067 REAL,     INTENT(OUT)          :: PRATMED         ! meandering ratio
00068 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00069 !
00070 !*       0.2   Declarations of local variables
00071 !              -------------------------------
00072 !
00073 !-------------------------------------------------------------------------------
00074 !
00075 IF (LHOOK) CALL DR_HOOK('DEFAULT_TRIP',0,ZHOOK_HANDLE)
00076 HGROUNDW        = 'DEF'
00077 HVIT            = 'DEF'   
00078 OFLOODT         = .FALSE.
00079 OTRIP_DIAG_MISC = .FALSE.
00080 ODIAG_CPL       = .FALSE. 
00081 ONCPRINT        = .FALSE. 
00082 OPRINT_TRIP     = .FALSE.
00083 !
00084 PTSTEP_COUPLING = 86400.
00085 PTRIP_TSTEP     = 3600.
00086 !
00087 PTAUG           = 30.0
00088 PVEL            = 0.5
00089 !
00090 PRATMED         = 1.4
00091 IF (LHOOK) CALL DR_HOOK('DEFAULT_TRIP',1,ZHOOK_HANDLE)
00092 !
00093 !-------------------------------------------------------------------------------
00094 !
00095 END SUBROUTINE DEFAULT_TRIP