--- trunk/libf/dyn3d/dynetat0.f90	2008/03/31 13:58:05	9
+++ trunk/libf/dyn3d/dynetat0.f90	2008/04/18 14:45:53	10
@@ -29,7 +29,8 @@
     !   Arguments:
     REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :)
     REAL, intent(out):: q(:, :, :), masse(:, :)
-    REAL, intent(out):: ps(:), phis(:, :)
+    REAL, intent(out):: ps(:) ! in Pa
+    REAL, intent(out):: phis(:, :)
     REAL, intent(out):: time
 
     !   Variables