Changeset 3851 for trunk/NEMOGCM/NEMO/SAS_SRC/daymod.F90

Timestamp:

2013-03-27T11:03:54+01:00 (11 years ago)

Author:

smasson

Message:

trunk: bugfix in fldread when nn_fsbc * rn_rdt > frcing file period, see #958

File:

• trunk/NEMOGCM/NEMO/SAS_SRC/daymod.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/SAS_SRC/daymod.F90

@@ -161 +161 @@
          IF ( nleapy == 1 ) THEN   ! we are using calandar with leap years
             IF ( MOD(nyear-1, 4) == 0 .AND. ( MOD(nyear-1, 400) == 0 .OR. MOD(nyear-1, 100) /= 0 ) ) THEN
-               nyear_len(0) = 366
-            ENDIF
-            IF ( MOD(nyear, 4) == 0 .AND. ( MOD(nyear, 400) == 0 .OR. MOD(nyear, 100) /= 0 ) ) THEN
+               nyear_len(0)  = 366
+            ENDIF
+            IF ( MOD(nyear  , 4) == 0 .AND. ( MOD(nyear  , 400) == 0 .OR. MOD(nyear  , 100) /= 0 ) ) THEN
                nmonth_len(2) = 29
-               nyear_len(1) = 366
+               nyear_len(1)  = 366
+            ENDIF
+            IF ( MOD(nyear+1, 4) == 0 .AND. ( MOD(nyear+1, 400) == 0 .OR. MOD(nyear+1, 100) /= 0 ) ) THEN
+               nyear_len(2)  = 366
             ENDIF
          ENDIF