Changeset 1192 for trunk/NEMO/OPA_SRC/SBC
- Timestamp:
- 2008-09-18T10:34:40+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/fldread.F90
r1191 r1192 140 140 ! to the NEW year/month. If it is the case, we are at the beginning of the year/month when calling fld_rec 141 141 ! so sd(jf)%rec_a(1) = 1 142 IF( sd(jf)%rec_a(1) == 1 ) CALL fld_clopn( sd(jf), nyear, nmonth )142 IF( sd(jf)%rec_a(1) == 1 .AND. .NOT. sd(jf)%ln_clim ) CALL fld_clopn( sd(jf), nyear, nmonth ) 143 143 ENDIF 144 144 … … 301 301 irec = nmonth + INT( ztmp ) 302 302 303 IF( sdjf%ln_tint ) THEN ; sdjf%swap_sec = rmonth_half(irec) ! swap at the middle of the month304 ELSE ; sdjf%swap_sec = rmonth_end( irec) ! swap at the end of the month305 ENDIF 306 307 sdjf%rec_a(:) = (/ REAL( irec, wp ), rmonth_half(irec) /) ! define after record number and time303 IF( sdjf%ln_tint ) THEN ; sdjf%swap_sec = rmonth_half(irec) + sec1jan000 ! swap at the middle of the month 304 ELSE ; sdjf%swap_sec = rmonth_end( irec) + sec1jan000 ! swap at the end of the month 305 ENDIF 306 307 sdjf%rec_a(:) = (/ REAL( irec, wp ), rmonth_half(irec) + sec1jan000 /) ! define after record number and time 308 308 irec = irec - 1 ! move back to previous record 309 sdjf%rec_b(:) = (/ REAL( irec, wp ), rmonth_half(irec) /) ! define before record number and time309 sdjf%rec_b(:) = (/ REAL( irec, wp ), rmonth_half(irec) + sec1jan000 /) ! define before record number and time 310 310 ! 311 311 ELSE ! higher frequency mean (in hours)
Note: See TracChangeset
for help on using the changeset viewer.