Changeset 2700


Ignore:
Timestamp:
2011-03-22T11:58:45+01:00 (10 years ago)
Author:
smasson
Message:

bugfix for fldread in v3_2_2, see ticket#810

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tags/nemo_v3_2_2/NEMO/OPA_SRC/SBC/fldread.F90

    r2323 r2700  
    133133      ! 
    134134      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 step 
    136135      ! 
    137136      !                                         ! ===================== ! 
    138137      DO jf = 1, imf                            !    LOOP OVER FIELD    ! 
    139138         !                                      ! ===================== ! 
     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))    
    140142         ! 
    141143         IF( kt == nit000 )   CALL fld_init( kn_fsbc, sd(jf) ) 
     
    264266         ENDIF 
    265267      END DO 
     268       
     269      isecsbc = nsec_year + nsec1jan000 + NINT(0.5 * REAL(kn_fsbc - 1,wp) * rdttra(1))   ! used only for temporal interpolation  
    266270 
    267271      !                                         ! ===================== ! 
Note: See TracChangeset for help on using the changeset viewer.