<p><b>duda</b> 2012-08-28 11:45:11 -0600 (Tue, 28 Aug 2012)</p><p>Allow an optional MPI communicator to be supplied to the high-level mpas_framework_init() routine.<br>
<br>
<br>
M    src/framework/mpas_framework.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/mpas_framework.F
===================================================================
--- trunk/mpas/src/framework/mpas_framework.F        2012-08-27 19:29:46 UTC (rev 2129)
+++ trunk/mpas/src/framework/mpas_framework.F        2012-08-28 17:45:11 UTC (rev 2130)
@@ -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>