Polish

eddy_graph.f90

@@ -94,8 +94,10 @@ program eddy_graph
      call read_column(ishape_last, &
           file = trim(shp_tr_dir) // "/ishape_last.txt", last = n_dates)
      n_dates = size(ishape_last)
-     call assert(n_dates >= max_delta + 1, "eddy_graph n_dates")
-     call assert(n_proc <= n_dates / (max_delta + 1), "eddy_graph n_proc")
+     call assert(n_dates >= max_delta + 1, &
+          "eddy_graph: n_dates should be >= max_delta + 1")
+     call assert(n_proc <= n_dates / (max_delta + 1), &
+          "eddy_graph: n_proc should be <= n_dates / (max_delta + 1)")
      corner = corner_deg * deg_to_rad
      step = step_deg * deg_to_rad
   end if