<p><b>duda</b> 2009-10-19 11:43:37 -0600 (Mon, 19 Oct 2009)</p><p>Fix typo (copy-paste error?) in a couple of dmpar routines <br>
that were preventing the code from being compiled serially <br>
with some compilers.<br>
<br>
M    swmodel/src/module_dmpar.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/src/module_dmpar.F
===================================================================
--- trunk/swmodel/src/module_dmpar.F        2009-10-03 06:06:44 UTC (rev 57)
+++ trunk/swmodel/src/module_dmpar.F        2009-10-19 17:43:37 UTC (rev 58)
@@ -550,7 +550,7 @@
          write(0,*) 'Error in dmpar_alltoall_field: For non-dmpar, arrayIn and arrayOut dims must match.'
          call dmpar_abort(dminfo)
       else
-         arrayOut(:,:) = arrayIn(:,:)
+         arrayOut(:) = arrayIn(:)
       end if
 #endif
 
@@ -731,7 +731,7 @@
          write(0,*) 'Error in dmpar_alltoall_field: For non-dmpar, arrayIn and arrayOut dims must match.'
          call dmpar_abort(dminfo)
       else
-         arrayOut(:,:) = arrayIn(:,:)
+         arrayOut(:) = arrayIn(:)
       end if
 #endif
 

</font>
</pre>