<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 =&gt; 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 =&gt; block_ptr % next
-!     end do
+        block_ptr =&gt; 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>