From bb84d21817f12814e8a740d2fc677a1fc35ea8c1 Mon Sep 17 00:00:00 2001
From: Thomas Dethinne <tdethinne@uliege.be>
Date: Wed, 2 Apr 2025 09:18:43 +0200
Subject: [PATCH] I had a problem with leap year is caraib yyyy was read
instead of MAR yyyy
---
couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f b/couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f
index 28488ce..f65f622 100644
--- a/couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f
+++ b/couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f
@@ -124,12 +124,12 @@ c calendar, otherwise myear can be set to any integer value
c nd = number of days in the current year
if (ileap.eq.1) then
- r100 = mod(myear,100)
+ r100 = mod(previous_year,100)
if (r100.eq.0) then
- icentury = myear/100
+ icentury = previous_year/100
r4 = mod(icentury,4)
else
- r4 = mod(myear,4)
+ r4 = mod(previous_year,4)
endif
if (r4.eq.0) then
nd = 366
--
GitLab