Changeset 475 for trunk/SRC/Grid

Timestamp:

03/14/12 09:46:30 (12 years ago)

Author:

smasson

Message:

add flexibility in filenames used in smallmeshmask

File:

• trunk/SRC/Grid/smallmeshmask.pro (modified) (1 diff)

trunk/SRC/Grid/smallmeshmask.pro

@@ -66 +66 @@
 ;
 ;-
-PRO smallmeshmask, ncfilein, ncfileout, IODIR=iodir
+PRO smallmeshmask, ncfilein, ncfileout, IODIR = iodir, HGRFILE = hgrfile, ZGRFILE = zgrfile, MSKFILE = mskfile
 ;
   compile_opt idl2, strictarrsubs
 ;
   filein = isafile(FILE = ncfilein, IODIR = iodir, /NEW)
-  test = (findfile(filein))[0]
+  test = (file_search(filein))[0]
   IF test EQ '' THEN BEGIN
-    filein_hgr = (findfile(filein+'.mesh_hgr.nc'))[0]
-    filein_zgr = (findfile(filein+'.mesh_zgr.nc'))[0]
-    filein_msk = (findfile(filein+'.mask.nc'))[0]
+    IF keyword_set(hgrfile) THEN filein_hgr = isafile(FILE = hgrfile, IODIR = iodir) ELSE filein_hgr = (file_search(filein+'.mesh_hgr.nc'))[0]
+    IF keyword_set(zgrfile) THEN filein_zgr = isafile(FILE = zgrfile, IODIR = iodir) ELSE filein_zgr = (file_search(filein+'.mesh_zgr.nc'))[0]
+    IF keyword_set(mskfile) THEN filein_msk = isafile(FILE = mskfile, IODIR = iodir) ELSE filein_msk = (file_search(filein+'.mask.nc'))[0]
     IF filein_hgr EQ '' OR filein_zgr EQ '' OR filein_msk EQ ''  THEN BEGIN
       ras = report(['meshmask file(s) not found...', $