Changeset 1817


Ignore:
Timestamp:
2010-03-25T12:53:00+01:00 (11 years ago)
Author:
rblod
Message:

Correct pathologic case in fld_init, see ticket #653

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tags/nemo_v3_2/NEMO/OPA_SRC/SBC/fldread.F90

    r1730 r1817  
    368368          
    369369         ! if previous year/month/day file does not exist, we switch to the current year/month/day 
    370          IF( llprev .AND. sdjf%num == 0 ) THEN 
     370         IF( llprev .AND. sdjf%num <= 0 ) THEN 
    371371            CALL ctl_warn( 'previous year/month/day file: '//TRIM(sdjf%clname)//' not present -> back to current year/month/day') 
    372372            ! we force to read the first record of the current year/month/day instead of last record of previous year/month/day 
Note: See TracChangeset for help on using the changeset viewer.