Changeset 3851 for trunk/NEMOGCM/NEMO/SAS_SRC
- Timestamp:
- 2013-03-27T11:03:54+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/SAS_SRC/daymod.F90
r3334 r3851 161 161 IF ( nleapy == 1 ) THEN ! we are using calandar with leap years 162 162 IF ( MOD(nyear-1, 4) == 0 .AND. ( MOD(nyear-1, 400) == 0 .OR. MOD(nyear-1, 100) /= 0 ) ) THEN 163 nyear_len(0) = 366164 ENDIF 165 IF ( MOD(nyear , 4) == 0 .AND. ( MOD(nyear, 400) == 0 .OR. MOD(nyear, 100) /= 0 ) ) THEN163 nyear_len(0) = 366 164 ENDIF 165 IF ( MOD(nyear , 4) == 0 .AND. ( MOD(nyear , 400) == 0 .OR. MOD(nyear , 100) /= 0 ) ) THEN 166 166 nmonth_len(2) = 29 167 nyear_len(1) = 366 167 nyear_len(1) = 366 168 ENDIF 169 IF ( MOD(nyear+1, 4) == 0 .AND. ( MOD(nyear+1, 400) == 0 .OR. MOD(nyear+1, 100) /= 0 ) ) THEN 170 nyear_len(2) = 366 168 171 ENDIF 169 172 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.