<p><b>duda</b> 2010-07-19 16:40:45 -0600 (Mon, 19 Jul 2010)</p><p>BRANCH COMMIT<br>
<br>
Make scalars point to state % scalars % array before setting scalars(:,:,:) = 0.<br>
in JW test case setup.<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-19 18:16:23 UTC (rev 382)
+++ branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_test_cases.F        2010-07-19 22:40:45 UTC (rev 383)
@@ -184,6 +184,7 @@
       t =&gt; state % theta % array      
       rt =&gt; grid % rtheta_p % array
 
+      scalars =&gt; state % scalars % array
 
       scalars(:,:,:) = 0.
 

</font>
</pre>