Changeset 1310
- Timestamp:
- 2009-02-16T16:27:12+01:00 (15 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/C1D_SRC/diawri_c1d.F90
r1221 r1310 121 121 122 122 ! 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 124 125 IF(lwp)WRITE(numout,*) 125 126 IF(lwp)WRITE(numout,*) 'Date 0 used :', nit000, ' YEAR ', nyear, & -
trunk/NEMO/LIM_SRC_2/limwri_2.F90
r1156 r1310 86 86 INTEGER :: ji, jj, jf ! dummy loop indices 87 87 CHARACTER(len = 40) :: clhstnam, clop 88 REAL(wp) :: zsto, z sec, zjulian, zout, & ! temporary scalars88 REAL(wp) :: zsto, zjulian, zout, & ! temporary scalars 89 89 & zindh, zinda, zindb, ztmu 90 90 REAL(wp), DIMENSION(1) :: zdept … … 102 102 clop = "ave(x)" 103 103 zout = nwrite * rdt_ice / nn_fsbc 104 zsec = 0.105 104 niter = 0 106 105 zdept(1) = 0. 107 106 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 109 109 CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 110 110 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, & -
trunk/NEMO/LIM_SRC_3/limwri.F90
r1156 r1310 91 91 92 92 REAL(wp) :: & 93 zsto, z sec, zjulian,zout, &93 zsto, zjulian,zout, & 94 94 zindh,zinda,zindb 95 95 REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: & … … 139 139 clop = "ave(x)" 140 140 zout = nwrite * rdt_ice / nn_fsbc 141 zsec = 0.142 141 niter = 0 143 142 zdept(1) = 0. 144 143 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 146 146 CALL dia_nam ( clhstnam, nwrite, 'icemod' ) 147 147 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, 0, zjulian, rdt_ice, nhorid, nice, domain_id=nidom ) … … 167 167 clop = "ave(x)" 168 168 zout = nwrite * rdt_ice / nn_fsbc 169 zsec = 0.170 169 nitera = 0 171 170 zdept(1) = 0. -
trunk/NEMO/OPA_SRC/DIA/diagap.F90
r1152 r1310 161 161 ! Compute julian date from starting date of the run 162 162 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 164 165 165 166 CALL dia_nam( clhstnam, ngap, 'diagap' ) -
trunk/NEMO/OPA_SRC/DIA/diaptr.F90
r1152 r1310 487 487 ! Compute julian date from starting date of the run 488 488 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 490 491 491 492 CALL dia_nam( clhstnam, nf_ptr, 'diaptr' ) -
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1309 r1310 591 591 592 592 ! 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 594 595 CALL histbeg( clname, jpi, glamt, jpj, gphit, & 595 596 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 844 844 ! II.2 Compute julian date from starting date of the run 845 845 ! ------------------------------------------------------ 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 847 848 IF(lwp) WRITE(numout,*)' ' 848 849 IF(lwp) WRITE(numout,*)' Date 0 used :',nit000, & -
trunk/NEMO/OPA_SRC/TRD/trdvor.F90
r1152 r1310 552 552 ! II.2 Compute julian date from starting date of the run 553 553 ! ------------------------ 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 555 556 IF(lwp) WRITE(numout,*)' ' 556 557 IF(lwp) WRITE(numout,*)' Date 0 used :',nit000, & -
trunk/NEMO/TOP_SRC/SED/sedrst.F90
r1250 r1310 194 194 clname = cexper(1:ic)//cln 195 195 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 197 198 CALL restini( 'NONE', jpi, jpj, glamt, gphit, jpksed, dz, & 198 199 & clname, itime, zdate0, dtsed*nstock, numrsw, domain_id=nidom ) -
trunk/NEMO/TOP_SRC/SED/sedwri.F90
r1250 r1310 179 179 180 180 ! 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 182 183 CALL dia_nam ( clhstnam, nwrised, 'sed_T' ) 183 184 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, & -
trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r1283 r1310 1411 1411 ! II.2 Compute julian date from starting date of the run 1412 1412 ! ------------------------------------------------------ 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 1414 1415 IF(lwp) WRITE(numout,*)' ' 1415 1416 IF(lwp) WRITE(numout,*)' Date 0 used :', nit000 & -
trunk/NEMO/TOP_SRC/trcdia.F90
r1189 r1310 148 148 149 149 ! 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 151 152 IF(lwp)WRITE(numout,*)' ' 152 153 IF(lwp)WRITE(numout,*)' Date 0 used :', nittrc000 &
Note: See TracChangeset
for help on using the changeset viewer.