- Timestamp:
- 2011-03-22T11:58:45+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
tags/nemo_v3_2_2/NEMO/OPA_SRC/SBC/fldread.F90
r2323 r2700 133 133 ! 134 134 imf = SIZE( sd ) 135 isecsbc = nsec_year + nsec1jan000 + NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1)) ! centrered in the middle of sbc time step136 135 ! 137 136 ! ! ===================== ! 138 137 DO jf = 1, imf ! LOOP OVER FIELD ! 139 138 ! ! ===================== ! 139 ! 140 ! centrered in the middle of sbc time step if doing time interpolation 141 isecsbc = nsec_year + nsec1jan000 + COUNT((/ sd(jf)%ln_tint /)) * NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1)) 140 142 ! 141 143 IF( kt == nit000 ) CALL fld_init( kn_fsbc, sd(jf) ) … … 264 266 ENDIF 265 267 END DO 268 269 isecsbc = nsec_year + nsec1jan000 + NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1)) ! used only for temporal interpolation 266 270 267 271 ! ! ===================== !
Note: See TracChangeset
for help on using the changeset viewer.