Changeset 391 for trunk/SRC/ReadWrite/ncdf_getmask.pro

Timestamp:

02/09/09 14:20:16 (15 years ago)

Author:

smasson

Message:

add a call to isafile in ncdf_get*.pro

File:

• trunk/SRC/ReadWrite/ncdf_getmask.pro (modified) (1 diff)

trunk/SRC/ReadWrite/ncdf_getmask.pro

@@ -84 +84 @@
   compile_opt idl2, strictarrsubs
 ;
+  @cm_general                      ;   needed for iodir
+;
   IF NOT (keyword_set(maskname) OR keyword_set(useasmask)) AND keyword_set(romsgrid) THEN maskname = 'mask_rho'
   IF NOT (keyword_set(maskname) OR keyword_set(useasmask)) THEN return, -1
 ;----------------------------------------------------------
 ; should we open the file?
-  IF size(fileid, /type) EQ 7 THEN cdfid = ncdf_open(fileid) ELSE cdfid = fileid
+  IF size(fileid, /type) EQ 7 THEN $
+     cdfid = ncdf_open(isafile(fileid, title = 'which file must be open by ncdf_getmask?', IODIRECTORY = iodir, _extra = ex)) $
+  ELSE cdfid = fileid
 ; what is inside the file
   inq = ncdf_inquire(cdfid)