Changeset 1826 for trunk/NEMO/OPA_SRC/SBC
- Timestamp:
- 2010-04-06T12:39:38+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/fldread.F90
r1818 r1826 184 184 & nday + 1 - nmonth_len(nmonth) * COUNT((/llnxtmth/)), llstop ) 185 185 186 IF( sd(jf)%num == 0 .AND. .NOT. llstop ) THEN ! next year file does not exist186 IF( sd(jf)%num <= 0 .AND. .NOT. llstop ) THEN ! next year file does not exist 187 187 CALL ctl_warn('next year/month/day file: '//TRIM(sd(jf)%clname)// & 188 188 & ' not present -> back to current year/month/day')
Note: See TracChangeset
for help on using the changeset viewer.