Changeset 1310 for trunk/NEMO/LIM_SRC_3/limwri.F90
- Timestamp:
- 2009-02-16T16:27:12+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.
Note: See TracChangeset
for help on using the changeset viewer.