<p><b>duda</b> 2012-07-26 17:39:51 -0600 (Thu, 26 Jul 2012)</p><p>BRANCH COMMIT<br>
<br>
- Fix bug in disabling of inversion layer for 2-0-0.<br>
- Turn of coordinate surface smoothing and hybrid coordinate for 2-0-X.<br>
<br>
<br>
M src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/dcmip/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F
===================================================================
--- branches/dcmip/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F        2012-07-26 22:49:55 UTC (rev 2066)
+++ branches/dcmip/src/core_init_nhyd_atmos/mpas_init_atm_test_cases.F        2012-07-26 23:39:51 UTC (rev 2067)
@@ -5383,8 +5383,8 @@
integer, dimension(grid % nCells, 2) :: next_cell
real (kind=RKIND), dimension(grid % nCells) :: pitop, ptopb
-! logical, parameter :: terrain_smooth = .false. , hybrid = .false.
- logical, parameter :: terrain_smooth = .true. , hybrid = .true.
+ logical, parameter :: terrain_smooth = .false. , hybrid = .false.
+! logical, parameter :: terrain_smooth = .true. , hybrid = .true.
!
! Scale all distances
@@ -5735,7 +5735,7 @@
! MGD BEGIN 2-0-0
if (trim(config_dcmip_case) == '2-0-0') then
-! zinb = zt
+ zinb = zt ! no inversion layer
zint = zt ! no inversion layer
end if
! MGD END 2-0-0
</font>
</pre>