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/ToBeReviewed/LECTURE
Files:
20 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro

    r67 r114  
    11FUNCTION bit2int, bitin, checkneg = checkneg 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36  res = 0L 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro

    r69 r114  
    11function read_grib, varcode, date1, date2, file = file 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25@common 
    36; http://www.wmo.ch/web/www/WDM/Guides/Guide-binary-2.html 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro

    r67 r114  
    11FUNCTION read_grib_bds, num, recstart, ni, nj 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  offset = recstart+8 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro

    r67 r114  
    11PRO read_grib_end,  num, offset 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36  a = assoc(num, bytarr(4, /nozero), offset) 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro

    r67 r114  
    11FUNCTION read_grib_gds, num, recstart 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  offset = recstart+8 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro

    r67 r114  
    11FUNCTION read_grib_is, num, offset 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36  infofile = fstat(num) 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro

    r67 r114  
    11FUNCTION read_grib_pds, num, recstart 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  offset = recstart+8 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro

    r67 r114  
    4040PRO read_gribtable,tablename,parmtabl=parmtabl,center=center,$ 
    4141                   subcenter=subcenter,tablnum=tablnum 
     42; 
     43  compile_opt idl2, strictarrsubs 
     44; 
    4245   
    4346ON_ERROR,2 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro

    r67 r114  
    11FUNCTION scan_grib_code, num, recstart 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  nrec =  n_elements(recstart) 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro

    r67 r114  
    11FUNCTION scan_grib_date, num, recstart 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  nrec =  n_elements(recstart) 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro

    r67 r114  
    11FUNCTION scan_grib_messize, num, recstart 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  nrec =  n_elements(recstart) 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro

    r67 r114  
    11FUNCTION scan_grib_nbits, num, recstart 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro

    r67 r114  
    11FUNCTION scan_grib_recstart, num 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25 
    36  infofile = fstat(num) 

  • trunk/SRC/ToBeReviewed/LECTURE/binary.pro

    r97 r114  
    3838;- 
    3939function binary, number 
     40; 
     41  compile_opt idl2, strictarrsubs 
     42; 
    4043  s = size(number) 
    4144  type = s[s[0] + 1] 

  • trunk/SRC/ToBeReviewed/LECTURE/changeread.pro

    r44 r114  
    11FUNCTION changeread, newread 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36@common 

  • trunk/SRC/ToBeReviewed/LECTURE/inverse_binary.pro

    r44 r114  
    6262FUNCTION inverse_binary, binnumb 
    6363; 
     64; 
     65  compile_opt idl2, strictarrsubs 
     66; 
    6467  s = size(binnumb, /dimensions) 
    6568  IF n_elements(s) EQ 1 THEN numbofbit = 8 ELSE numbofbit = 8*s[1] 

  • trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro

    r44 r114  
    105105FUNCTION litchamp, struct, GRID = grid, NAME = name, UNIT = unit, EXP = exp, DATE = date $ 
    106106                   , LEVEL = level, MASK = mask 
     107; 
     108  compile_opt idl2, strictarrsubs 
     109; 
    107110@common 
    108111;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/LECTURE/ncdf_lec.pro

    r44 r114  
    4242;------------------------------------------------------------ 
    4343function ncdf_lec,nom,ATT=att,DIM=dim,VAR=var, IODIR = iodir, _extra = ex 
     44; 
     45  compile_opt idl2, strictarrsubs 
     46; 
    4447   res = -1 
    4548;------------------------------------------------------------ 
    … …  
    124127          then begin 
    125128            print,'variable numero: ',strtrim(varid,1),', nom:',varcontent.name $ 
    126              ,', type:' ,varcontent.datatype,', dimensions:',nomdim(varcontent.dim) 
     129             ,', type:' ,varcontent.datatype,', dimensions:',nomdim[varcontent.dim] 
    127130            if strlowcase(att) eq strlowcase(varcontent.name) then begin 
    128131               for attiq=0,varcontent.natts-1 do begin 

  • trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

    r74 r114  
    7878                    , GRID = grid, FBASE2TBASE = fbase2tbase, _EXTRA = ex 
    7979;--------------------------------------------------------- 
     80; 
     81  compile_opt idl2, strictarrsubs 
     82; 
    8083@cm_4mesh 
    8184@cm_4data 

  • trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro

    r44 r114  
    1818;------------------------------------------------------------ 
    1919;------------------------------------------------------------ 
     20; 
     21  compile_opt idl2, strictarrsubs 
     22; 
    2023   COMMON wididbase, base 
    2124   COMMON resultat, res 
    … …  
    200203;------------------------------------------------------------ 
    201204;------------------------------------------------------------ 
     205; 
     206  compile_opt idl2, strictarrsubs 
     207; 
    202208   COMMON resultat, res 
    203209   COMMON infovariable, cdfid, listename, contient, nomdim, tailledim, varid, varcontient 
    … …  
    306312;------------------------------------------------------------ 
    307313;------------------------------------------------------------ 
     314; 
     315  compile_opt idl2, strictarrsubs 
     316; 
    308317   COMMON resultat, res 
    309318   COMMON infovariable, cdfid, listename, contient, nomdim, tailledim, varid, varcontient 
    … …  
    408417;------------------------------------------------------------ 
    409418FUNCTION xncdf_lec, nom, ATT = att, COUNT = count, GROUP = group, OFFSET = offset, IODIR = iodir, SHIFT = shift,  STRIDE = stride, VAR = var 
     419; 
     420  compile_opt idl2, strictarrsubs 
     421; 
    410422   COMMON wididbase, base 
    411423   COMMON infovariable, cdfid, listename, contient, nomdim, tailledim, varid, varcontient 
Note: See TracChangeset for help on using the changeset viewer.