<p><b>duda</b> 2011-06-10 11:15:11 -0600 (Fri, 10 Jun 2011)</p><p>BRANCH COMMIT<br>
<br>
Change bcast of 'pitop' to 'ptop' to get correct rho field when <br>
initializing the squall-line or super-cell test cases in parallel.<br>
<br>
<br>
M src/core_nhyd_atmos/module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F
===================================================================
--- branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F        2011-06-10 17:00:45 UTC (rev 894)
+++ branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F        2011-06-10 17:15:11 UTC (rev 895)
@@ -1381,7 +1381,7 @@
ptop = p0*pitop**(1./rcp)
write(0,*) 'ptop = ',.01*ptop, .01*ptopb
- call dmpar_bcast_real(dminfo, pitop)
+ call dmpar_bcast_real(dminfo, ptop)
do i = 1, grid % nCells
</font>
</pre>