Changeset 7688


Ignore:
Timestamp:
2017-02-16T18:10:19+01:00 (4 years ago)
Author:
anaguiar
Message:

Reverting earlier changes that were a mistake. The interpolation to the middle of the timestep is a very deliberate choice based on Leclair and Madec (2009) - davestorkey

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r5615 r7688  
    117117 
    118118      ! number of seconds since the beginning of current year/month/week/day at the middle of the time-step 
    119       nsec_year  = nday_year * nsecd - ndt   ! 1 time step before the middle of the first time step 
    120       nsec_month = nday      * nsecd - ndt   ! because day will be called at the beginning of step 
    121       nsec_week  = idweek    * nsecd - ndt 
    122       nsec_day   =             nsecd - ndt 
     119      nsec_year  = nday_year * nsecd - ndt05   ! 1 time step before the middle of the first time step 
     120      nsec_month = nday      * nsecd - ndt05   ! because day will be called at the beginning of step 
     121      nsec_week  = idweek    * nsecd - ndt05 
     122      nsec_day   =             nsecd - ndt05 
    123123 
    124124      ! control print 
     
    223223      IF( ABS(adatrj  - REAL(NINT(adatrj ),wp)) < zprec )   adatrj  = REAL(NINT(adatrj ),wp)   ! avoid truncation error 
    224224 
    225       IF( nsec_day >= nsecd ) THEN                       ! New day 
     225      IF( nsec_day > nsecd ) THEN                       ! New day 
    226226         ! 
    227227         nday      = nday + 1 
Note: See TracChangeset for help on using the changeset viewer.