src/tool/Includes_Generaux/mslver.h

   1       texte(1,6) =
   2      > '(/,1x,''Une ERREUR dans les mots-cles des options !'')'
   3       texte(1,7) = '(/,1x,''ERREURS dans les mots-cles des options !'')'
   4 c
   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'')'
  10 c
  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 :'')'
  17 c
  18       texte(1,26) =
  19      > '(/,5x,''Code de calcul associe : '',a18,/,5x,24(''-''))'
  20 c
  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'')'
  24 c
  25       texte(1,30) =
  26      > '(/,5x,''Pilotage du raffinement :'',/,5x,25(''-''))'
  27       texte(1,31) =
  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'',/)'
  33       texte(1,35) =
  34      > '(7x,''    avec conservation des types de mailles'',/)'
  35 c
  36       texte(1,39) =
  37      > '(7x,''--> decalage d''''au moins 2 mailles pour 2 zones a ni'',
  38      > ''veau different'',/)'
  39       texte(1,40) = '(7x,''--> bande interdite'',/)'
  40 c
  41       texte(1,41) =
  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'',/)'
  47 c
  48       texte(1,51) = '(7x,''--> niveau maximum autorise :'',i4)'
  49       texte(1,52) = '(7x,''--> niveau minimum autorise :'',i4)'
  50       texte(1,53) =
  51      > '(/,7x,''Deraffinement interdit si le raffinement est uniforme.''
  52      >)'
  53       texte(1,54) =
  54      > '(/,7x,''Raffinement interdit si le deraffinement est uniforme.''
  55      >)'
  56 c
  57       texte(1,61) = '(/,5x,''Les conversions :'',/,5x,17(''-''))'
  58 c
  59       texte(1,70) =
  60      > '(/,5x,''Options pour Code_Saturne :'',/,5x,27(''-''))'
  61       texte(1,71) =
  62      > '(/,7x,''--> Il faut definir le delta z voulu.'')'
  63       texte(1,72) =
  64      > '(/,7x,''--> Le delta z voulu doit etre strictement positif.'')'
  65 c
  66       texte(1,80) =
  67      > '(/,7x,''--> Mauvaise definition des seuils d''''erreur.'')'
  68       texte(1,81) =
  69      > '(7x,''--> borne superieure absolue de l''''erreur : '',g15.6,/)'
  70       texte(1,82) =
  71      >'(7x,''--> borne superieure relative de l''''erreur : '',g11.3,/)'
  72       texte(1,83) =
  73      > '(7x,''--> pourcentage de mailles a raffiner : '',g11.3,/)'
  74       texte(1,84) =
  75      > '(7x,''--> borne inferieure absolue de l''''erreur : '',g15.6,/)'
  76       texte(1,85) =
  77      >'(7x,''--> borne inferieure relative de l''''erreur : '',g11.3,/)'
  78       texte(1,86) =
  79      > '(7x,''--> pourcentage de mailles a deraffiner : '',g11.3,/)'
  80       texte(1,87) =
  81      > '(/,7x,''Le pourcentage doit etre entre 0 et 100.'')'
  82       texte(1,88) =
  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'')'
  86 c
  87       texte(1,101) =
  88      >'(''Choix de l''''instant de l''''indicateur d''''errreur'')'
  89       texte(1,102) =
  90      >'(''Impossible de demander un ''''dernier'''' et autre chose'',/)'
  91       texte(1,103) =
  92      >'(''Impossible de demander un instant et un pas de temps'',/)'
  93 c
  94       texte(1,110) =
  95      > '(/,5x,''Mode de conformite :'',/,5x,20(''-''))'
  96       texte(1,111) =
  97      > '(7x,''--> non conforme avec 1 seule arete decoupee'')'
  98       texte(1,112) =
  99      > '(7x,''--> Adaptation conforme avec des boites'')'
 100       texte(1,113) =
 101      > '(7x,''--> Adaptation conforme'')'
 102       texte(1,114) =
 103      > '(7x,''--> Adaptation non conforme'')'
 104       texte(1,115) =
 105      > '(7x,''--> non conforme avec 1 seul noeud pendant par arete'',/)'
 106       texte(1,116) =
 107      > '(7x,''--> non conforme fidele a l''''indicateur'',/)'
 108 c
 109       texte(1,119) =
 110      > '(/,5x,''Maillage extrude selon '',a1,/,5x,24(''-''))'
 111 c
 112       texte(1,120) =
 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'')'
 116       texte(1,123) =
 117      > '(7x,''--> cible en nombre de sommets : '',i11,/)'
 118       texte(1,124) =
 119      > '(7x,''--> nombre maximum de passages :'',i5,/)'
 120 c
 121       texte(2,6) = '(/,1x,''One ERROR in keywords of options !'')'
 122       texte(2,7) = '(/,1x,''ERRORS in keywords of options !'')'
 123 c
 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'')'
 129 c
 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:'')'
 136 c
 137       texte(2,26) = '(/,5x,''Related code: '',a18,/,5x,14(''-''))'
 138 c
 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'')'
 142 c
 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'',/)'
 149 c
 150       texte(2,39) = '(7x,''--> shift of at least 2 meshes'',/)'
 151       texte(2,40) = '(7x,''--> stripes are forbidden'',/)'
 152 c
 153       texte(2,41) =
 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'',/)'
 159 c
 160       texte(2,51) = '(7x,''--> maximum authorized level:'',i4)'
 161       texte(2,52) = '(7x,''--> minimum authorized level:'',i4)'
 162       texte(2,53) =
 163      >'(/,7x,''Unrefinement is forbidden when refinement is uniform.'')'
 164       texte(2,54) =
 165      >'(/,7x,''Refinement is forbidden when unrefinement is uniform.'')'
 166 c
 167       texte(2,61) = '(/,5x,''Conversions:'',/,5x,13(''-''))'
 168 c
 169       texte(2,70) =
 170      > '(/,5x,''Options for Code_Saturne:'',/,5x,26(''-''))'
 171       texte(2,71) =
 172      > '(/,7x,''--> Wanted delta z should be defined.'')'
 173       texte(2,72) =
 174      > '(/,7x,''--> Wanted delta z should be positive.'')'
 175 c
 176       texte(2,80) =
 177      > '(/,7x,''--> Error threshold ill-defined.'')'
 178       texte(2,81) =
 179      >'(7x,''--> high absolute threshold for error: '',g15.6,/)'
 180       texte(2,82) =
 181      >'(7x,''--> high relative threshold for error: '',g11.3,/)'
 182       texte(2,83) =
 183      >'(7x,''--> percentage of meshes to refine: '',g11.3,/)'
 184       texte(2,84) =
 185      >'(7x,''--> low absolute threshold for error : '',g15.6,/)'
 186       texte(2,85) =
 187      >'(7x,''--> low relative threshold for error : '',g11.3,/)'
 188       texte(2,86) =
 189      >'(7x,''--> percentage of meshes to coarsen: '',g11.3,/)'
 190       texte(2,87) = '(/,7x,''Percentage should be between 0 and 100.'')'
 191       texte(2,88) =
 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'')'
 195 c
 196       texte(2,101) = '(''Choice for error indicator'')'
 197       texte(2,102) =
 198      >'(''''Last'''' and something else cannot be both required'',/)'
 199       texte(2,103) =
 200      >'(''A time step and an instant cannot be both required'',/)'
 201 c
 202       texte(2,110) =
 203      > '(/,5x,''Type of conformal situations:'',/,5x,30(''-''))'
 204       texte(2,111) =
 205      > '(7x,''--> hanging node refinement with a single cut edge'',/)'
 206       texte(2,112) =
 207      > '(7x,''--> Conformal adaptation with boxes'')'
 208       texte(2,113) =
 209      > '(7x,''--> Conformal adaptation'')'
 210       texte(2,114) =
 211      > '(7x,''--> Non conformal adaptation'')'
 212       texte(2,115) =
 213      > '(7x,''--> hanging node refinement, a single node per edge'',/)'
 214       texte(2,116) =
 215      > '(7x,''--> hanging node refinement from indicator'',/)'
 216 c
 217       texte(2,119) =
 218      > '(/,5x,''Extruded mesh along '',a1,/,5x,21(''-''))'
 219 c
 220       texte(2,120) =
 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'')'
 224       texte(2,123) =
 225      > '(7x,''--> target for the number of vertices: '',i11,/)'
 226       texte(2,124) =
 227      > '(7x,''--> maximal number of iterations:'',i5,/)'