<p><b>duda</b> 2010-03-26 14:17:49 -0600 (Fri, 26 Mar 2010)</p><p>Correct error in the specification of the A term in<br>
equations for Rossby-Haurwitz wave (SWTC6).<br>
<br>
 ...  - 2.0*(R*cos(theta))**2.0)<br>
<br>
should be<br>
<br>
 ...  - 2.0*R**2.0 * cos(theta)**-2.0)<br>
<br>
<br>
M    src/core_sw/module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_sw/module_test_cases.F
===================================================================
--- trunk/mpas/src/core_sw/module_test_cases.F        2010-03-26 20:13:35 UTC (rev 167)
+++ trunk/mpas/src/core_sw/module_test_cases.F        2010-03-26 20:17:49 UTC (rev 168)
@@ -508,7 +508,7 @@
       real (kind=RKIND), intent(in) :: theta
 
       AA = 0.5 * w * (2.0 * omega + w) * cos(theta)**2.0 + &amp;
-          0.25 * K**2.0 * cos(theta)**(2.0*R) * ((R+1.0)*cos(theta)**2.0 + 2.0*R**2.0 - R - 2.0 - 2.0*(R*cos(theta))**2.0)
+          0.25 * K**2.0 * cos(theta)**(2.0*R) * ((R+1.0)*cos(theta)**2.0 + 2.0*R**2.0 - R - 2.0 - 2.0*R**2.0 * cos(theta)**-2.0)
 
    end function AA
 

</font>
</pre>