Changeset 1826


Ignore:
Timestamp:
2010-04-06T12:39:38+02:00 (11 years ago)
Author:
rblod
Message:

fldread for interannual, see ticket #653

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/fldread.F90

    r1818 r1826  
    184184                        &                    nday   + 1                   - nmonth_len(nmonth) * COUNT((/llnxtmth/)), llstop ) 
    185185 
    186                      IF( sd(jf)%num == 0 .AND. .NOT. llstop ) THEN    ! next year file does not exist 
     186                     IF( sd(jf)%num <= 0 .AND. .NOT. llstop ) THEN    ! next year file does not exist 
    187187                        CALL ctl_warn('next year/month/day file: '//TRIM(sd(jf)%clname)//     & 
    188188                                &     ' not present -> back to current year/month/day') 
Note: See TracChangeset for help on using the changeset viewer.