Changeset 391 for trunk


Ignore:
Timestamp:
02/09/09 14:20:16 (15 years ago)
Author:
smasson
Message:

add a call to isafile in ncdf_get*.pro

Location:
trunk/SRC/ReadWrite
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ReadWrite/ncdf_getatt.pro

    r372 r391  
    8080  compile_opt idl2, strictarrsubs 
    8181; 
     82  @cm_general                      ;   needed for iodir 
     83; 
    8284; should we open the file? 
    83   IF size(fileid, /type) EQ 7 THEN cdfid = ncdf_open(fileid) ELSE cdfid = fileid 
     85  IF size(fileid, /type) EQ 7 THEN $ 
     86     cdfid = ncdf_open(isafile(fileid, title = 'which file must be open by ncdf_getatt?', IODIRECTORY = iodir, _extra = ex)) $ 
     87  ELSE cdfid = fileid 
    8488; default definitions 
    8589  units = '' 

  • trunk/SRC/ReadWrite/ncdf_getaxis.pro

    r385 r391  
    6969  compile_opt idl2, strictarrsubs 
    7070; 
     71  @cm_general                      ;   needed for iodir 
     72; 
    7173; should we open the file? 
    72   IF size(fileid, /type) EQ 7 THEN cdfid = ncdf_open(fileid) ELSE cdfid = fileid 
     74  IF size(fileid, /type) EQ 7 THEN $ 
     75     cdfid = ncdf_open(isafile(fileid, title = 'which file must be open by ncdf_getaxis?', IODIRECTORY = iodir, _extra = ex)) $ 
     76  ELSE cdfid = fileid 
    7377; what is inside the file 
    7478  inside = ncdf_inquire(cdfid) 

  • trunk/SRC/ReadWrite/ncdf_getmask.pro

    r372 r391  
    8484  compile_opt idl2, strictarrsubs 
    8585; 
     86  @cm_general                      ;   needed for iodir 
     87; 
    8688  IF NOT (keyword_set(maskname) OR keyword_set(useasmask)) AND keyword_set(romsgrid) THEN maskname = 'mask_rho' 
    8789  IF NOT (keyword_set(maskname) OR keyword_set(useasmask)) THEN return, -1 
    8890;---------------------------------------------------------- 
    8991; should we open the file? 
    90   IF size(fileid, /type) EQ 7 THEN cdfid = ncdf_open(fileid) ELSE cdfid = fileid 
     92  IF size(fileid, /type) EQ 7 THEN $ 
     93     cdfid = ncdf_open(isafile(fileid, title = 'which file must be open by ncdf_getmask?', IODIRECTORY = iodir, _extra = ex)) $ 
     94  ELSE cdfid = fileid 
    9195; what is inside the file 
    9296  inq = ncdf_inquire(cdfid) 

  • trunk/SRC/ReadWrite/ncdf_gettime.pro

    r389 r391  
    6161; 
    6262  IF n_elements(cdfid) EQ 0 THEN BEGIN 
    63     cdfid = ncdf_open(isafile(filename, title = 'which file must be open by ncdf_gettime?', _extra = ex)) 
     63    cdfid = ncdf_open(isafile(filename, title = 'which file must be open by ncdf_gettime?', IODIRECTORY=iodir, _extra = ex)) 
    6464    tobeclosed = 1 
    6565  ENDIF 
Note: See TracChangeset for help on using the changeset viewer.