<p><b>duda</b> 2010-07-23 14:36:47 -0600 (Fri, 23 Jul 2010)</p><p>BRANCH COMMIT<br>
<br>
Initialize w and rw to 0 in the baroclinic wave test case setup.<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        2010-07-23 20:36:08 UTC (rev 396)
+++ branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F        2010-07-23 20:36:47 UTC (rev 397)
@@ -597,6 +597,15 @@
end do
!
+ ! CALCULATION OF OMEGA, RW = ZX * RU + ZZ * RW
+ !
+ ! we are assuming w and rw are zero for this initialization
+ ! i.e., no terrain
+ !
+ grid % rw % array = 0.
+ state % w % array = 0.
+
+ !
! Compute mass fluxes tangential to each edge (i.e., through the faces of dual grid cells)
!
state % v % array(:,:) = 0.0
</font>
</pre>