Changeset 1334 for trunk/NEMO/TOP_SRC/SED/sedwri.F90

Timestamp:

2009-03-03T15:07:48+01:00 (15 years ago)

Author:

smasson

Message:

complete work on time origin in outputs (ticket:335) + downward vertical axis (ticket:357)

File:

• trunk/NEMO/TOP_SRC/SED/sedwri.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/SED/sedwri.F90

@@ -40 +40 @@
       INTEGER , DIMENSION(jpij) , SAVE :: ndext51
       REAL(wp) :: zsto,zout, zdt
-      INTEGER :: iimi, iima, ijmi, ijma,ipk, it
+      INTEGER :: iimi, iima, ijmi, ijma,ipk, it, itmod
       INTEGER :: jn
       CHARACTER(len = 20)  ::  cltra , cltrau
@@ -76 +76 @@
 
       ! define time axis
-      it = kt - nitsed000 + 1
+      it = kt
+      itmod = kt - nitsed000 + 1
 
 
@@ -185 +186 @@
          CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit,     &
             &             iimi, iima-iimi+1, ijmi, ijma-ijmi+1,         &
-            &             0, zjulian, zdt,  nhorised, nised , domain_id=nidom )
-         CALL histvert( nised,'deptht','Vertic.sed.T levels','m',ipk, profsed, ndepsed )
+            &             nitsed000-1, zjulian, zdt,  nhorised, nised , domain_id=nidom )
+         CALL histvert( nised,'deptht','Vertic.sed.T levels','m',ipk, profsed, ndepsed, 'down' )
          CALL wheneq  ( jpi*jpj*ipk, tmasksed, 1, 1., ndext52, ndimt52 )
          CALL wheneq  ( jpi*jpj, tmasksed(:,:,1), 1, 1., ndext51, ndimt51 )