<p><b>dwj07@fsu.edu</b> 2013-04-02 12:11:14 -0600 (Tue, 02 Apr 2013)</p><p><br>
        -- BRANCH COMMIT --<br>
        Clean up history attribute after reading it in.<br>
        Null characters are replaced with spaces.<br>
        New lines are replaced with semicolons.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/history_attribute/src/framework/mpas_io_input.F
===================================================================
--- branches/history_attribute/src/framework/mpas_io_input.F        2013-04-02 17:55:58 UTC (rev 2705)
+++ branches/history_attribute/src/framework/mpas_io_input.F        2013-04-02 18:11:14 UTC (rev 2706)
@@ -252,10 +252,17 @@
         write(0,*) 'Warning: Attribute History not found in '//trim(input_obj % filename)
         write(0,*) '   Setting History to '''''
         history = &quot;&quot;
+      else
+        ! Remove C String NULL characters, replace C String newlines with semicolons
+        do i = 1, len(history)
+          if(iachar(history(i:i)) == 0) then
+            history(i:i) = &quot; &quot;
+          else if(iachar(history(i:i)) == 10) then
+            history(i:i) = &quot;;&quot;
+          end if
+        end do
       end if
 
-      write(*,*) 'History == ', trim(history)
-
       block_ptr =&gt; domain % blocklist % next
       do while (associated(block_ptr))
         block_ptr % mesh % sphere_radius = domain % blocklist % mesh % sphere_radius

</font>
</pre>