Add message to suggest creation of directory

Inst_eddies/inst_eddies.f90

@@ -4,6 +4,7 @@ program inst_eddies
 
   use, intrinsic:: ieee_arithmetic, only: IEEE_SUPPORT_DATATYPE, &
        ieee_support_nan
+  use, intrinsic:: ISO_FORTRAN_ENV
 
   ! Libraries:
   use contour_531, only: convert_to_ind
@@ -27,6 +28,7 @@ program inst_eddies
   type(snapshot) s
   TYPE(shpc_slice_handler) hshpc_cyclo, hshpc_anti
   integer i, iostat
+  character(len = 200) iomsg
   integer unit
 
   integer nlon, nlat
@@ -80,7 +82,15 @@ program inst_eddies
      open(unit, file = timings_fname, STATUS = "old", ACTION = "WRITE", &
           position = "append")
   else
-     OPEN(unit, file = timings_fname, STATUS = "new", ACTION = "WRITE")
+     OPEN(unit, file = timings_fname, STATUS = "new", ACTION = "WRITE", &
+          iostat = iostat, iomsg = iomsg)
+
+     if (iostat /= 0) then
+        write(ERROR_UNIT, fmt = "(a, i0, a)") "Is the directory SHPC/Slice_", &
+             slice, " created?"
+        write(ERROR_UNIT, fmt = *) trim(iomsg)
+        stop 1
+     end if
   end if
 
   call config