<p><b>xylar@lanl.gov</b> 2012-03-02 11:18:25 -0700 (Fri, 02 Mar 2012)</p><p>BRANCH COMMIT<br>
<br>
Fixed a bug where the &quot;err&quot; flag wasn't assigned a value<br>
</p><hr noshade><pre><font color="gray">Modified: branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_mpas_core.F
===================================================================
--- branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_mpas_core.F        2012-03-02 17:19:37 UTC (rev 1577)
+++ branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_mpas_core.F        2012-03-02 18:18:25 UTC (rev 1578)
@@ -31,7 +31,9 @@
 
       integer :: err
 
+      err = 0
 
+
       if (.not. config_do_restart) call setup_land_ice_test_case(domain)
 
       !
@@ -131,6 +133,8 @@
       type (dm_info) :: dminfo
       integer :: err, err_tmp
 
+      err = 0
+
       call land_ice_compute_solve_diagnostics(dt, block % state % time_levs(1) % state, mesh)
       call compute_mesh_scaling(mesh) 
 
@@ -148,6 +152,7 @@
       err = ior(err, err_tmp)
 
       if(err == 1) then
+          print *, &quot;An error has occurred in mpas_init_block. Aborting...&quot;
           call mpas_dmpar_abort(dminfo)
       endif
 

</font>
</pre>