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