Skip to content
Snippets Groups Projects
Commit 0badcf01 authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Bug fix: require continuity of dates across slices

The algorithm of `eddy_graph` assumes that the set of dates it
processes is evenly spaced.
parent 4e81c4c1
No related branches found
No related tags found
No related merge requests found
......@@ -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, &
......
#!/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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment