diff --git a/Overlap/eddy_graph.f90 b/Overlap/eddy_graph.f90 index 49c29c78dca8200a20d666aaf551d779c057c0a2..c9b5e8492f275a67475098d411ac850b16b1d3e0 100644 --- a/Overlap/eddy_graph.f90 +++ b/Overlap/eddy_graph.f90 @@ -24,7 +24,8 @@ program eddy_graph integer rank, n_proc, copy, delta, j integer:: n_dates = huge(0) ! number of dates to read - integer d_init, k_begin, k_end, k, k_end_main_loop + integer k ! date + integer d_init, k_begin, k_end, k_end_main_loop character(len = :), allocatable:: shpc_dir integer:: max_delta = 1 diff --git a/Overlap/get_snapshot.f90 b/Overlap/get_snapshot.f90 index a5a737a990f532993ec2f97fc65e95f254eef39d..dd905cd5273ff2bc5ff2aa7fc4b941292eab3a9f 100644 --- a/Overlap/get_snapshot.f90 +++ b/Overlap/get_snapshot.f90 @@ -26,7 +26,7 @@ contains TYPE(shpc), intent(in):: hshp integer, intent(in):: d_init - ! first date index in the collection of shapefiles + ! first date in the collection of shapefiles, in days since 1950-1-1 integer, intent(in):: k ! date index integer, intent(in):: k_end ! last date index analyzed by this MPI process