<p><b>laura@ucar.edu</b> 2012-01-03 15:55:07 -0700 (Tue, 03 Jan 2012)</p><p>uncommented out the ininitialization of num_seaice_change<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_physics_initialize_real.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_initialize_real.F        2012-01-03 22:28:30 UTC (rev 1285)
+++ branches/atmos_physics/src/core_physics/module_physics_initialize_real.F        2012-01-03 22:55:07 UTC (rev 1286)
@@ -606,7 +606,7 @@
  endif
 
 !make sure that all the cells flagged as sea-ice cells are defined as ocean cells:
-!num_seaice_changes = 0
+ num_seaice_changes = 0
  do iCell = 1, nCellsSolve
     if((landmask(iCell).eq.1 .and. xice(iCell).gt.0.) .or. xice(iCell).gt.200.) then
        num_seaice_changes = num_seaice_changes + 1

</font>
</pre>