New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1309 for trunk/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2009-02-16T15:12:54+01:00 (15 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.