<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 = ""
+ 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) = " "
+ else if(iachar(history(i:i)) == 10) then
+ history(i:i) = ";"
+ end if
+ end do
end if
- write(*,*) 'History == ', trim(history)
-
block_ptr => domain % blocklist % next
do while (associated(block_ptr))
block_ptr % mesh % sphere_radius = domain % blocklist % mesh % sphere_radius
</font>
</pre>