Changeset 1898 for IOIPSL


Ignore:
Timestamp:
10/18/12 16:31:01 (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/flincom.f90

    r1808 r1898  
    597597      IF (INDEX(units,'seconds since') > 0) gdtmaf_id = iv 
    598598      IF (INDEX(units,'timesteps since') > 0) gdtt_id = iv 
    599       IF (INDEX(name, 'tstep') > 0) old_id = iv 
     599      IF (INDEX(name, 'tstep') > 0 .OR. INDEX(name,'time') > 0 ) old_id = iv 
    600600    ENDDO 
    601601!--- 
     
    19781978      WRITE (*,*) 'Dimension Z size   : ',llm 
    19791979    ELSE IF (    (INDEX(axname,'tstep') == 1) & 
     1980             .OR.(INDEX(axname,'time') == 1) & 
    19801981             .OR.(INDEX(axname,'time_counter') == 1)) THEN 
    19811982!---- For the time we certainly need to allow for other names 
Note: See TracChangeset for help on using the changeset viewer.