diff --git a/obl_init.f90 b/obl_init.f90
index 4dc16d9f1ea0eca704854b3c266801e5a30a9186..8dbc9e0b4bd6adb8d008d631a29ee8e3539965e3 100644
--- a/obl_init.f90
+++ b/obl_init.f90
@@ -1,3 +1,5 @@
+#include "obl_def.fi"
+
 module obl_init
     !< @brief initial conditions module
     ! --------------------------------------------------------------------------------
@@ -120,6 +122,8 @@ module obl_init
     subroutine set_config_profile(F, tag, grid, ierr)
         !< @brief set constant profile
         ! ----------------------------------------------------------------------------
+        use obl_common, only : char_array2str
+        
         type (gridDataType), intent(in) :: grid
 
         real, dimension(grid%cz), intent(out) :: F 
diff --git a/obl_main.f90 b/obl_main.f90
index 2ea67f9e595dbe3eb49ae544395655fc80a22036..8c11027db62d76a4b683a4b0c50a5633a05d0204 100644
--- a/obl_main.f90
+++ b/obl_main.f90
@@ -184,6 +184,7 @@ program obl_main
     ! ---------------------------------------------------------------------------- 
     call set_grid(grid, obl_setup, ierr)
     if (ierr /= 0) then
+        write(*, *) ' FAILURE! > unable to set grid '
         return
     endif 
 
@@ -195,6 +196,7 @@ program obl_main
     ! ----------------------------------------------------------------------------  
     call set_time(time_begin, time_end, dt, obl_setup, ierr)
     if (ierr /= 0) then
+        write(*, *) ' FAILURE! > unable to set time '
         return
     endif 
     time_current = time_begin
@@ -215,6 +217,7 @@ program obl_main
     ! ----------------------------------------------------------------------------
     call set_phys(obl_setup, ierr)
     if (ierr /= 0) then
+        write(*, *) ' FAILURE! > unable to set phys parameters '
         return
     endif 
     ! ----------------------------------------------------------------------------
@@ -223,6 +226,7 @@ program obl_main
     ! ---------------------------------------------------------------------------- 
     call set_forcing(obl_setup, ierr)
     if (ierr /= 0) then
+        write(*, *) ' FAILURE! > unable to set forcing '
         return
     endif 
     ! ----------------------------------------------------------------------------
@@ -231,6 +235,7 @@ program obl_main
     ! ---------------------------------------------------------------------------- 
     call set_initial_conditions(grid, obl_setup, ierr)
     if (ierr /= 0) then
+        write(*, *) ' FAILURE! > unable to set initial conditions '
         return
     endif