<p><b>dwj07@fsu.edu</b> 2012-11-30 20:49:20 -0700 (Fri, 30 Nov 2012)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Adding allocate and deallocate to pio subsystem.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/cesm_coupling/src/framework/mpas_io.F
===================================================================
--- branches/ocean_projects/cesm_coupling/src/framework/mpas_io.F        2012-12-01 03:31:30 UTC (rev 2333)
+++ branches/ocean_projects/cesm_coupling/src/framework/mpas_io.F        2012-12-01 03:49:20 UTC (rev 2334)
@@ -202,6 +202,7 @@
         pio_iosystem =&gt; io_system
       else
 !write(0,*) 'MGD PIO_init'
+        allocate(pio_iosystem)
         call PIO_init(local_dminfo % my_proc_id, &amp;     ! comp_rank
                       local_dminfo % comm,       &amp;     ! comp_comm
                       io_task_count,             &amp;     ! num_iotasks
@@ -3420,6 +3421,7 @@
            if (present(ierr)) ierr = MPAS_IO_ERR_PIO
            return
         end if
+        deallocate(pio_iosystem)
       end if
 
    end subroutine MPAS_io_finalize

</font>
</pre>