Changeset 1898

Timestamp:

10/18/12 16:31:01 (12 years ago)

Author:

jgipsl

Message:

Corrected error introduced in rev 1808 : time was added as possible time axis but only in flininfo. There was an incoherence with flinopen.

Now added "time" also in flinopen.

File:

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

IOIPSL/trunk/src/flincom.f90

@@ -597 +597 @@
       IF (INDEX(units,'seconds since') > 0) gdtmaf_id = iv
       IF (INDEX(units,'timesteps since') > 0) gdtt_id = iv
-      IF (INDEX(name, 'tstep') > 0) old_id = iv
+      IF (INDEX(name, 'tstep') > 0 .OR. INDEX(name,'time') > 0 ) old_id = iv
     ENDDO
 !---
@@ -1978 +1978 @@
       WRITE (*,*) 'Dimension Z size   : ',llm
     ELSE IF (    (INDEX(axname,'tstep') == 1) &
+             .OR.(INDEX(axname,'time') == 1) &
              .OR.(INDEX(axname,'time_counter') == 1)) THEN
 !---- For the time we certainly need to allow for other names