/[lmdze]/trunk/dyn3d/test_disvert.f
ViewVC logotype

Diff of /trunk/dyn3d/test_disvert.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/dyn3d/test_disvert.f revision 116 by guez, Thu Dec 4 16:35:03 2014 UTC trunk/Sources/dyn3d/test_disvert.f revision 175 by guez, Fri Feb 5 16:02:34 2016 UTC
# Line 87  contains Line 87  contains
87               end if               end if
88            end do            end do
89         end do         end do
90         call abort_gcm("test_disvert", "bad order of pressure values", 1)         call abort_gcm("test_disvert", "bad order of pressure values")
91      end if      end if
92    
93  1000 format (3(a, g10.4, a, i0))  1000 format (3(a, g11.4, a, i0))
94    
95    end subroutine test_disvert    end subroutine test_disvert
96    
Legend:
Removed from v.116  
changed lines
  Added in v.175
  ViewVC Help
Powered by ViewVC 1.1.21