<p><b>duda</b> 2012-07-26 12:18:14 -0600 (Thu, 26 Jul 2012)</p><p>BRANCH COMMIT<br>
<br>
- Turn off curvature terms for DCMIP<br>
- Adjust value of c_s to 0.25<br>
<br>
<br>
M    src/core_nhyd_atmos/mpas_atm_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/dcmip/src/core_nhyd_atmos/mpas_atm_time_integration.F
===================================================================
--- branches/dcmip/src/core_nhyd_atmos/mpas_atm_time_integration.F        2012-07-26 18:16:47 UTC (rev 2061)
+++ branches/dcmip/src/core_nhyd_atmos/mpas_atm_time_integration.F        2012-07-26 18:18:14 UTC (rev 2062)
@@ -1859,13 +1859,12 @@
       logical, parameter :: debug = .false.
 
       !SHP-curvature
-      logical, parameter :: curvature = .true.
-      !real (kind=RKIND), parameter :: omega_e = 7.29212e-05*100.
+      logical, parameter :: curvature = .false.
       real (kind=RKIND) :: r_earth
       real (kind=RKIND), dimension(:,:), pointer :: ur_cell, vr_cell
 
-      real (kind=RKIND), parameter :: c_s = 0.125
-!     real (kind=RKIND), parameter :: c_s = 0.25
+!      real (kind=RKIND), parameter :: c_s = 0.125
+      real (kind=RKIND), parameter :: c_s = 0.25
       real (kind=RKIND), dimension( grid % nVertLevels ) :: d_diag, d_off_diag, flux_arr
       real (kind=RKIND), dimension(:,:), pointer :: defc_a, defc_b
       logical :: delsq_horiz_mixing, newpx

</font>
</pre>