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/TOP_SRC/SED – 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

Location:
trunk/NEMO/TOP_SRC/SED
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/SED/sedrst.F90

    r1250 r1310  
    194194         clname = cexper(1:ic)//cln 
    195195         itime = 0 
    196          CALL ymds2ju( nyear, nmonth, nday, 0.0, zdate0 ) 
     196         CALL ymds2ju( nyear, nmonth, nday, rdt, zdate0 ) 
     197         zdate0 = zdate0 - adatrj   !   set calendar origin to the beginning of the experiment 
    197198         CALL restini( 'NONE', jpi, jpj, glamt, gphit, jpksed, dz, & 
    198199            &         clname, itime, zdate0, dtsed*nstock, numrsw, domain_id=nidom ) 

  • trunk/NEMO/TOP_SRC/SED/sedwri.F90

    r1250 r1310  
    179179 
    180180         ! Define the NETCDF files         
    181          CALL ymds2ju ( nyear, nmonth, nday, 0.0, zjulian ) 
     181         CALL ymds2ju ( nyear, nmonth, nday, rdt, zjulian ) 
     182         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    182183         CALL dia_nam ( clhstnam, nwrised, 'sed_T' ) 
    183184         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit,     & 
Note: See TracChangeset for help on using the changeset viewer.