Changeset 4813


Ignore:
Timestamp:
2014-10-10T15:16:27+02:00 (7 years ago)
Author:
djlea
Message:

Attempted fix to reading in restart start day.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO7_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r4811 r4813  
    343343            adatrj = ( REAL( nit000-1, wp ) * rdttra(1) ) / rday 
    344344         ENDIF 
     345         IF( nn_time0 == 0 )  ndastp=ndastp-1      ! Start hour is specified in the namelist (default 0) 
    345346         IF( ABS(adatrj  - REAL(NINT(adatrj),wp)) < 0.1 / rday )   adatrj = REAL(NINT(adatrj),wp)   ! avoid truncation error 
    346347         ! 
Note: See TracChangeset for help on using the changeset viewer.