The TELEMAC-MASCARET system  trunk
presel.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE presel
3 ! *****************
4 !
5  &(ikle,trav1,nelem,nelmax,ndp,texte,nbfond,sorleo,color,
6  & nsfond,nvarin,nvarou,maille)
7 !
8 !***********************************************************************
9 ! PROGICIEL : STBTEL V5.2 07/12/88 J-M HERVOUET (LNH) 30 87 80 18
10 ! 19/02/93 J-M JANIN (LNH) 30 87 72 84
11 ! A WATRIN
12 !***********************************************************************
13 !
14 ! FONCTION : PREPARATION DE DONNEES AVANT L'APPEL DE FMTSEL
15 !
16 !-----------------------------------------------------------------------
17 ! ARGUMENTS
18 ! .________________.____.______________________________________________
19 ! | NOM |MODE| ROLE
20 ! |________________|____|______________________________________________
21 ! |________________|____|______________________________________________
22 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
23 !-----------------------------------------------------------------------
24 !
25 ! APPELE PAR : PREDON
26 ! APPEL DE : -
27 !
28 !***********************************************************************
29 !
31  IMPLICIT NONE
32 !
33  INTEGER, INTENT(IN) :: NDP,NELEM,NELMAX,NBFOND,NVARIN
34  INTEGER, INTENT(INOUT) :: NSFOND,NVAROU
35  INTEGER, INTENT(INOUT) :: TRAV1(nelem,ndp)
36  INTEGER, INTENT(IN) :: IKLE(nelmax,ndp)
37  CHARACTER(LEN=32), INTENT(INOUT) :: TEXTE(26)
38  CHARACTER(LEN=9), INTENT(IN) :: MAILLE
39  LOGICAL, INTENT(INOUT) :: SORLEO(26),COLOR
40 !
41  INTEGER I,IDP,IELEM
42 !
43 !-----------------------------------------------------------------------
44 !
45 ! IKLE EST REFAIT EN FONCTION DU NOMBRE DEFINITIF D'ELEMENTS
46 ! LE RESULTAT EST MIS DANS TRAV1.
47 !
48  DO ielem = 1 , nelem
49  DO idp = 1 , ndp
50  trav1(ielem,idp) = ikle(ielem,idp)
51  ENDDO
52  ENDDO
53 !
54 !-----------------------------------------------------------------------
55 !
56 ! NOMS DES VARIABLES QUI SERONT DANS LE FICHIER DE GEOMETRIE
57 ! TABLEAUX INDIQUANT SI ELLES SERONT ECRITES.
58 !
59  DO i = 1 , 26
60  sorleo(i) = .false.
61  ENDDO
62 !
63  nvarou = nvarin
64  IF (nvarou.GT.0) THEN
65  DO i = 1 , nvarou
66  sorleo(i) = .true.
67  ENDDO
68  ENDIF
69 !
70 !-----------------------------------------------------------------------
71 !
72 ! RAJOUT DU FOND PUIS DE LA COULEUR DES NOEUDS PUIS D'UNE VARIABLE
73 ! BIDON SI NECESSAIRE DANS LES VARIABLES DE SORTIE
74 !
75  IF (nbfond.GT.0.AND.nsfond.EQ.0.AND.nvarou.LT.26) THEN
76  nvarou = nvarou + 1
77  sorleo(nvarou) = .true.
78  IF (lng.EQ.lng_fr)
79  & texte(nvarou)='FOND '
80  IF (lng.EQ.lng_en)
81  & texte(nvarou)='BOTTOM '
82  nsfond = nvarou
83  ELSEIF (nbfond.EQ.0) THEN
84  nsfond = 0
85  ENDIF
86 !
87  IF (color) THEN
88  IF (nvarou.LT.26) THEN
89  nvarou = nvarou + 1
90  sorleo(nvarou) = .true.
91  texte(nvarou) = 'COULEUR '
92  ELSE
93  color = .false.
94  ENDIF
95  ENDIF
96 !
97  IF(nvarou.EQ.0) THEN
98  sorleo(1) = .true.
99  IF(maille.NE.'ADCIRC') THEN
100  texte(1) = 'MAILLAGE '
101  ELSE
102  IF (lng.EQ.lng_fr) texte(1)='FOND '
103  IF (lng.EQ.lng_en) texte(1)='BOTTOM '
104  ENDIF
105  ENDIF
106 !
107 !-----------------------------------------------------------------------
108 !
109  RETURN
110  END
integer, parameter lng_en
integer, parameter lng_fr
Y. AUDOUIN & J-M HERVOUET (EDF LAB, LNHE) 09/05/2014 V7P0 First version.
subroutine presel(IKLE, TRAV1, NELEM, NELMAX, NDP, TEXTE, NBFOND, SORLEO, COLOR, NSFOND, NVARIN, NVAROU, MAILLE)
Definition: presel.f:8