Changeset 5613 for branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

Timestamp:

2015-07-20T11:12:03+02:00 (9 years ago)

Author:

cguiavarch

Message:

Add local changes for FOAM

File:

• branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -117 +117 @@
 
       ! number of seconds since the beginning of current year/month/week/day at the middle of the time-step
-      nsec_year  = nday_year * nsecd - ndt05   ! 1 time step before the middle of the first time step
-      nsec_month = nday      * nsecd - ndt05   ! because day will be called at the beginning of step
-      nsec_week  = idweek    * nsecd - ndt05
-      nsec_day   =             nsecd - ndt05
+      nsec_year  = nday_year * nsecd - ndt   ! 1 time step before the middle of the first time step
+      nsec_month = nday      * nsecd - ndt   ! because day will be called at the beginning of step
+      nsec_week  = idweek    * nsecd - ndt
+      nsec_day   =             nsecd - ndt
 
       ! control print
@@ -223 +223 @@
       IF( ABS(adatrj  - REAL(NINT(adatrj ),wp)) < zprec )   adatrj  = REAL(NINT(adatrj ),wp)   ! avoid truncation error
 
-      IF( nsec_day > nsecd ) THEN                       ! New day
+      IF( nsec_day >= nsecd ) THEN                       ! New day
          !
          nday      = nday + 1