2 > '(/,1x,''Une ERREUR dans les mots-cles des options !'')'
3 texte(1,7) = '(/,1x,''ERREURS dans les mots-cles des options !'')'
5 texte(1,11) = '(7x,''--> OPTION INVALIDE :'',i10)'
6 texte(1,12) = '(7x,''--> pas de conversion'',/)'
7 texte(1,13) = '(7x,''--> conversion'',/)'
8 texte(1,14) = '(7x,''--> inactif'')'
9 texte(1,15) = '(7x,''--> actif'')'
11 texte(1,20) = '(5x,''Maillage initial'')'
12 texte(1,21) = '(5x,''Maillage apres une iteration'')'
13 texte(1,22) = '(5x,''Maillage apres'',i4,'' iterations'')'
14 texte(1,23) = '(/,5x,''Point de depart :'',/,5x,17(''-''))'
15 texte(1,24) = '(7x,''Maillage a analyser :'')'
16 texte(1,25) = '(7x,''Maillage a modifier :'')'
19 > '(/,5x,''Code de calcul associe : '',a18,/,5x,24(''-''))'
21 texte(1,27) = '(/,5x,''Suivi de frontiere :'',/,5x,20(''-''))'
22 texte(1,28) = '( 5x,''Impossible en 3D'')'
23 texte(1,29) = '( 5x,''Non disponible avec ce code de calcul'')'
26 > '(/,5x,''Pilotage du raffinement :'',/,5x,25(''-''))'
28 > '(/,7x,''--> Les mailles incompatibles sont ignorees'')'
29 c remarque : l'indice vaut 33 + code du type de raffinement
30 texte(1,32) = '(7x,''--> raffinement uniforme'',/)'
31 texte(1,33) = '(7x,''--> pas de raffinement'')'
32 texte(1,34) = '(7x,''--> raffinement libre'',/)'
34 > '(7x,'' avec conservation des types de mailles'',/)'
37 > '(7x,''--> decalage d''''au moins 2 mailles pour 2 zones a ni'',
38 > ''veau different'',/)'
39 texte(1,40) = '(7x,''--> bande interdite'',/)'
42 > '(/,5x,''Pilotage du deraffinement :'',/,5x,27(''-''))'
43 c remarque : l'indice vaut 43 + code du type de raffinement
44 texte(1,42) = '(7x,''--> deraffinement uniforme'',/)'
45 texte(1,43) = '(7x,''--> pas de deraffinement'')'
46 texte(1,44) = '(7x,''--> deraffinement libre'',/)'
48 texte(1,51) = '(7x,''--> niveau maximum autorise :'',i4)'
49 texte(1,52) = '(7x,''--> niveau minimum autorise :'',i4)'
51 > '(/,7x,''Deraffinement interdit si le raffinement est uniforme.''
54 > '(/,7x,''Raffinement interdit si le deraffinement est uniforme.''
57 texte(1,61) = '(/,5x,''Les conversions :'',/,5x,17(''-''))'
60 > '(/,5x,''Options pour Code_Saturne :'',/,5x,27(''-''))'
62 > '(/,7x,''--> Il faut definir le delta z voulu.'')'
64 > '(/,7x,''--> Le delta z voulu doit etre strictement positif.'')'
67 > '(/,7x,''--> Mauvaise definition des seuils d''''erreur.'')'
69 > '(7x,''--> borne superieure absolue de l''''erreur : '',g15.6,/)'
71 >'(7x,''--> borne superieure relative de l''''erreur : '',g11.3,/)'
73 > '(7x,''--> pourcentage de mailles a raffiner : '',g11.3,/)'
75 > '(7x,''--> borne inferieure absolue de l''''erreur : '',g15.6,/)'
77 >'(7x,''--> borne inferieure relative de l''''erreur : '',g11.3,/)'
79 > '(7x,''--> pourcentage de mailles a deraffiner : '',g11.3,/)'
81 > '(/,7x,''Le pourcentage doit etre entre 0 et 100.'')'
83 > '(7x,''--> seuil en moyenne '',a,'' '',g11.3,''*sigma'',/)'
84 texte(1,93) = '(/,7x,''Les seuils sont incompatibles.'')'
85 texte(1,94) = '(7x,''--> selon des zones geometriques'')'
88 >'(''Choix de l''''instant de l''''indicateur d''''errreur'')'
90 >'(''Impossible de demander un ''''dernier'''' et autre chose'',/)'
92 >'(''Impossible de demander un instant et un pas de temps'',/)'
95 > '(/,5x,''Mode de conformite :'',/,5x,20(''-''))'
97 > '(7x,''--> non conforme avec 1 seule arete decoupee'')'
99 > '(7x,''--> Adaptation conforme avec des boites'')'
101 > '(7x,''--> Adaptation conforme'')'
103 > '(7x,''--> Adaptation non conforme'')'
105 > '(7x,''--> non conforme avec 1 seul noeud pendant par arete'',/)'
107 > '(7x,''--> non conforme fidele a l''''indicateur'',/)'
110 > '(/,5x,''Maillage extrude selon '',a1,/,5x,24(''-''))'
113 > '(7x,''--> Cible en nombre de sommets possible exclusivement'')'
114 texte(1,121) = '(11x,''avec du raffinement libre'')'
115 texte(1,122) = '(11x,''sans deraffinement'')'
117 > '(7x,''--> cible en nombre de sommets : '',i11,/)'
119 > '(7x,''--> nombre maximum de passages :'',i5,/)'
121 texte(2,6) = '(/,1x,''One ERROR in keywords of options !'')'
122 texte(2,7) = '(/,1x,''ERRORS in keywords of options !'')'
124 texte(2,11) = '(7x,''--> UNCORRECT OPTION :'',i10)'
125 texte(2,12) = '(7x,''--> no conversion'',/)'
126 texte(2,13) = '(7x,''--> conversion'',/)'
127 texte(2,14) = '(7x,''--> non active'')'
128 texte(2,15) = '(7x,''--> active'')'
130 texte(2,20) = '(5x,''Initial mesh'')'
131 texte(2,21) = '(5x,''Mesh after one iteration'')'
132 texte(2,22) = '(5x,''Mesh after'',i4,'' iterations'')'
133 texte(2,23) = '(/,5x,''Start point:'',/,5x,13(''-''))'
134 texte(2,24) = '(7x,''Mesh to be checked:'')'
135 texte(2,25) = '(7x,''Mesh to be modified:'')'
137 texte(2,26) = '(/,5x,''Related code: '',a18,/,5x,14(''-''))'
139 texte(2,27) = '(/,5x,''Boundary following:'',/,5x,20(''-''))'
140 texte(2,28) = '( 5x,''Impossible for 3D'')'
141 texte(2,29) = '( 5x,''Non available with this connected code'')'
143 texte(2,30) = '(/,5x,''Control of refinement:'',/,5x,23(''-''))'
144 texte(2,31) = '(/,7x,''--> Incompatible meshes are ignored'')'
145 c remarque : l'indice vaut 33 + code du type de raffinement
146 texte(2,32) = '(7x,''--> uniform refinement'',/)'
147 texte(2,33) = '(7x,''--> no refinement'')'
148 texte(2,34) = '(7x,''--> free refinement'',/)'
150 texte(2,39) = '(7x,''--> shift of at least 2 meshes'',/)'
151 texte(2,40) = '(7x,''--> stripes are forbidden'',/)'
154 > '(/,5x,''Control of unrefinement:'',/,5x,25(''-''))'
155 c remarque : l'indice vaut 43 + code du type de raffinement
156 texte(2,42) = '(7x,''--> uniform unrefinement'',/)'
157 texte(2,43) = '(7x,''--> no unrefinement'')'
158 texte(2,44) = '(7x,''--> free unrefinement'',/)'
160 texte(2,51) = '(7x,''--> maximum authorized level:'',i4)'
161 texte(2,52) = '(7x,''--> minimum authorized level:'',i4)'
163 >'(/,7x,''Unrefinement is forbidden when refinement is uniform.'')'
165 >'(/,7x,''Refinement is forbidden when unrefinement is uniform.'')'
167 texte(2,61) = '(/,5x,''Conversions:'',/,5x,13(''-''))'
170 > '(/,5x,''Options for Code_Saturne:'',/,5x,26(''-''))'
172 > '(/,7x,''--> Wanted delta z should be defined.'')'
174 > '(/,7x,''--> Wanted delta z should be positive.'')'
177 > '(/,7x,''--> Error threshold ill-defined.'')'
179 >'(7x,''--> high absolute threshold for error: '',g15.6,/)'
181 >'(7x,''--> high relative threshold for error: '',g11.3,/)'
183 >'(7x,''--> percentage of meshes to refine: '',g11.3,/)'
185 >'(7x,''--> low absolute threshold for error : '',g15.6,/)'
187 >'(7x,''--> low relative threshold for error : '',g11.3,/)'
189 >'(7x,''--> percentage of meshes to coarsen: '',g11.3,/)'
190 texte(2,87) = '(/,7x,''Percentage should be between 0 and 100.'')'
192 > '(7x,''--> threshold by mean '',a,'' '',g11.3,''*sigma'',/)'
193 texte(2,93) = '(/,7x,''The thresholds do not fit together.'')'
194 texte(2,94) = '(7x,''--> by geometrical zones'')'
196 texte(2,101) = '(''Choice for error indicator'')'
198 >'(''''Last'''' and something else cannot be both required'',/)'
200 >'(''A time step and an instant cannot be both required'',/)'
203 > '(/,5x,''Type of conformal situations:'',/,5x,30(''-''))'
205 > '(7x,''--> hanging node refinement with a single cut edge'',/)'
207 > '(7x,''--> Conformal adaptation with boxes'')'
209 > '(7x,''--> Conformal adaptation'')'
211 > '(7x,''--> Non conformal adaptation'')'
213 > '(7x,''--> hanging node refinement, a single node per edge'',/)'
215 > '(7x,''--> hanging node refinement from indicator'',/)'
218 > '(/,5x,''Extruded mesh along '',a1,/,5x,21(''-''))'
221 > '(7x,''--> Target for the number of vertices is possible only'')'
222 texte(2,121) = '(11x,''with free refinement'')'
223 texte(2,122) = '(11x,''without unrefinement'')'
225 > '(7x,''--> target for the number of vertices: '',i11,/)'
227 > '(7x,''--> maximal number of iterations:'',i5,/)'