Changeset 4813

Timestamp:

2014-10-10T15:16:27+02:00 (10 years ago)

Author:

djlea

Message:

Attempted fix to reading in restart start day.

File:

• branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (1 diff)

branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -343 +343 @@
             adatrj = ( REAL( nit000-1, wp ) * rdttra(1) ) / rday
          ENDIF
+         IF( nn_time0 == 0 )  ndastp=ndastp-1      ! Start hour is specified in the namelist (default 0)
          IF( ABS(adatrj  - REAL(NINT(adatrj),wp)) < 0.1 / rday )   adatrj = REAL(NINT(adatrj),wp)   ! avoid truncation error
          !