<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>