Changeset 1339 for trunk/NEMO/LIM_SRC_3/limwri.F90

Timestamp:

2009-03-13T15:12:46+01:00 (15 years ago)

Author:

smasson

Message:

bugfix in lim outputs calendar see ticket:368 (and orginally ticket:335)

File:

• trunk/NEMO/LIM_SRC_3/limwri.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC_3/limwri.F90

@@ -141 +141 @@
          ENDIF
          zout     = nwrite * rdt_ice / nn_fsbc
-         niter    = nit000 - 1
+         niter    = ( nit000 - 1 ) / nn_fsbc
          zdept(1) = 0.
 
@@ -147 +147 @@
          zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment
          CALL dia_nam ( clhstnam, nwrite, 'icemod' )
-         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, nit000-1, zjulian, rdt_ice,   &
+         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, niter, zjulian, rdt_ice,   &
             &           nhorid, nice, domain_id=nidom )
          CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid, "down")
@@ -174 +174 @@
          CALL dia_nam ( clhstnama, nwrite, 'icemoa' )
          CALL histbeg ( clhstnama, jpi, glamt, jpj, gphit,         &
-            1, jpi, 1, jpj,        & ! zoom
-            nit000 -1, zjulian, rdt_ice,   & ! time
-            nhorida,               & ! ? linked with horizontal ...
+            1, jpi, 1, jpj,            & ! zoom
+            niter, zjulian, rdt_ice,   & ! time
+            nhorida,                   & ! ? linked with horizontal ...
             nicea , domain_id=nidom)                  ! file 
          CALL histvert( nicea, "icethi", "L levels",               &