Changeset 2700

Timestamp:

2011-03-22T11:58:45+01:00 (13 years ago)

Author:

smasson

Message:

bugfix for fldread in v3_2_2, see ticket#810

File:

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

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

@@ -133 +133 @@
       !
       imf = SIZE( sd )
-      isecsbc = nsec_year + nsec1jan000 + NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1))   ! centrered in the middle of sbc time step
       !
       !                                         ! ===================== !
       DO jf = 1, imf                            !    LOOP OVER FIELD    !
          !                                      ! ===================== !
+         !
+         ! centrered in the middle of sbc time step if doing time interpolation
+         isecsbc = nsec_year + nsec1jan000 + COUNT((/ sd(jf)%ln_tint /)) * NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1))   
          !
          IF( kt == nit000 )   CALL fld_init( kn_fsbc, sd(jf) )
@@ -264 +266 @@
          ENDIF
       END DO
+      
+      isecsbc = nsec_year + nsec1jan000 + NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1))   ! used only for temporal interpolation 
 
       !                                         ! ===================== !