From 7aefe1b6aa2d02b3ba6e737a3ac368bb2c5158b3 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 29 Jun 2021 11:25:40 +0200
Subject: [PATCH] Polish
---
Overlap/eddy_graph.f90 | 3 ++-
Overlap/get_snapshot.f90 | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/Overlap/eddy_graph.f90 b/Overlap/eddy_graph.f90
index 49c29c78..c9b5e849 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 a5a737a9..dd905cd5 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
--
GitLab