Changeset 114 for trunk/SRC/ReadWrite/readoldoparestart.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/ReadWrite/readoldoparestart.pro (modified) (3 diffs)

trunk/SRC/ReadWrite/readoldoparestart.pro

@@ -17 +17 @@
 
 FUNCTION read2fromopa, unit, params, num
+;
+  compile_opt idl2, strictarrsubs
+;
    offset=params.reclen*params.jpk*(num-1L)
    a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,/nozero),offset) 
@@ -26 +29 @@
 ;-
 FUNCTION read3fromopa, unit, params, num
+;
+  compile_opt idl2, strictarrsubs
+;
    offset=params.reclen*params.jpk*(num-1L)
    a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,params.jpk,/nozero),offset)
@@ -74 +80 @@
 
 PRO readoldoparestart, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec, ub = ub, vb = vb, tb = tb, sb = sb, rotb = rotb, hdivb = hdivb, un = un, vn = vn, tn = tn, sn = sn, rotn = rotn, hdivn = hdivn, gcx = gcx, gcxb = gcxb, etab = etab, etan = etan, bsfb = bsfb, bsfn = bsfn, bsfd = bsfd, en = en
+;
+;
+  compile_opt idl2, strictarrsubs
 ;
    iname_file = findfile(filename)