23 |
real aire(ip1jmp1), airesurg(ip1jmp1) |
real aire(ip1jmp1), airesurg(ip1jmp1) |
24 |
equivalence (aire, aire_2d), (airesurg, airesurg_2d) |
equivalence (aire, aire_2d), (airesurg, airesurg_2d) |
25 |
|
|
26 |
real aireu_2d(iim + 1, jjm + 1) |
real aireu_2d(iim + 1, jjm + 1) ! in m2 |
27 |
real aireu(ip1jmp1) |
real aireu(ip1jmp1) ! in m2 |
28 |
equivalence (aireu, aireu_2d) |
equivalence (aireu, aireu_2d) |
29 |
|
|
30 |
real airev_2d(iim + 1, jjm), unsaire_2d(iim + 1, jjm + 1) |
real airev_2d(iim + 1, jjm), unsaire_2d(iim + 1, jjm + 1) |