--- trunk/libf/dyn3d/comvert.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/comvert.f90	2008/10/15 16:19:57	20
@@ -6,9 +6,9 @@
 
   private llm
 
-  real ap(llm+1) ! in Pa
+  real ap(llm+1), pa ! in Pa
   real bp(llm+1), dpres(llm)
-  real presnivs(llm), pa ! in Pa
+  real presnivs(llm) ! pressions approximatives des milieux couches, en Pa
   real, parameter:: preff = 101325. ! in Pa
   real nivsigs(llm), nivsig(llm+1)