Changeset 1219

Timestamp:

2008-10-28T11:13:34+01:00 (16 years ago)

Author:

smasson

Message:

bugfix in fldread when looking for the last record of previous year(month) file. WARNING: change the results, see ticket:277

File:

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

trunk/NEMO/OPA_SRC/SBC/fldread.F90

@@ -220 +220 @@
                IF( sdjf%cltype == 'monthly' ) THEN   ! monthly file
                   sdjf%rec_b(1) = 24. / sdjf%freqh * REAL( nmonth_len(nmonth-1), wp )   ! last record of previous month
-                  llprevmth = sdjf%ln_clim                                              ! use previous month file?
-                  llprevyr  = sdjf%ln_clim .AND. nmonth == 1                            ! use previous year  file?
+                  llprevmth = .NOT. sdjf%ln_clim                                        ! use previous month file?
+                  llprevyr  = .NOT. sdjf%ln_clim .AND. nmonth == 1                      ! use previous year  file?
                ELSE                                  ! yearly file
                   sdjf%rec_b(1) = 24. / sdjf%freqh * REAL( nyear_len(0), wp )           ! last record of year month
-                  llprevyr = sdjf%ln_clim                                               ! use previous year  file?
+                  llprevyr  = .NOT. sdjf%ln_clim                                        ! use previous year  file?
                ENDIF
             ENDIF