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