<p><b>duda</b> 2012-06-05 11:43:39 -0600 (Tue, 05 Jun 2012)</p><p>BRANCH COMMIT<br>
<br>
Allow an optional MPI communicator to be provided to the mpas_framework_init() routine.<br>
<br>
M    src/framework/mpas_framework.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/cam_mpas_nh/src/framework/mpas_framework.F
===================================================================
--- branches/cam_mpas_nh/src/framework/mpas_framework.F        2012-06-05 13:18:58 UTC (rev 1959)
+++ branches/cam_mpas_nh/src/framework/mpas_framework.F        2012-06-05 17:43:39 UTC (rev 1960)
@@ -13,18 +13,19 @@
    contains
 
    
-   subroutine mpas_framework_init(dminfo, domain)
+   subroutine mpas_framework_init(dminfo, domain, mpi_comm)
 
       implicit none
 
       type (dm_info), pointer :: dminfo
       type (domain_type), pointer :: domain
+      integer, intent(in), optional :: mpi_comm
 
       integer :: pio_num_iotasks
       integer :: pio_stride
 
       allocate(dminfo)
-      call mpas_dmpar_init(dminfo)
+      call mpas_dmpar_init(dminfo, mpi_comm)
 
       call mpas_read_namelist(dminfo)
 

</font>
</pre>