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