Changeset 114 for trunk/SRC/Grid


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/Grid
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Grid/computegrid.pro

    r103 r114  
    150150                 , _extra = ex  
    151151;--------------------------------------------------------- 
     152; 
     153  compile_opt idl2, strictarrsubs 
     154; 
    152155@cm_4mesh 
    153156@cm_4data 

  • trunk/SRC/Grid/micromeshmask.pro

    r103 r114  
    2020;------------------------------------------------------ 
    2121PRO ncdf_transfer, inid, outid, inname, outname 
     22; 
     23  compile_opt idl2, strictarrsubs 
     24; 
    2225  IF n_elements(outname) EQ 0 THEN outname = inname 
    2326  ncdf_varget, inid, inname, zzz 
    … …  
    4245;- 
    4346PRO micromeshmask, ncfilein, ncfileout, IODIR = iodir 
     47; 
     48; 
     49  compile_opt idl2, strictarrsubs 
    4450; 
    4551  filein = isafile(FILE = ncfilein, IODIR = iodir, /NEW) 
    … …  
    7884    dimid = (where(strmid(listdims, 0, 5) EQ 'depth'))[0] 
    7985    IF dimid NE -1 THEN ncdf_diminq, cdfid, dimid, name, jpk ELSE BEGIN  
    80       report, 'We could not find the vertical dimension..., its name must be z or start with depth' 
     86      dummy = report('We could not find the vertical dimension..., its name must be z or start with depth') 
    8187      return 
    8288    ENDELSE  

  • trunk/SRC/Grid/n128gaussian.pro

    r103 r114  
    1616; 
    1717FUNCTION n128gaussian 
     18; 
     19; 
     20  compile_opt idl2, strictarrsubs 
    1821; 
    1922;          latitude   reduced     regular  latitude 

  • trunk/SRC/Grid/n160gaussian.pro

    r103 r114  
    1717; 
    1818FUNCTION n160gaussian 
     19; 
     20; 
     21  compile_opt idl2, strictarrsubs 
    1922; 
    2023;          latitude   reduced     regular  latitude 

  • trunk/SRC/Grid/n256gaussian.pro

    r103 r114  
    1717; 
    1818FUNCTION n256gaussian 
     19; 
     20; 
     21  compile_opt idl2, strictarrsubs 
    1922; 
    2023;         latitude   reduced     regular  latitude 

  • trunk/SRC/Grid/n48gaussian.pro

    r103 r114  
    1717; 
    1818FUNCTION n48gaussian 
     19; 
     20; 
     21  compile_opt idl2, strictarrsubs 
    1922; 
    2023;          latitude   reduced     regular  latitude 

  • trunk/SRC/Grid/n80gaussian.pro

    r103 r114  
    1717; 
    1818FUNCTION n80gaussian 
     19; 
     20; 
     21  compile_opt idl2, strictarrsubs 
    1922; 
    2023;          latitude   reduced     regular  latitude 

  • trunk/SRC/Grid/ncdf_meshread.pro

    r103 r114  
    7575; 
    7676;--------------------------------------------------------- 
     77; 
     78  compile_opt idl2, strictarrsubs 
     79; 
    7780@cm_4mesh 
    7881@cm_4data 
    … …  
    114117    dimid = (where(strmid(listdims, 0, 5) EQ 'depth'))[0] 
    115118    IF dimid NE -1 THEN ncdf_diminq, cdfid, dimid, name, jpkglo ELSE BEGIN  
    116       report, 'We could not find the vertical dimension..., its name must be z or start with depth' 
     119      dummy = report('We could not find the vertical dimension..., its name must be z or start with depth') 
    117120      stop 
    118121    ENDELSE  

  • trunk/SRC/Grid/restoreboxparam.pro

    r103 r114  
    2424;------------------------------------------------------------ 
    2525PRO restoreboxparam, filename 
     26; 
     27  compile_opt idl2, strictarrsubs 
     28; 
    2629@cm_4mesh 
    2730; 

  • trunk/SRC/Grid/saveboxparam.pro

    r103 r114  
    2525;------------------------------------------------------------ 
    2626PRO saveboxparam, filename 
     27; 
     28  compile_opt idl2, strictarrsubs 
     29; 
    2730@cm_4mesh 
    2831; 

  • trunk/SRC/Grid/smallmeshmask.pro

    r103 r114  
    1010;------------------------------------------------------ 
    1111PRO ncdf_transfer, inid, outid, inname, outname 
     12; 
     13  compile_opt idl2, strictarrsubs 
     14; 
    1215  IF n_elements(outname) EQ 0 THEN outname = inname 
    1316  ncdf_varget, inid, inname, zzz 
    … …  
    4447;- 
    4548PRO smallmeshmask, ncfilein, ncfileout, IODIR = iodir 
     49; 
     50; 
     51  compile_opt idl2, strictarrsubs 
    4652; 
    4753  filein = isafile(FILE = ncfilein, IODIR = iodir, /NEW) 
    … …  
    7682    dimid = (where(strmid(listdims, 0, 5) EQ 'depth'))[0] 
    7783    IF dimid NE -1 THEN ncdf_diminq, cdfid, dimid, name, jpk ELSE BEGIN  
    78       report, 'We could not find the vertical dimension..., its name must be z or start with depth' 
     84      dummy = report('We could not find the vertical dimension..., its name must be z or start with depth') 
    7985      return 
    8086    ENDELSE  
Note: See TracChangeset for help on using the changeset viewer.