2 c=======================================================================
3 c environnement d'adaptation
4 c-----------------------------------------------------------------------
5 c nbiter : numero de l'adaptation,
6 c 0 : on en est au macro-maillage
7 c k : k adaptations ont ete faites
8 c nivinf : niveau inferieur present dans le maillage courant actif, en
9 c tenant compte seulement des decoupages standard
10 c nivsup : niveau superieur present dans le maillage courant, en
11 c tenant compte seulement des decoupages standard
12 c niincf : 10 fois le niveau inferieur present dans le maillage courant,
13 c en tenant compte des raccords de conformite.
14 c nisucf : 10 fois le niveau superieur present dans le maillage courant,
15 c en tenant compte des raccords de conformite.
16 c-----------------------------------------------------------------------
17 integer nbiter, nivinf, nivsup, niincf, nisucf
18 common /envada/ nbiter, nivinf, nivsup, niincf, nisucf
