The TELEMAC-MASCARET system  trunk
nomtra.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE nomtra
3 ! *****************
4 !
5  &(nomtac,nomtpa,ntrac,ntrpa)
6 !
7 !***********************************************************************
8 ! POSTEL3D VERSION 5.1 01/09/99 T. DENOT (LNH) 01 30 87 74 89
9 ! FORTRAN90
10 !***********************************************************************
11 !
12 ! FONCTION : FIXE LES NOMS DES TRACEURS (ACTIFS OU PASSIFS)
13 ! POUR LA VISUALISATION DANS RUBENS
14 !
15 !-----------------------------------------------------------------------
16 ! ARGUMENTS
17 ! .________________.____.______________________________________________.
18 ! | NOM |MODE| ROLE |
19 ! |________________|____|______________________________________________|
20 ! | NOMTAC |<-- | NOMS DES TRACEURS ACTIFS |
21 ! | NOMTPA |<-- | NOMS DES TRACEURS PASSIFS |
22 ! | NTRAC |<-- | NOMBRE DE TRACEURS ACTIFS |
23 ! | NTRPA |<-- | NOMBRE DE TRACEURS PASSIFS |
24 ! |________________|____|______________________________________________|
25 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
26 !
27 !-----------------------------------------------------------------------
28 !
29 ! APPELE PAR : ECRDEB
30 !
31 ! SOUS-PROGAMME APPELE : NEANT
32 !
33 !**********************************************************************
34 !
35  USE bief
37  IMPLICIT NONE
38 !
39 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
40 !
41  INTEGER, INTENT(IN) :: NTRAC,NTRPA
42  CHARACTER(LEN=32), INTENT(INOUT) :: NOMTAC(ntrac),NOMTPA(ntrpa)
43 !
44 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
45 !
46  INTEGER I
47  CHARACTER(LEN=32) TEXTE
48 !
49 !-----------------------------------------------------------------------
50 !
51 ! PAR DEFAUT CETTE ROUTINE DONNE DES NOMS NEUTRES
52 ! (TRACEUR ACTIF XX OU TRACEUR PASSIF XX)
53 !
54 ! POUR DONNER SES PROPRES NOMS :
55 ! RAJOUTER ENSUITE DES LIGNES DU TYPE DE CELLES
56 ! QUI SONT COMMENTARISEES
57 !
58 ! ATTENTION : BIEN RESPECTER LA LONGUEUR DE 32 CARACTERES
59 ! (LES 16 PREMIERS POUR LE NOM, LE RESTE POUR L'UNITE)
60 !
61 ! ********************************
62 ! TRACEURS ACTIFS / ACTIVE TRACERS
63 ! ********************************
64 !
65 ! ENGLISH
66 !
67  IF(lng.EQ.lng_en) THEN
68 !
69  DO i=1,ntrac
70  texte = 'ACTIVE TRACER '
71  texte = texte(1:14)//char(48+i)//' '
72  nomtac(i) = texte
73  ENDDO
74 !
75 ! EXAMPLE
76 !
77 ! NOMTAC(1)='TEMPERATURE C '
78 ! NOMTAC(2)='SALINITY G/L '
79 !
80 !-----------------------------------------
81 !
82 ! FRANCAIS OU AUTRE
83 !
84  ELSE
85 !
86  DO i=1,ntrac
87  texte = 'TRACEUR ACTIF '
88  texte = texte(1:14)//char(48+i)//' '
89  nomtac(i) = texte
90  ENDDO
91 !
92 ! EXEMPLE
93 !
94 ! NOMTAC(1)='TEMPERATURE C '
95 ! NOMTAC(2)='SALINITE G/L '
96 !
97 !
98  ENDIF
99 !
100 !-----------------------------------------
101 !
102 ! **********************************
103 ! TRACEURS PASSIFS / PASSIVE TRACERS
104 ! **********************************
105 !
106 ! ENGLISH
107 !
108  IF(lng.EQ.lng_en) THEN
109 !
110  DO i=1,ntrpa
111  texte = 'PASSIVE TRACER '
112  texte = texte(1:15)//char(48+i)//' '
113  nomtpa(i) = texte
114  ENDDO
115 !
116 !
117 ! EXAMPLE
118 !
119 ! NOMTPA(1)='OXYGEN G/L '
120 !
121 !-----------------------------------------
122 !
123 ! FRANCAIS OU AUTRE
124 !
125  ELSE
126 !
127  DO i=1,ntrpa
128  texte = 'TRACEUR PASSIF '
129  texte = texte(1:15)//char(48+i)//' '
130  nomtpa(i) = texte
131  ENDDO
132 !
133 ! EXEMPLE
134 !
135 ! NOMTPA(1)='OXYGENE G/L '
136 !
137 !
138  ENDIF
139 !
140 !-----------------------------------------
141 !
142 !
143 !
144 !-----------------------------------------------------------------------
145 !
146  RETURN
147  END SUBROUTINE
integer, parameter lng_en
subroutine nomtra(NOMTAC, NOMTPA, NTRAC, NTRPA)
Definition: nomtra.f:7
Definition: bief.f:3