Changeset 114 for trunk/SRC/Grid/smallmeshmask.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/Grid/smallmeshmask.pro (modified) (3 diffs)

trunk/SRC/Grid/smallmeshmask.pro

@@ -10 +10 @@
 ;------------------------------------------------------
 PRO ncdf_transfer, inid, outid, inname, outname
+;
+  compile_opt idl2, strictarrsubs
+;
   IF n_elements(outname) EQ 0 THEN outname = inname
   ncdf_varget, inid, inname, zzz
@@ -44 +47 @@
 ;-
 PRO smallmeshmask, ncfilein, ncfileout, IODIR = iodir
+;
+;
+  compile_opt idl2, strictarrsubs
 ;
   filein = isafile(FILE = ncfilein, IODIR = iodir, /NEW)
@@ -76 +82 @@
     dimid = (where(strmid(listdims, 0, 5) EQ 'depth'))[0]
     IF dimid NE -1 THEN ncdf_diminq, cdfid, dimid, name, jpk ELSE BEGIN 
-      report, 'We could not find the vertical dimension..., its name must be z or start with depth'
+      dummy = report('We could not find the vertical dimension..., its name must be z or start with depth')
       return
     ENDELSE