Changeset 1027

Timestamp:

05/20/10 14:41:32 (15 years ago)

Author:

bellier

Message:

Bugfix on the time axis

File:

• IOIPSL/trunk/src/histcom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/histcom.f90

@@ -1404 +1404 @@
     dims(1) = W_F(idf)%tid
     l_b = (INDEX(W_F(idf)%W_V(itx)%tax_name,"t_op_") == 1)
-    IF (W_F(idf)%n_tax > 1) THEN
+    IF (itx > 1) THEN
       str30 = W_F(idf)%W_V(itx)%tax_name
     ELSE
@@ -1568 +1568 @@
 !-
       IF (itax > 0) THEN
-        IF (W_F(idf)%n_tax > 1) THEN
+        IF (itax > 1) THEN
           str30 = W_F(idf)%W_V(itax)%tax_name
         ELSE