Changeset 330 for trunk


Ignore:
Timestamp:
02/01/08 17:28:24 (16 years ago)
Author:
smasson
Message:

bugfix for compatibility with netcdf.3.6.2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Interpolation/file_interp.pro

    r327 r330  
    333333        outvarid[i] = ncdf_vardef(outid, varinq.name $ 
    334334                                  , BYTE = varinq.datatype EQ 'BYTE', CHAR = varinq.datatype EQ 'CHAR' $ 
    335                                   , SHORT = varinq.datatype EQ 'INT', LONG = varinq.datatype EQ 'LONG' $ 
     335                                  , SHORT = varinq.datatype EQ 'INT' OR varinq.datatype EQ 'SHORT' $ 
     336                                  , LONG = varinq.datatype EQ 'LONG' $ 
    336337                                  , FLOAT = varinq.datatype EQ 'FLOAT', DOUBLE = varinq.datatype EQ 'DOUBLE') 
    337338      ENDIF ELSE BEGIN          ; array 
    … …  
    352353          outvarid[i] = ncdf_vardef(outid, varinq.name, dimvar $ 
    353354                                    , BYTE = varinq.datatype EQ 'BYTE', CHAR = varinq.datatype EQ 'CHAR' $ 
    354                                     , SHORT = varinq.datatype EQ 'INT', LONG = varinq.datatype EQ 'LONG' $ 
     355                                    , SHORT = varinq.datatype EQ 'INT' OR varinq.datatype EQ 'SHORT' $ 
     356                                    , LONG = varinq.datatype EQ 'LONG' $ 
    355357                                    , FLOAT = varinq.datatype EQ 'FLOAT', DOUBLE = varinq.datatype EQ 'DOUBLE') 
    356358        ENDIF ELSE outvarid[i] = - 1 
Note: See TracChangeset for help on using the changeset viewer.