[Dart-dev] [3767] DART/trunk/utilities/utilities_mod.f90: minor mod on tim' s warning message - only print out if line

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090206/19edbe63/attachment.html
-------------- next part --------------
Modified: DART/trunk/utilities/utilities_mod.f90
===================================================================
--- DART/trunk/utilities/utilities_mod.f90	2009-02-06 20:13:09 UTC (rev 3766)
+++ DART/trunk/utilities/utilities_mod.f90	2009-02-06 20:16:48 UTC (rev 3767)
@@ -1206,9 +1206,9 @@
 strlen = len(textblock)
 
 if ( ( mynlines /= size(textblock) ) .or. &
-     (mylinelen /=     strlen    ) ) then
+     (mylinelen >      strlen    ) ) then
    write(string,'(A, '' file shape is '',i6,'' by '',i4, &
-                       &'' ?truncating? to '',i6,'' by '',i4)') &
+                    &'' truncating to '',i6,'' by '',i4)') &
    trim(fname),mynlines,mylinelen,size(textblock),strlen
    call error_handler(E_MSG,'file_to_text', trim(string))
 endif