--- trunk/dyn3d/test_disvert.f	2014/12/04 16:35:03	116
+++ trunk/Sources/dyn3d/test_disvert.f	2016/02/05 16:02:34	175
@@ -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