<p><b>duda</b> 2011-06-10 11:00:45 -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_physics/src/core_nhyd_atmos/module_test_cases.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_test_cases.F        2011-06-10 13:09:06 UTC (rev 893)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_test_cases.F        2011-06-10 17:00:45 UTC (rev 894)
@@ -1395,7 +1395,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>