--- trunk/libf/dyn3d/dynetat0.f90	2012/01/30 12:54:02	57
+++ trunk/libf/dyn3d/dynetat0.f90	2012/09/20 13:00:41	66
@@ -13,7 +13,7 @@
     ! This procedure reads the initial state of the atmosphere.
 
     use comconst, only: im, dtvr, jm, lllm
-    use comvert, only: pa
+    use disvert_m, only: pa
     use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d
     use dimens_m, only: iim, jjm, llm, nqmx
     use ener, only: etot0, ang0, ptot0, stot0, ztot0