Changeset 68

Timestamp:

2004-04-22T14:16:32+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX042 : Correction of the problem when using no-leap years option

File:

• trunk/NEMO/OPA_SRC/daymod.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/daymod.F90

@@ -86 +86 @@
          !                               ! accumulates days of previous months of this year
          DO js = 1, nmonth-1
-            IF( MOD( nyear, 4 ) == 0 ) THEN
+            IF( nleapy == 1 .AND. MOD( nyear, 4 ) == 0 ) THEN
                nday_year = nday_year + nbiss(js)
             ELSE
@@ -140 +140 @@
          !                                ! accumulates days of previous months of this year
          DO js = 1, nmonth-1
-            IF( MOD( nyear, 4 ) == 0 ) THEN
+            IF( nleapy == 1 .AND. MOD( nyear, 4 ) == 0 ) THEN
                nday_year = nday_year + nbiss(js)
             ELSE