--- trunk/Sources/dyn3d/test_disvert.f	2015/04/29 15:47:56	134
+++ trunk/Sources/dyn3d/test_disvert.f	2015/09/29 19:48:59	171
@@ -87,7 +87,7 @@
              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))