<p><b>dwj07@fsu.edu</b> 2010-03-18 14:34:08 -0600 (Thu, 18 Mar 2010)</p><p><br>
        Fixed error in AA(theta) function regarding TC6.<br>
<br>
        2.0*(R*cos(theta))**2.0<br>
        changed to <br>
        2.0*R**2*cos(theta)**-2.0<br>
<br>
        Lines 553 and 554.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/module_test_cases.F
===================================================================
--- trunk/mpas/src/core_ocean/module_test_cases.F        2010-03-18 18:17:04 UTC (rev 146)
+++ trunk/mpas/src/core_ocean/module_test_cases.F        2010-03-18 20:34:08 UTC (rev 147)
@@ -551,7 +551,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*cos(theta)**-2.0)
 
    end function AA
 

</font>
</pre>