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

@@ -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