Changeset 1817 for tags

Timestamp:

2010-03-25T12:53:00+01:00 (15 years ago)

Author:

rblod

Message:

Correct pathologic case in fld_init, see ticket #653

File:

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

tags/nemo_v3_2/NEMO/OPA_SRC/SBC/fldread.F90

@@ -368 +368 @@
          
          ! if previous year/month/day file does not exist, we switch to the current year/month/day
-         IF( llprev .AND. sdjf%num == 0 ) THEN
+         IF( llprev .AND. sdjf%num <= 0 ) THEN
             CALL ctl_warn( 'previous year/month/day file: '//TRIM(sdjf%clname)//' not present -> back to current year/month/day')
             ! we force to read the first record of the current year/month/day instead of last record of previous year/month/day