--- trunk/libf/dyn3d/adaptdt.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/adaptdt.f	2013/11/15 18:45:49	76
@@ -7,13 +7,12 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
+      use conf_gcm_m
       use conf_gcm_m
-      use logic
       use comgeom
       use temps
       use ener
-            use comdissip
       IMPLICIT NONE
 
 
@@ -22,7 +21,7 @@
 c----------------------------------------------------------
       INTEGER n,nadv
       REAL dtbon 
-      REAL pbaru(iip1,jjp1,llm)
+      REAL, intent(in):: pbaru(iip1,jjp1,llm)
       REAL masse(iip1,jjp1,llm)
 c----------------------------------------------------------    
 c     Local