Changeset 1339

Timestamp:

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

Author:

smasson

Message:

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

Location:

trunk/NEMO

Files:

• LIM_SRC_2/limwri_2.F90 (modified) (2 diffs)
• LIM_SRC_3/limwri.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC_2/limwri_2.F90

@@ -103 +103 @@
          ENDIF
          zout     = nwrite * rdt_ice / nn_fsbc
-         niter    = nit000 - 1
+         niter    = ( nit000 - 1 ) / nn_fsbc
          zdept(1) = 0.
          
@@ -110 +110 @@
          CALL dia_nam ( clhstnam, nwrite, 'icemod' )
          CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit,    &
-            &           1, jpi, 1, jpj, nit000-1, zjulian, rdt_ice, nhorid, nice , domain_id=nidom)
+            &           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")
          CALL wheneq  ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim)

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",               &