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

Go to the documentation of this file.
00001 !##################
00002 MODULE MODN_TRIP_n
00003 !##################
00004 !
00005 !!****  *MODN_TRIP_n* - declaration of namelist NAM_TRIP
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !       The purpose of this module is to specify  the namelist NAM_TRIP
00010 !     which concern the river routing model configuration configuration.
00011 !
00012 !!
00013 !!**  IMPLICIT ARGUMENTS
00014 !!    ------------------
00015 !!
00016 !!    REFERENCE
00017 !!    ---------
00018 !!
00019 !!       
00020 !!    AUTHOR
00021 !!    ------
00022 !!      B. Decharme    *Meteo France*
00023 !!
00024 !!    MODIFICATIONS
00025 !!    -------------
00026 !!      Original    05/2008                    
00027 !-------------------------------------------------------------------------------
00028 !
00029 !*       0.   DECLARATIONS
00030 !             ------------
00031 !
00032 USE MODD_TRIP_n, ONLY:                         &
00033            CVIT_n => CVIT,                       &
00034            CGROUNDW_n => CGROUNDW,               &
00035            LFLOODT_n => LFLOODT,                 &
00036            LTRIP_DIAG_MISC_n => LTRIP_DIAG_MISC, &
00037            LDIAG_CPL_n => LDIAG_CPL,             &
00038            LNCPRINT_n => LNCPRINT,               &
00039            LPRINT_TRIP_n => LPRINT_TRIP,         &
00040            XDATA_TAUG_n => XDATA_TAUG,           &
00041            XCVEL_n => XCVEL,                     &
00042            XRATMED_n => XRATMED,                 &
00043            XTRIP_TSTEP_n => XTRIP_TSTEP,         &
00044            XTSTEP_COUPLING_n => XTSTEP_COUPLING  
00045 !
00046 !
00047 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00048 USE PARKIND1  ,ONLY : JPRB
00049 !
00050 IMPLICIT NONE
00051 !
00052  CHARACTER(LEN=3)  :: CVIT
00053  CHARACTER(LEN=3)  :: CGROUNDW
00054 LOGICAL  :: LFLOODT
00055 LOGICAL  :: LTRIP_DIAG_MISC
00056 LOGICAL  :: LDIAG_CPL
00057 LOGICAL  :: LNCPRINT
00058 LOGICAL  :: LPRINT_TRIP
00059 REAL     :: XTSTEP_COUPLING
00060 REAL     :: XDATA_TAUG
00061 REAL     :: XCVEL
00062 REAL     :: XRATMED
00063 REAL     :: XTRIP_TSTEP
00064 !
00065 NAMELIST/NAM_TRIPn/CVIT,CGROUNDW,LFLOODT,LTRIP_DIAG_MISC,LDIAG_CPL, &
00066                      LNCPRINT,LPRINT_TRIP,XTSTEP_COUPLING,XTRIP_TSTEP,&
00067                      XDATA_TAUG,XRATMED,XCVEL  
00068 !
00069 CONTAINS
00070 !
00071 SUBROUTINE INIT_NAM_TRIPn
00072 
00073   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00074 
00075   IF (LHOOK) CALL DR_HOOK('MODN_TRIP_N:INIT_NAM_TRIPN',0,ZHOOK_HANDLE)
00076   CVIT             = CVIT_n
00077   CGROUNDW        = CGROUNDW_n
00078   LFLOODT         = LFLOODT_n
00079   LTRIP_DIAG_MISC = LTRIP_DIAG_MISC_n
00080   LDIAG_CPL       = LDIAG_CPL_n
00081   LNCPRINT        = LNCPRINT_n
00082   LPRINT_TRIP     = LPRINT_TRIP_n
00083   XDATA_TAUG      = XDATA_TAUG_n
00084   XCVEL           = XCVEL_n
00085   XRATMED         = XRATMED_n
00086   XTRIP_TSTEP     = XTRIP_TSTEP_n
00087   XTSTEP_COUPLING = XTSTEP_COUPLING_n
00088 IF (LHOOK) CALL DR_HOOK('MODN_TRIP_N:INIT_NAM_TRIPN',1,ZHOOK_HANDLE)
00089 END SUBROUTINE INIT_NAM_TRIPn
00090 !
00091 SUBROUTINE UPDATE_NAM_TRIPn
00092 
00093   REAL(KIND=JPRB) :: ZHOOK_HANDLE
00094 
00095   IF (LHOOK) CALL DR_HOOK('MODN_TRIP_N:UPDATE_NAM_TRIPN',0,ZHOOK_HANDLE)
00096   CVIT_n            = CVIT
00097   CGROUNDW_n        = CGROUNDW
00098   LFLOODT_n         = LFLOODT
00099   LTRIP_DIAG_MISC_n = LTRIP_DIAG_MISC
00100   LDIAG_CPL_n       = LDIAG_CPL
00101   LNCPRINT_n        = LNCPRINT
00102   LPRINT_TRIP_n     = LPRINT_TRIP
00103   XDATA_TAUG_n      = XDATA_TAUG
00104   XCVEL_n           = XCVEL
00105   XRATMED_n         = XRATMED
00106   XTRIP_TSTEP_n     = XTRIP_TSTEP
00107   XTSTEP_COUPLING_n = XTSTEP_COUPLING
00108 IF (LHOOK) CALL DR_HOOK('MODN_TRIP_N:UPDATE_NAM_TRIPN',1,ZHOOK_HANDLE)
00109 END SUBROUTINE UPDATE_NAM_TRIPn
00110 !
00111 END MODULE MODN_TRIP_n