Changeset 1818 for trunk/NEMO/OPA_SRC/SBC

Timestamp:

2010-03-25T15:13:55+01:00 (14 years ago)

Author:

rblod

Message:

Do the fixes on the right place e.g. the trunk

File:

• trunk/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (2 diffs)

trunk/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
@@ -399 +399 @@
       ENDIF
 
-      IF( sdjf%num == 0 )   CALL fld_clopn( sdjf, nyear, nmonth, nday )   ! make sure current year/month/day file is opened
+      IF( sdjf%num <= 0 )   CALL fld_clopn( sdjf, nyear, nmonth, nday )   ! make sure current year/month/day file is opened
 
       sdjf%nswap_sec = nsec_year + nsec1jan000 - 1   ! force read/update the after data in the following part of fld_read