fixing initial conditions setup

obl_init.f90

+#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 

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