<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 "err" 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 *, "An error has occurred in mpas_init_block. Aborting..."
call mpas_dmpar_abort(dminfo)
endif
</font>
</pre>