From 0ca3dd6098828325926afc778b206e8cfc3a41f5 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Fri, 24 Jul 2020 17:35:47 +0200
Subject: [PATCH] Polish
---
eddy_graph.f90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/eddy_graph.f90 b/eddy_graph.f90
index 2f376dc2..00c62a52 100644
--- a/eddy_graph.f90
+++ b/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
--
GitLab