diff --git a/Overlap/eddy_graph.f90 b/Overlap/eddy_graph.f90 index 6345df26aca9c85b261bf76e2278f68620156a69..60b4747bdbe1d25eb63d03bf369c659b28177f5a 100644 --- a/Overlap/eddy_graph.f90 +++ b/Overlap/eddy_graph.f90 @@ -100,6 +100,9 @@ program eddy_graph if (rank == 0) then allocate(n_dates_slice(n_slices)) forall (i = 1:n_slices) n_dates_slice(i) = size(ssm(i)%ishape_last) + call assert(ediff1d(ssm%d0) == n_dates_slice, "eddy_graph: the first " & + // "date index of each slice should be one more than the last date " & + // "of the previous slice") if (n_dates == huge(0)) n_dates = sum(n_dates_slice) print *, "n_dates = ", n_dates call assert(n_dates >= max_delta + 1, & diff --git a/Overlap/eddy_graph.sh.in b/Overlap/eddy_graph.sh.in index f74a93d1e49de6f7ef059cdf9cd0624ef1cb5977..e2cf74ecf07bf10f7c152ce1ebac2f638450644f 100644 --- a/Overlap/eddy_graph.sh.in +++ b/Overlap/eddy_graph.sh.in @@ -1,9 +1,7 @@ #!/bin/bash # This script creates the edge list for a given orientation of -# eddies. The script takes an SHPC as argument. We assume (and do not -# check) that the first date index in a slice of the SHPC is greater -# than the last date index in the previous slice. +# eddies. The script takes an SHPC as argument. if (($# <= 1)) then