--- trunk/libf/dyn3d/dynetat0.f90	2008/03/31 13:58:05	9
+++ trunk/libf/dyn3d/dynetat0.f90	2008/07/25 19:59:34	13
@@ -24,12 +24,13 @@
     use advtrac_m, only: tname
     use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE
     use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR
-    use nrutil, only: assert
+    use numer_rec, only: assert
 
     !   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