diff --git a/couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f b/couplage/CARAIB/ver01_Iv_couplage/mod_open_file.f index 28488ce0f7e38d047f73e9609a52b953971ec718..f65f622b6207371d2a6e3772ac51fd147ae4d50e 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