--- trunk/dyn3d/test_disvert.f	2014/12/04 16:35:03	116
+++ 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
 
@@ -87,10 +87,10 @@
              end if
           end do
        end do
-       call abort_gcm("test_disvert", "bad order of pressure values", 1)
+       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