--- trunk/libf/dyn3d/dynetat0.f90	2008/03/31 12:24:17	7
+++ trunk/libf/dyn3d/dynetat0.f90	2008/08/07 12:29:13	18
@@ -21,15 +21,16 @@
     use serre, only: clon, clat, grossismy, grossismx
     use temps, only: day_ref, day_ini, itau_dyn, annee_ref
     use ener, only: etot0, ang0, ptot0, stot0, ztot0
-    use advtrac_m, only: tname
-    use netcdf95, only: nf95_open, NF90_NOWRITE, nf95_inq_varid, &
-         NF90_GET_VAR, handle_err, NF90_NOERR, NF95_CLOSE
-    use nrutil, only: assert
+    use iniadvtrac_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 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