Changeset 68 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2004-04-22T14:16:32+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/daymod.F90
r15 r68 86 86 ! ! accumulates days of previous months of this year 87 87 DO js = 1, nmonth-1 88 IF( MOD( nyear, 4 ) == 0 ) THEN88 IF( nleapy == 1 .AND. MOD( nyear, 4 ) == 0 ) THEN 89 89 nday_year = nday_year + nbiss(js) 90 90 ELSE … … 140 140 ! ! accumulates days of previous months of this year 141 141 DO js = 1, nmonth-1 142 IF( MOD( nyear, 4 ) == 0 ) THEN142 IF( nleapy == 1 .AND. MOD( nyear, 4 ) == 0 ) THEN 143 143 nday_year = nday_year + nbiss(js) 144 144 ELSE
Note: See TracChangeset
for help on using the changeset viewer.