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