<p><b>dwj07@fsu.edu</b> 2012-06-01 13:09:43 -0600 (Fri, 01 Jun 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Changing how init_io is called.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/multiple_blocks/src/framework/mpas_io_input.F
===================================================================
--- branches/omp_blocks/multiple_blocks/src/framework/mpas_io_input.F        2012-06-01 18:14:49 UTC (rev 1952)
+++ branches/omp_blocks/multiple_blocks/src/framework/mpas_io_input.F        2012-06-01 19:09:43 UTC (rev 1953)
@@ -299,10 +299,10 @@
! write(6,*) 'initializing input object'
block_ptr => domain % blocklist
-! do while(associated(block_ptr))
+ do while(associated(block_ptr))
call mpas_io_input_init(input_obj, block_ptr, domain % dminfo)
-! block_ptr => block_ptr % next
-! end do
+ block_ptr => block_ptr % next
+ end do
write(6,*) 'getting file attributes'
call MPAS_readStreamAtt(input_obj % io_stream, 'sphere_radius', r_sphere_radius, ierr)
</font>
</pre>