--- trunk/libf/dyn3d/comgeom.f90	2012/01/10 19:02:02	56
+++ trunk/libf/dyn3d/comgeom.f90	2012/01/30 12:54:02	57
@@ -23,8 +23,8 @@
   real aire(ip1jmp1), airesurg(ip1jmp1)
   equivalence (aire, aire_2d), (airesurg, airesurg_2d)
 
-  real aireu_2d(iim + 1, jjm + 1)           
-  real aireu(ip1jmp1)
+  real aireu_2d(iim + 1, jjm + 1) ! in m2
+  real aireu(ip1jmp1) ! in m2
   equivalence (aireu, aireu_2d)
 
   real airev_2d(iim + 1, jjm), unsaire_2d(iim + 1, jjm + 1)