Changeset 1826 for trunk

Timestamp:

2010-04-06T12:39:38+02:00 (14 years ago)

Author:

rblod

Message:

fldread for interannual, see ticket #653

File:

• trunk/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/fldread.F90

@@ -184 +184 @@
                         &                    nday   + 1                   - nmonth_len(nmonth) * COUNT((/llnxtmth/)), llstop )
 
-                     IF( sd(jf)%num == 0 .AND. .NOT. llstop ) THEN    ! next year file does not exist
+                     IF( sd(jf)%num <= 0 .AND. .NOT. llstop ) THEN    ! next year file does not exist
                         CALL ctl_warn('next year/month/day file: '//TRIM(sd(jf)%clname)//     &
                                 &     ' not present -> back to current year/month/day')