--- trunk/Sources/dyn3d/test_disvert.f	2015/09/29 19:48:59	171
+++ trunk/dyn3d/test_disvert.f	2018/03/20 09:35:59	265
@@ -17,7 +17,7 @@
     use abort_gcm_m, only: abort_gcm
     use comconst, only: kappa, cpp
     use disvert_m, only: ap, bp, preff, presnivs, s
-    use dimens_m, only: llm
+    use dimensions, only: llm
     use exner_hyb_m, only: exner_hyb
     use jumble, only: new_unit
 
@@ -90,7 +90,7 @@
        call abort_gcm("test_disvert", "bad order of pressure values")
     end if
 
-1000 format (3(a, g10.4, a, i0))
+1000 format (3(a, g11.4, a, i0))
 
   end subroutine test_disvert