Changeset 1309


Ignore:
Timestamp:
2009-02-16T15:12:54+01:00 (12 years ago)
Author:
smasson
Message:

set origin of outputs calendar to the beginning of the experiment, see ticket:335

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r1146 r1309  
    160160 
    161161         ! Compute julian date from starting date of the run 
    162          CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     162         CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     163         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    163164         IF(lwp)WRITE(numout,*) 
    164165         IF(lwp)WRITE(numout,*) 'Date 0 used :', nit000, ' YEAR ', nyear,   & 
Note: See TracChangeset for help on using the changeset viewer.