Changeset 114 for trunk/SRC/Obsolete


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/Obsolete
Files:
18 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Obsolete/cp.pro

    r97 r114  
    1515;------------------------------------------------------------ 
    1616PRO cp, filenamein, filenameout, _extra = ex 
     17; 
     18  compile_opt idl2, strictarrsubs, obsolete 
     19; 
    1720  file_copy, filenamein, filenameout, _extra = ex 
    1821  RETURN 

  • trunk/SRC/Obsolete/ficdate.pro

    r103 r114  
    2626;------------------------------------------------------------ 
    2727function ficdate, vdate, dim, nomexp 
     28; 
     29  compile_opt idl2, strictarrsubs, obsolete 
     30; 
    2831@common 
    2932;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/fictype.pro

    r103 r114  
    1717;------------------------------------------------------------ 
    1818function fictype, vdate, dim 
     19; 
     20  compile_opt idl2, strictarrsubs, obsolete 
     21; 
    1922@common 
    2023;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/imprime.pro

    r97 r114  
    1515; 
    1616; this is working only with unix/linux/osX machines 
     17; 
     18  compile_opt idl2, strictarrsubs, obsolete 
     19; 
    1720  thisOS = strupcase(strmid(!version.os_family, 0, 3)) 
    1821  CASE thisOS OF  

  • trunk/SRC/Obsolete/jourdsmois.pro

    r97 r114  
    1313;------------------------------------------------------------ 
    1414function jourdsmois, mois, annee 
     15; 
     16  compile_opt idl2, strictarrsubs, obsolete 
     17; 
    1518 
    1619case n_params() OF 

  • trunk/SRC/Obsolete/juldate.pro

    r97 r114  
    3333;------------------------------------------------------------ 
    3434function juldate, vvdate, _EXTRA = ex 
     35; 
     36  compile_opt idl2, strictarrsubs, obsolete 
     37; 
    3538vdate = vvdate 
    3639vdate = vraidate(vdate, _EXTRA = ex) 

  • trunk/SRC/Obsolete/lec.pro

    r97 r114  
    8181;-------------------------------------------------------------- 
    8282function lec, nomchamp,date,nomexp,ECRIT=ecrit,ANOM=anom, BOITE = boite,EXPANOM=expanom, TOUT = tout, GRID = grid, NAME = name, filename = FILENAME 
     83; 
     84  compile_opt idl2, strictarrsubs, obsolete 
     85; 
    8386@common 
    8487   tempsun = systime(1)         ; pour key_performance 
    … …  
    329332   ENDIF ELSE BEGIN  
    330333      terre = where(mask[*,*,0] EQ 0) 
    331       if terre[0] NE -1 then z(where(mask EQ 0)) = valmask 
     334      if terre[0] NE -1 then z[where(mask EQ 0)] = valmask 
    332335   ENDELSE  
    333336;--------------------------------------------------------------------- 

  • trunk/SRC/Obsolete/lect.pro

    r97 r114  
    5050               ANOM=anom,EXPANOM=expanom 
    5151;,REPEAT=repeat 
     52; 
     53  compile_opt idl2, strictarrsubs, obsolete 
     54; 
    5255@common 
    5356   tempsun = systime(1)         ; pour key_performance 
    … …  
    226229   taille = size(ttab) 
    227230   writeu, numlec, long(jpt),long(taille[0]) 
    228    case taille(0) of  
     231   case taille[0] of  
    229232      1 : writeu, numlec,long(taille[1]) 
    230233      2 : writeu, numlec,long(taille[1]),long(taille[2]) 

  • trunk/SRC/Obsolete/meshlec.pro

    r97 r114  
    4040;------------------------------------------------------------ 
    4141pro meshlec, nomfich, PASBLABLA = pasblabla,DOUBLE = double, GLAMBOUNDARY = glamboundary, GETDIMENSIONS = GETDIMENSIONS 
     42; 
     43  compile_opt idl2, strictarrsubs, obsolete 
     44; 
    4245@common 
    4346   tempsun = systime(1)         ; pour key_performance 

  • trunk/SRC/Obsolete/ncdf_meshlec.pro

    r97 r114  
    1414PRO ncdf_meshlec, filename, _EXTRA = ex 
    1515; 
     16; 
     17  compile_opt idl2, strictarrsubs, obsolete 
     18; 
    1619  CASE n_params() OF 
    1720    0:ncdf_meshread, _EXTRA = ex 

  • trunk/SRC/Obsolete/nlec.pro

    r97 r114  
    4040              , STRUCTURE = structure, SEUILMIN = seuilmin, SEUILMAX = seuilmax, NAN = nan $ 
    4141              , _EXTRA = ex 
     42; 
     43  compile_opt idl2, strictarrsubs, obsolete 
     44; 
    4245@common 
    4346;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/nlec5j.pro

    r97 r114  
    4141;------------------------------------------------------------ 
    4242function nlec5j, nom, numsortie, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
     43; 
     44  compile_opt idl2, strictarrsubs, obsolete 
     45; 
    4346@common 
    4447;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/nlecan.pro

    r97 r114  
    4040;------------------------------------------------------------ 
    4141function nlecan, nom, numsortie79, nbretps,BOITE = boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
     42; 
     43  compile_opt idl2, strictarrsubs, obsolete 
     44; 
    4245@common 
    4346;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/nlecmois.pro

    r97 r114  
    2525;------------------------------------------------------------ 
    2626function nlecmois,nom,numsortie79,nbretps ,BOITE=boite,GRILLE=grille,TOUT=tout, _EXTRA = ex 
     27; 
     28  compile_opt idl2, strictarrsubs, obsolete 
     29; 
    2730@common 
    2831;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/nlecsaison.pro

    r97 r114  
    4040;------------------------------------------------------------ 
    4141function nlecsaison, nom, numsortie79, nbretps,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
     42; 
     43  compile_opt idl2, strictarrsubs, obsolete 
     44; 
    4245@common 
    4346;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/nlecserie.pro

    r97 r114  
    3939;------------------------------------------------------------ 
    4040function nlecserie, nom, date1, date2,BOITE = boite, GRILLE=grille,TOUT=tout, _EXTRA = ex 
     41; 
     42  compile_opt idl2, strictarrsubs, obsolete 
     43; 
    4144@common 
    4245;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/vairdate.pro

    r103 r114  
    4141;------------------------------------------------------------ 
    4242function vairdate, jdate,  ANNUEL = annuel, MENSUEL = mensuel, _EXTRA = ex 
     43; 
     44  compile_opt idl2, strictarrsubs, obsolete 
     45; 
    4346@common 
    4447;------------------------------------------------------------ 

  • trunk/SRC/Obsolete/vraidate.pro

    r97 r114  
    2929function vraidate, date, GRADS = grads, _EXTRA = ex 
    3030;------------------------------------------------------------ 
     31; 
     32  compile_opt idl2, strictarrsubs, obsolete 
     33; 
    3134  IF NOT keyword_set(GRADS) THEN return, long(date) 
    3235; 
Note: See TracChangeset for help on using the changeset viewer.