Changeset 114 for trunk/SRC/ReadWrite


Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

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

Location:
trunk/SRC/ReadWrite
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_listdims.pro

    r70 r114  
    11FUNCTION ncdf_listdims,ncid 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36n=(ncdf_inquire(ncid)).ndims 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_listvars.pro

    r67 r114  
    11FUNCTION ncdf_listvars,ncid 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36n=(ncdf_inquire(ncid)).nvars 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_read.pro

    r70 r114  
    4545; 
    4646;---------------------------------------------------------------------- 
     47; 
     48  compile_opt idl2, strictarrsubs 
     49; 
    4750 
    4851 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_struct.pro

    r67 r114  
    1515; 
    1616; Alan Iwi 27/6/02 
     17; 
     18; 
     19  compile_opt idl2, strictarrsubs 
    1720; 
    1821 

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_struct_free.pro

    r67 r114  
    11PRO ncdf_struct_free,s 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36; 

  • trunk/SRC/ReadWrite/ncdf_timeget.pro

    r106 r114  
    3434;------------------------------------------------------------ 
    3535FUNCTION ncdf_timeget, cdfid, timeid, YYYYMMDD = yyyymmdd, _extra = ex 
     36; 
     37  compile_opt idl2, strictarrsubs 
     38; 
    3639 
    3740   insidetime=ncdf_varinq(cdfid,timeid) 

  • trunk/SRC/ReadWrite/read_grads.pro

    r106 r114  
    6464FUNCTION read_grads, var, date1, date2, FILENAME = filename, BOX=box, TIMESTEP = timestep, EVERYTHING = everything, NOSTRUCT = nostruct, _EXTRA = ex 
    6565;--------------------------------------------------------- 
     66; 
     67  compile_opt idl2, strictarrsubs 
     68; 
    6669@cm_4mesh 
    6770@cm_4data 

  • trunk/SRC/ReadWrite/read_oasis.pro

    r107 r114  
    3636 
    3737FUNCTION read_oasis, filename, varname, jpi, jpj, I2 = I2, I4 = i4, I8 = i8, R4 = r4 
     38; 
     39  compile_opt idl2, strictarrsubs 
     40; 
    3841 
    3942   openr, unit, filename, /f77_unformatted, /get_lun, /swap_if_little_endian $ 

  • trunk/SRC/ReadWrite/readbat.pro

    r106 r114  
    1818;- 
    1919FUNCTION readbat, filename, ZERO = zero 
     20; 
     21  compile_opt idl2, strictarrsubs 
     22; 
    2023 
    2124   ;; 
    … …  
    6063      FOR jj =  ijm-1, 0, -1  DO BEGIN 
    6164         readf, iunit, FORMAT = iformat, ij, zbati 
    62          zbat(il1:il2, jj) = zbati 
     65         zbat[il1:il2, jj] = zbati 
    6366      ENDFOR 
    6467      il1 = il1 + ifreq 
    … …  
    7578   FOR jj =  ijm-1, 0, -1  DO BEGIN 
    7679      readf, iunit, FORMAT = iformat, ij, zbati2 
    77       zbat(il1:il2, jj) = zbati2 
     80      zbat[il1:il2, jj] = zbati2 
    7881   ENDFOR 
    7982   close, iunit 

  • trunk/SRC/ReadWrite/readoldopadistcoast.pro

    r106 r114  
    2323 
    2424FUNCTION read3fromopa, unit, params, num 
     25; 
     26  compile_opt idl2, strictarrsubs 
     27; 
    2528   offset=params.reclen*params.jpk*(num-1L) 
    2629   a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,params.jpk,/nozero),offset) 
    … …  
    4245;- 
    4346FUNCTION readoldopadistcoast, filename, jpiglo, jpjglo, jpk, IBLOC = ibloc, JPBYT = jpbyt, NUMREC = numrec 
     47; 
     48; 
     49  compile_opt idl2, strictarrsubs 
    4450; 
    4551   iname_file = findfile(filename) 

  • trunk/SRC/ReadWrite/readoldoparestart.pro

    r106 r114  
    1717 
    1818FUNCTION read2fromopa, unit, params, num 
     19; 
     20  compile_opt idl2, strictarrsubs 
     21; 
    1922   offset=params.reclen*params.jpk*(num-1L) 
    2023   a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,/nozero),offset)  
    … …  
    2629;- 
    2730FUNCTION read3fromopa, unit, params, num 
     31; 
     32  compile_opt idl2, strictarrsubs 
     33; 
    2834   offset=params.reclen*params.jpk*(num-1L) 
    2935   a=assoc(unit,dblarr(params.jpiglo,params.jpjglo,params.jpk,/nozero),offset) 
    … …  
    7480 
    7581PRO 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 
     82; 
     83; 
     84  compile_opt idl2, strictarrsubs 
    7685; 
    7786   iname_file = findfile(filename) 

  • trunk/SRC/ReadWrite/scanctl.pro

    r106 r114  
    77;- 
    88PRO scanctl, filename, filesname, jpt1file, varsname, varslev, swapbytes, bigendian, littleendian, f77sequential, fileheader, theader, xyheader, VARFMT = varfmt, _EXTRA = ex 
     9; 
     10  compile_opt idl2, strictarrsubs 
     11; 
    912@common 
    1013 

  • trunk/SRC/ReadWrite/scanoasis.pro

    r106 r114  
    2222 
    2323PRO scanoasis, filename 
     24; 
     25  compile_opt idl2, strictarrsubs 
     26; 
    2427 
    2528   openr, unit,filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $ 

  • trunk/SRC/ReadWrite/write_oasis.pro

    r107 r114  
    3232 
    3333PRO write_oasis, filename, varname, z2d, I2 = i2, I4 = i4, I8 = i8, R4 = r4, APPEND = append 
     34; 
     35  compile_opt idl2, strictarrsubs 
     36; 
    3437   openw, unit, filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $ 
    3538    , error=err, APPEND = append 

  • trunk/SRC/ReadWrite/writebat.pro

    r106 r114  
    1616;- 
    1717PRO writebat, zbat, filename 
     18; 
     19  compile_opt idl2, strictarrsubs 
     20; 
    1821; basic checks 
    1922  IF n_params() NE 2 THEN BEGIN 
    … …  
    6164    iformat = string('(', il3+2, 'i3)') 
    6265    FOR jj =  jpj2-1, 0, -1  DO BEGIN 
    63       zbati(0:il3) = zbat(il1:il2, jj) 
     66      zbati[0:il3] = zbat[il1:il2, jj] 
    6467      printf, iunit, FORMAT = iformat, jj+1, zbati 
    6568    END 
    … …  
    7780  iformat = string('(', il3+2, 'i3)') 
    7881  FOR jj =  jpj2-1, 0, -1  DO BEGIN 
    79     zbati2(0:irest-1) = 0 
    80     zbati2(0:il3) = zbat(il1:il2, jj) 
     82    zbati2[0:irest-1] = 0 
     83    zbati2[0:il3] = zbat[il1:il2, jj] 
    8184    printf, iunit, FORMAT = iformat, jj+1, zbati2 
    8285  END 
Note: See TracChangeset for help on using the changeset viewer.