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 1310 for trunk/NEMO/OPA_SRC/DIA/diaptr.F90 – NEMO

Ignore:
Timestamp:
2009-02-16T16:27:12+01:00 (15 years ago)
Author:
smasson
Message:

set origin of outputs calendar, continue changeset:1309, see ticket:335

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DIA/diaptr.F90

    r1152 r1310  
    487487         ! Compute julian date from starting date of the run 
    488488 
    489          CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     489         CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     490         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    490491 
    491492         CALL dia_nam( clhstnam, nf_ptr, 'diaptr' ) 
Note: See TracChangeset for help on using the changeset viewer.