<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 => io_system
else
!write(0,*) 'MGD PIO_init'
+ allocate(pio_iosystem)
call PIO_init(local_dminfo % my_proc_id, & ! comp_rank
local_dminfo % comm, & ! comp_comm
io_task_count, & ! 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>