Changeset 1310


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

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

Location:
trunk/NEMO
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/C1D_SRC/diawri_c1d.F90

    r1221 r1310  
    121121          
    122122         ! Compute julian date from starting date of the run 
    123          CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     123         CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     124         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    124125         IF(lwp)WRITE(numout,*) 
    125126         IF(lwp)WRITE(numout,*) 'Date 0 used :', nit000, ' YEAR ', nyear,   & 
  • trunk/NEMO/LIM_SRC_2/limwri_2.F90

    r1156 r1310  
    8686      INTEGER  ::   ji, jj, jf                      ! dummy loop indices 
    8787      CHARACTER(len = 40)  ::   clhstnam, clop 
    88       REAL(wp) ::   zsto, zsec, zjulian, zout,   &  ! temporary scalars 
     88      REAL(wp) ::   zsto, zjulian, zout,   &  ! temporary scalars 
    8989         &          zindh, zinda, zindb, ztmu 
    9090      REAL(wp), DIMENSION(1)                ::   zdept 
     
    102102         clop     = "ave(x)" 
    103103         zout     = nwrite * rdt_ice / nn_fsbc 
    104          zsec     = 0. 
    105104         niter    = 0 
    106105         zdept(1) = 0. 
    107106          
    108          CALL ymds2ju ( nyear, nmonth, nday, zsec, zjulian ) 
     107         CALL ymds2ju ( nyear, nmonth, nday, rdt, zjulian ) 
     108         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    109109         CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 
    110110         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit,    & 
  • trunk/NEMO/LIM_SRC_3/limwri.F90

    r1156 r1310  
    9191 
    9292      REAL(wp) :: & 
    93          zsto, zsec, zjulian,zout, & 
     93         zsto, zjulian,zout, & 
    9494         zindh,zinda,zindb 
    9595      REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: & 
     
    139139         clop     = "ave(x)" 
    140140         zout     = nwrite * rdt_ice / nn_fsbc 
    141          zsec     = 0. 
    142141         niter    = 0 
    143142         zdept(1) = 0. 
    144143 
    145          CALL ymds2ju ( nyear, nmonth, nday, zsec, zjulian ) 
     144         CALL ymds2ju ( nyear, nmonth, nday, rdt, zjulian ) 
     145         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    146146         CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 
    147147         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, 0, zjulian, rdt_ice, nhorid, nice, domain_id=nidom ) 
     
    167167         clop     = "ave(x)" 
    168168         zout     = nwrite * rdt_ice / nn_fsbc 
    169          zsec     = 0. 
    170169         nitera   = 0 
    171170         zdept(1) = 0. 
  • trunk/NEMO/OPA_SRC/DIA/diagap.F90

    r1152 r1310  
    161161         ! Compute julian date from starting date of the run 
    162162 
    163          CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     163         CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     164         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    164165 
    165166         CALL dia_nam( clhstnam, ngap, 'diagap' ) 
  • 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' ) 
  • trunk/NEMO/OPA_SRC/DIA/diawri.F90

    r1309 r1310  
    591591 
    592592      ! Compute julian date from starting date of the run 
    593       CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian )         ! time axis  
     593      CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian )         ! time axis  
     594      zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    594595      CALL histbeg( clname, jpi, glamt, jpj, gphit,   & 
    595596          1, jpi, 1, jpj, 0, zjulian, zdt, nh_i, id_i, domain_id=nidom )          ! Horizontal grid : glamt and gphit 
  • trunk/NEMO/OPA_SRC/TRD/trdmld.F90

    r1152 r1310  
    844844      ! II.2 Compute julian date from starting date of the run 
    845845      ! ------------------------------------------------------ 
    846       CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     846      CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     847      zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    847848      IF(lwp) WRITE(numout,*)' '   
    848849      IF(lwp) WRITE(numout,*)'                Date 0 used :',nit000,    & 
  • trunk/NEMO/OPA_SRC/TRD/trdvor.F90

    r1152 r1310  
    552552      ! II.2 Compute julian date from starting date of the run 
    553553      ! ------------------------ 
    554       CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     554      CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     555      zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    555556      IF(lwp) WRITE(numout,*)' '   
    556557      IF(lwp) WRITE(numout,*)'               Date 0 used :',nit000,    & 
  • 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,     & 
  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1283 r1310  
    14111411      ! II.2 Compute julian date from starting date of the run 
    14121412      ! ------------------------------------------------------ 
    1413       CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian ) 
     1413      CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     1414      zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    14141415      IF(lwp) WRITE(numout,*)' '   
    14151416      IF(lwp) WRITE(numout,*)' Date 0 used :', nit000                  & 
  • trunk/NEMO/TOP_SRC/trcdia.F90

    r1189 r1310  
    148148 
    149149         ! Compute julian date from starting date of the run 
    150          CALL ymds2ju( nyear, nmonth, nday, 0.0, zjulian ) 
     150         CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian ) 
     151         zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment 
    151152         IF(lwp)WRITE(numout,*)' '   
    152153         IF(lwp)WRITE(numout,*)' Date 0 used :', nittrc000                         & 
Note: See TracChangeset for help on using the changeset viewer.