<p><b>dwj07@fsu.edu</b> 2011-09-30 17:01:16 -0600 (Fri, 30 Sep 2011)</p><p><br>
        Needed to add some primitive error handling, so that mpas-ocean will fail if incorrect options are given.<br>
<br>
        At a later time this can be extended into having an error handling module in framework.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2011-09-30 22:38:16 UTC (rev 1050)
+++ trunk/mpas/src/core_ocean/mpas_ocn_mpas_core.F        2011-09-30 23:01:16 UTC (rev 1051)
@@ -50,25 +50,40 @@
       type (block_type), pointer :: block
       type (dm_info) :: dminfo
 
-      integer :: err
+      integer :: err, err_tmp
 
       ! Initialize submodules before initializing blocks.
       call ocn_timestep_init(err)
 
-      call ocn_vel_pressure_grad_init(err)
-      call ocn_vel_vadv_init(err)
-      call ocn_vel_hmix_init(err)
-      call ocn_vel_forcing_init(err)
+      call ocn_vel_pressure_grad_init(err_tmp)
+      err = err .or. err_tmp
 
-      call ocn_tracer_hadv_init(err)
-      call ocn_tracer_vadv_init(err)
-      call ocn_tracer_hmix_init(err)
-      call ocn_restoring_init(err)
+      call ocn_vel_vadv_init(err_tmp)
+      err = err .or. err_tmp
+      call ocn_vel_hmix_init(err_tmp)
+      err = err .or. err_tmp
+      call ocn_vel_forcing_init(err_tmp)
+      err = err .or. err_tmp
 
-      call ocn_vmix_init(err)
+      call ocn_tracer_hadv_init(err_tmp)
+      err = err .or. err_tmp
+      call ocn_tracer_vadv_init(err_tmp)
+      err = err .or. err_tmp
+      call ocn_tracer_hmix_init(err_tmp)
+      err = err .or. err_tmp
+      call ocn_restoring_init(err_tmp)
+      err = err .or. err_tmp
 
-      call ocn_equation_of_state_init(err)
+      call ocn_vmix_init(err_tmp)
+      err = err .or. err_tmp
 
+      call ocn_equation_of_state_init(err_tmp)
+      err = err .or. err_tmp
+
+      if(err) then
+          call dmpar_abort(dminfo)
+      endif
+
       if (.not. config_do_restart) call setup_sw_test_case(domain)
 
       call compute_maxLevel(domain)

Modified: trunk/mpas/src/core_ocean/mpas_ocn_time_integration.F
===================================================================
--- trunk/mpas/src/core_ocean/mpas_ocn_time_integration.F        2011-09-30 22:38:16 UTC (rev 1050)
+++ trunk/mpas/src/core_ocean/mpas_ocn_time_integration.F        2011-09-30 23:01:16 UTC (rev 1051)
@@ -112,6 +112,8 @@
 
       integer, intent(out) :: err
 
+      err = 0
+
       rk4On = .false.
       splitOn = .false.
 

</font>
</pre>