The TELEMAC-MASCARET system  trunk
declarations_damocles.f
Go to the documentation of this file.
1 ! ****************************
3 ! ****************************
4 !
5 !
6 !***********************************************************************
7 ! SPECIAL 09/05/2014
8 !***********************************************************************
9 !
10 !brief Defining parameters for damocles
11 !
12 !history Y. AUDOUIN (EDF LAB, LNHE)
13 !+ 09/05/2014
14 !+ V7P0
15 !+ First version.
16 !
17 !
18 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
19 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
20 !
21  IMPLICIT NONE
22 !----------------------------------------------------------------------
23 !
24  ! DCINFO
25  ! DCRARE
26  LOGICAL :: erreur
27  LOGICAL :: retour
28  ! DCMLIG
29  INTEGER :: nlign
30  INTEGER :: longli
31  ! DCCHIE
32  INTEGER :: nfic
33  ! DCNGEC
34  CHARACTER(LEN=72) :: param
35  ! DCNGE
36  INTEGER indx,ntyp,itai,longu,nmot(4),deflu
37 
38  END MODULE
integer, dimension(4) nmot
logical erreur
Y. AUDOUIN (EDF LAB, LNHE) 09/05/2014 V7P0 First version.