<p><b>duda</b> 2011-04-28 15:37:30 -0600 (Thu, 28 Apr 2011)</p><p>BRANCH COMMIT<br>
<br>
For real-data initialization, allocate hs and hs1 with a garbage cell<br>
so that implicit array operations will work correctly, for example, when<br>
combining a registry-allocated field with hs.<br>
<br>
<br>
M src/core_init_nhyd_atmos/module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F        2011-04-28 17:04:58 UTC (rev 806)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/module_test_cases.F        2011-04-28 21:37:30 UTC (rev 807)
@@ -2741,8 +2741,8 @@
!
! Vertical grid setup
!
- allocate(hs (grid%nCells))
- allocate(hs1(grid%nCells))
+ allocate(hs (grid%nCells+1))
+ allocate(hs1(grid%nCells+1))
! Fourth order smoother for terrain
@@ -3512,7 +3512,7 @@
call read_met_init('SEAICE_FRACTIONAL', .true., trim(config_init_date), istatus)
if (istatus /= 0) then
- write(0,*) 'Error reading initial met data'
+ write(0,*) 'Error reading SEAICE_FRACTIONAL data'
return
end if
</font>
</pre>