Changeset 495 for trunk/SRC/ToBeReviewed


Ignore:
Timestamp:
04/17/14 10:49:43 (10 years ago)
Author:
pinsard
Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

Location:
trunk/SRC/ToBeReviewed
Files:
135 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro

    r371 r495  
    22; 
    33; @file_comments 
    4 ; Rather comparable to <pro>depth2level</pro> but here, the calculated level  
     4; Rather comparable to <pro>depth2level</pro> but here, the calculated level 
    55; is in float. 
    66; For example, the level 5.4 correspond to a depth equal 

  • trunk/SRC/ToBeReviewed/CALCULS/determ3.pro

    r371 r495  
    4848; 
    4949; @examples 
    50 ;  
     50; 
    5151;   IDL> a=findgen(3,3,5) 
    5252;   IDL> print, determ3(a^2) 

  • trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro

    r493 r495  
    1212;               annex 6 freezing point of seawater F.J.Millero pp.29-35 
    1313;       checkvalue: fsfzpt=-2.588567 deg.c,for s=40.0,p=500 decibars 
    14 ; 
    1514; 
    1615; @categories 
    … …  
    4544;   * add example 
    4645; 
    47 ; 
    4846; @version 
    4947; $Id$ 

  • trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro

    r493 r495  
    4040; 
    4141; @keyword NODOMDEF 
    42 ; We activate it if we do not want to pass in <pro>domdef</pro> even if the  
    43 ; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called via  
     42; We activate it if we do not want to pass in <pro>domdef</pro> even if the 
     43; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called via 
    4444; <pro>checkfield</pro>) 
    4545; 
    … …  
    148148  endcase 
    149149;------------------------------------------------------------ 
    150 ;   I.3) Obtainment of scale's factors and of the mask on the subdomain  
     150;   I.3) Obtainment of scale's factors and of the mask on the subdomain 
    151151;        concerned by the average. 
    152152; Redefinition of the domain adjusted at boxzoom (at 6 elements) 
    … …  
    176176    IF taille[1] eq jpi and taille[2] eq jpj THEN $ 
    177177       mmm = mask2D[firstx:lastx, firsty:lasty] ELSE mmm = mask2D 
    178     mask = mask * ( mmm[*] # replicate(1., nz) )  
     178    mask = mask * ( mmm[*] # replicate(1., nz) ) 
    179179  ENDIF 
    180180;--------------------------------------------------------------- 
    … …  
    359359; III.1) Verification of the coherence of the array to average size 
    360360; Verification of the coherence between the array's size and the domain 
    361 ; defind by domdef 
     361; defined by domdef 
    362362; The input array must have either the total domain size (jpi,jpj,jpk,jpt) 
    363363; or this one of the reduced domain (nx,ny,ny,jpt) 
    364364;--------------------------------------------------------------- 
    365365    case 1 of 
    366       taille[1] eq jpi and taille[2] eq jpj and taille[3] eq jpk and taille[4] eq jpt: $  
     366      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq jpk and taille[4] eq jpt: $ 
    367367        res = tab[firstx:lastx, firsty:lasty, firstz:lastz, *] 
    368       taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz and taille[4] eq jpt: $  
     368      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz and taille[4] eq jpt: $ 
    369369        res = tab[firstx:lastx, firsty:lasty, *, *] 
    370370      taille[1] EQ  nx and taille[2] eq  ny and taille[3] eq nz and taille[4] eq jpt:res = tab 

  • trunk/SRC/ToBeReviewed/CALCULS/hdyn.pro

    r370 r495  
    1919; We activate this key if we want to calculate the dynamic height 
    2020; like in the GILL page 215, which means by rapport to a reference state which 
    21 ; vary in depth and which is determined by a reference temperature tref at 0°C 
     21; vary in depth and which is determined by a reference temperature tref at 0°C 
    2222; and a reference salinity sref at 35 psu. 
    2323; 
    … …  
    5151; 
    5252; @restrictions 
    53 ; Points for which we can not calculate the dynamic height (whose the batymetry 
    54 ; is less deep than the reference depth) are put at the value !values.f_nan 
     53; Points for which we can not calculate the dynamic height (whose the 
     54; bathymetry is less deep than the reference depth) are put at the 
     55; value !values.f_nan 
    5556; 
    5657; @restrictions 

  • trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro

    r370 r495  
    22; 
    33; @file_comments 
    4 ; Allows to pass from a 2d level array to a 2d depth array corresponding to  
     4; Allows to pass from a 2d level array to a 2d depth array corresponding to 
    55; these levels 
    66; 
    … …  
    99; 
    1010; @param TAB {in}{required}{type=2d array} 
    11 ; 2d level array of sill levels (or a structure respecting <pro>litchamp</pro>  
     11; 2d level array of sill levels (or a structure respecting <pro>litchamp</pro> 
    1212; criterions) 
    1313; 
    … …  
    4242   grille,mask, -1, -1,gdep,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz 
    4343;--------------------------------------------------------------- 
    44 ; verification of the coherence between array's size and the domain defined  
     44; verification of the coherence between array's size and the domain defined 
    4545; by domdef 
    4646;--------------------------------------------------------------- 

  • trunk/SRC/ToBeReviewed/CALCULS/level2index.pro

    r367 r495  
    44; We want, from a 3d matrix, to extract a 2d (x,y) array whose each element 
    55; has been extract from a level specified by the 2d level array (typically, 
    6 ; we want to obtain the salinity along an isopycn we have repered by its level). 
     6; we want to obtain the salinity along an isopycn we have identify by its level). 
    77; level2index is a function which give, in function of level, a 2d indexes array 
    88; which will allow to extract the 2d array from the 3d array... 
    … …  
    3939   tabknxny = (nx*ny)*long(level) 
    4040; 
    41 ; 
    4241   return, lindgen(nx, ny)+tabknxny 
    4342end 

  • trunk/SRC/ToBeReviewed/CALCULS/level2mask.pro

    r370 r495  
    99; 
    1010; @param TAB {in}{required}{type=2d array} 
    11 ; 2d level array of sill level (or a structure respecting <pro>litchamp</pro>  
     11; 2d level array of sill level (or a structure respecting <pro>litchamp</pro> 
    1212; criterions) 
    1313; 
    … …  
    4141   grille,maskterre, -1, -1, -1,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz 
    4242;--------------------------------------------------------------- 
    43 ; verification of the coherence between the array's size and the defined by  
     43; verification of the coherence between the array's size and the defined by 
    4444; domdef domain 
    4545;--------------------------------------------------------------- 

  • trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro

    r445 r495  
    3838; 
    3939; @keyword NODOMDEF 
    40 ; We activate it if we do not want to pass in <pro>domdef</pro> even if the  
    41 ; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called  
     40; We activate it if we do not want to pass in <pro>domdef</pro> even if the 
     41; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called 
    4242; via <pro>checkfield</pro>) 
    4343; 
    … …  
    5050; 
    5151; @keyword SSH 
    52 ; array giving the sea level elenation (in meter) that must be added 
     52; array giving the sea level elevation (in meter) that must be added 
    5353; to the thickness of the first level when computing vertical mean 
    5454; 
    … …  
    6868; 
    6969; @history 
    70 ;  Jerome Vialard (jv\@lodyc.jussieu.fr) 
     70;  JérÃŽme Vialard (jv\@lodyc.jussieu.fr) 
    7171;                       2/7/98 
    72 ;                       Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     72;                       Sébastien Masson (smasson\@lodyc.jussieu.fr) 
    7373;                       14/8/98 
    7474;                       15/1/98 
    … …  
    126126  endcase 
    127127;------------------------------------------------------------ 
    128 ;   I.3) Obtainment of scale's factors and of the mask on the subdomain concernedby the average. 
    129 ; Redefinition of the domain ajusted at boxzoom (at 6 elements) 
     128;   I.3) Obtainment of scale's factors and of the mask on the subdomain 
     129;        concerned by the average. 
     130; Redefinition of the domain adjusted at boxzoom (at 6 elements) 
    130131; This will allowed us to calculate only in the domain concerned by the average. 
    131132; Domdef, followed by grid give us all arrays of the grid on the subdomain 
    … …  
    154155    IF taille[1] eq jpi and taille[2] eq jpj THEN $ 
    155156       mmm = mask2D[firstx:lastx, firsty:lasty] ELSE mmm = mask2D 
    156     mask = mask * ( mmm[*] # replicate(1., nz) )  
     157    mask = mask * ( mmm[*] # replicate(1., nz) ) 
    157158  ENDIF 
    158159;--------------------------------------------------------------- 
    … …  
    337338; III.1) Verification of the coherence of the array to average size 
    338339; Verification of the coherence between the array's size and the domain 
    339 ; defind by domdef 
     340; defined by domdef 
    340341; The input array must have either the total domain size (jpi,jpj,jpk) 
    341342; or this one of the reduced domain (nx,ny,ny) 
    … …  
    344345      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq jpk: $ 
    345346        res = tab[firstx:lastx, firsty:lasty, firstz:lastz] 
    346       taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz: $  
     347      taille[1] eq jpi and taille[2] eq jpj and taille[3] eq nz: $ 
    347348        res = tab[firstx:lastx, firsty:lasty, *] 
    348349      taille[1] EQ  nx and taille[2] eq  ny and taille[3] eq nz :res = tab 
    … …  
    571572  ENDIF 
    572573;------------------------------------------------------------ 
    573 ; IV.3) We replace in the domain whch was defined at the entry of average 
     574; IV.3) We replace in the domain which was defined at the entry of average 
    574575;------------------------------------------------------------ 
    575576  if keyword_set(savedbox) THEN restoreboxparam, 'boxparam4moyenne.dat' 

  • trunk/SRC/ToBeReviewed/CALCULS/projectondepth.pro

    r370 r495  
    3333;   ->null field at 1e-6 pres 
    3434; 
    35 ;  verification projecting the temperature of 20°C for example... 
     35;  verification projecting the temperature of 20°C for example... 
    3636; 
    3737; @history 

  • trunk/SRC/ToBeReviewed/CALCULS/remplit.pro

    r327 r495  
    4343;; C'est pas clair, essayez ! 
    4444;; 
    45 ;; 
    4645; 
    4746;    /Nan: to fill the point which have the value 
    4847;    !values.f_nan. Without this keyword, these point are not filling 
    4948;    and stays at !values.f_nan. 
    50 ; 
    5149; 
    5250; @todo seb 
    … …  
    9189;--------------------------------------------------------------- 
    9290; on ajoute un cadre de zero a z, mask, e1, e2 
    93 ; comme ca apres on peut faire des shifts ds tous les sens sans se 
     91; comme ca aprÚs on peut faire des shifts ds tous les sens sans se 
    9492; soucier des bords du domaine! 
    9593;--------------------------------------------------------------- 

  • trunk/SRC/ToBeReviewed/CALCULS/rhon.pro

    r430 r495  
    4242      tn = -1e5 > double(tn) < 1e5 
    4343 
    44  
    4544      IF keyword_set(sigma_n) then insitu = 1 
    4645 
    … …  
    6867      END 
    6968   endcase 
    70  
    71  
    7269 
    7370   FOR jk = 0, jkmax-1 DO BEGIN 
    … …  
    169166   if keyword_set(key_performance) THEN print, 'temps rhon', systime(1)-tempsun 
    170167 
    171  
    172168   return, zrhop 
    173169END 

  • trunk/SRC/ToBeReviewed/CALENDRIER/def_month.pro

    r232 r495  
    33; @file_comments 
    44; 
    5 ; 
    65; @categories 
    7 ; 
    86; 
    97; @param TIMAVE 
    108; 
    11 ; 
    129; @param DATE 
    13 ; 
    1410; 
    1511; @returns 
    1612; 
    17 ; 
    1813; @uses 
    19 ; 
    2014; 
    2115; @restrictions 
    2216; 
    23 ; 
    2417; @examples 
    2518; 
    26 ; 
    2719; @history 
    28 ; 
    2920; 
    3021; @version 
    … …  
    3728; translate month number in string 
    3829; 
    39 ; 
    4030  compile_opt idl2, strictarrsubs 
    4131; 
    4232   IF strpos(date, '_') GT -1 THEN date = strmid(date, 0, strpos(date, '_')) 
    43    CASE strmid(timave, 0, 2) OF  
     33   CASE strmid(timave, 0, 2) OF 
    4434      '1m': BEGIN 
    45          CASE strmid(date, strlen(date)-2, 2) OF  
     35         CASE strmid(date, strlen(date)-2, 2) OF 
    4636            '01': mn = 'January' 
    4737            '02': mn = 'February' 
    … …  
    5747            '12': mn = 'December' 
    5848            ELSE: mn = '???' 
    59          ENDCASE  
    60       END  
     49         ENDCASE 
     50      END 
    6151      '3m': BEGIN 
    62          CASE strmid(date, strlen(date)-2, 2) OF  
     52         CASE strmid(date, strlen(date)-2, 2) OF 
    6353            '01': mn = 'DJF' 
    6454            '02': mn = 'MMA' 
    … …  
    6656            '04': mn = 'SON' 
    6757            ELSE: mn = '???' 
    68          ENDCASE  
    69       END  
     58         ENDCASE 
     59      END 
    7060      ELSE: 
    71    ENDCASE   
     61   ENDCASE 
    7262 
    7363   return, mn 
    74 END  
     64END 

  • trunk/SRC/ToBeReviewed/COULEURS/palit.pro

    r163 r495  
    11;+ 
    2 ; @file_comments  
     2; @file_comments 
    33; Clarify the current palette playing with brightness 
    44; 
    55; @param COEF {in}{required} The rule of attenuation of colors divide by 2 the brightness by default 
    66; 
    7 ; @param RED  
     7; @param RED 
    88; 
    99; @param GREEN 
    … …  
    1111; @param BLUE 
    1212; 
    13 ; @todo Seb: compléter param red/green/blue 
     13; @todo Seb: compléter param red/green/blue 
    1414;- 
    1515PRO palit, coef, red, green, blue 

  • trunk/SRC/ToBeReviewed/GRILLE/changegrid.pro

    r493 r495  
    3030@cm_4mesh 
    3131; 
    32 ; 
    3332   if cmpgrid(newgrid) EQ 0 then return, 0 
    3433; 

  • trunk/SRC/ToBeReviewed/GRILLE/cmpgrid.pro

    r325 r495  
    2929; 
    3030@common 
    31 ; 
    3231; 
    3332; newgrid must be a structure 

  • trunk/SRC/ToBeReviewed/GRILLE/decoupeterre.pro

    r388 r495  
    22; 
    33; @file_comments 
    4 ; Similar to <pro>grille</pro>.  
     4; Similar to <pro>grille</pro>. 
    55; Here, when vargrid is not 'T' or 'W', we have to 
    66; recuperate tmask, glamt, gphit and the array of triangulation on the 
    7 ; considered sub-domain for the drawing.  
    8 ; The specificity of decoupeterre, in comparaison with <pro>grille</pro>, is  
    9 ; that we take, if possible, a sub-domain just a little bit bigger than the  
     7; considered sub-domain for the drawing. 
     8; The specificity of decoupeterre, in comparaison with <pro>grille</pro>, is 
     9; that we take, if possible, a sub-domain just a little bit bigger than the 
    1010; one defined by <pro>domdef</pro> in order to be 
    1111; sure that the mask we draw will cover over all the drawing. 
    … …  
    217217      mask[*, 0] = 0b 
    218218    ENDIF 
    219   ENDIF ELSE BEGIN  
     219  ENDIF ELSE BEGIN 
    220220  case type of 
    221221    'xy':BEGIN 

  • trunk/SRC/ToBeReviewed/GRILLE/domdef.pro

    r493 r495  
    5858; than to values of these arrays. 
    5959; 
    60 ; @keyword TYPE  
     60; @keyword TYPE 
    6161; 
    6262; @keyword XINDEX 

  • trunk/SRC/ToBeReviewed/GRILLE/fmask.pro

    r493 r495  
    55; 
    66; @categories 
    7 ; Grid  
     7; Grid 
    88; 
    99; @returns 

  • trunk/SRC/ToBeReviewed/GRILLE/grille.pro

    r493 r495  
    55; vargrid and send back corresponding parameters calculated in 
    66; <pro>domdef</pro> and reduced at the domain defined by 
    7 ; <pro>domdef</pro> (contrarily to  
     7; <pro>domdef</pro> (contrarily to 
    88; <pro>grandegrille</pro>) 
    99; 
    … …  
    2121; This keyword is used in <pro>plt</pro>. 
    2222; 
    23 ; @keyword GRID {default=vargrid defined in <pro>cm_4data</pro>}  
     23; @keyword GRID {default=vargrid defined in <pro>cm_4data</pro>} 
    2424; To specify on which grid are located the data 
    2525; 
    26 ; @keyword WDEPTH {default=0}  
     26; @keyword WDEPTH {default=0} 
    2727; To specify that the field is at W depth instead of T 
    2828; depth (automatically activated if vargrid eq 'W') 
    … …  
    349349;------------------------------------------------------------ 
    350350;------------------------------------------------------------ 
    351 ; 
    352351; 
    353352  tempdeux = systime(1)         ; For key_performance =2 

  • trunk/SRC/ToBeReviewed/GRILLE/t2v.pro

    r370 r495  
    22; 
    33; @file_comments 
    4 ; Allows to pass a field referring to the grid T on the grid V,  
     4; Allows to pass a field referring to the grid T on the grid V, 
    55; thanks to the average res = 0.5*(res + shift(res, 0, -1)) 
    6 ;  
    7 ; @categories  
     6; 
     7; @categories 
    88; Grid 
    99; 
    … …  
    1717; <pro>common</pro> 
    1818; 
    19 ; @restrictions  
    20 ; Force parameters of the zoom on the grid V to be the same as  
     19; @restrictions 
     20; Force parameters of the zoom on the grid V to be the same as 
    2121; those on the grid T. 
    2222; 
    23 ; @restrictions  
    24 ; Points which can not be calculated are put at the value NaN  
     23; @restrictions 
     24; Points which can not be calculated are put at the value NaN 
    2525; consecrated by IDL: !values.f_nan 
    2626; 
    … …  
    6161; case on tha array's size and application 
    6262   taille = size(temp) 
    63    CASE taille[0] OF  
     63   CASE taille[0] OF 
    6464      1: res = -1 
    65       2: BEGIN  
     65      2: BEGIN 
    6666         case 1 of 
    6767            taille[1] eq nxt and taille[2] eq nyt: 
    … …  
    7272         endcase 
    7373         mask = tmask[firstxt:lastxt, firstyt:lastyt, 0] 
    74          terre = where(mask EQ 0)  
     74         terre = where(mask EQ 0) 
    7575         IF terre[0] NE -1 THEN res[terre] = !values.f_nan 
    7676         res = 0.5*(res + shift(res, 0, -1)) 
    7777         res[*, nyt-1] = !values.f_nan 
    7878         mask = (vmask())[firstxt:lastxt, firstyt:lastyt, 0] 
    79          terre = where(mask EQ 0)  
     79         terre = where(mask EQ 0) 
    8080         IF terre[0] NE -1 THEN res[terre] = valmask 
    8181      END 
    82       3: BEGIN  
     82      3: BEGIN 
    8383         case 1 of 
    8484            taille[1] eq nxt and taille[2] eq nyt AND taille[3] EQ nzt: 
    … …  
    9898            mask = reform(mask, nxt, nyt, jpt, /over) 
    9999         ENDIF ELSE mask = tmask[firstxt:lastxt, firstyt:lastyt, firstzt:lastzt] 
    100          terre = where(temporary(mask) EQ 0)  
     100         terre = where(temporary(mask) EQ 0) 
    101101         IF terre[0] NE -1 THEN res[temporary(terre)] = !values.f_nan 
    102102         res = 0.5*(res + shift(res, 0, -1, 0)) 
    … …  
    107107            mask = reform(mask, nxt, nyt, jpt, /over) 
    108108         ENDIF ELSE mask = (vmask())[firstxt:lastxt, firstyt:lastyt, firstzt:lastzt] 
    109          terre = where(temporary(mask) EQ 0)  
     109         terre = where(temporary(mask) EQ 0) 
    110110         IF terre[0] NE -1 THEN res[temporary(terre)] = valmask 
    111111      END 
    112       4: BEGIN  
     112      4: BEGIN 
    113113         case 1 of 
    114114            taille[1] eq nxt and taille[2] eq nyt AND taille[3] EQ nzt AND taille[4] EQ jpt: 
    … …  
    123123         mask = temporary(mask[*])#replicate(1, jpt) 
    124124         mask = reform(mask, nxt, nyt, nzt, jpt, /over) 
    125          terre = where(temporary(mask) EQ 0)  
     125         terre = where(temporary(mask) EQ 0) 
    126126         IF terre[0] NE -1 THEN res[temporary(terre)] = !values.f_nan 
    127127         res = 0.5*(res + shift(res, 0, -1, 0, 0)) 
    … …  
    130130         mask = temporary(mask[*])#replicate(1, jpt) 
    131131         mask = reform(mask, nxt, nyt, nzt, jpt, /over) 
    132          terre = where(temporary(mask) EQ 0)  
     132         terre = where(temporary(mask) EQ 0) 
    133133         IF terre[0] NE -1 THEN res[temporary(terre)] = valmask 
    134134      END 
    … …  
    137137  IF NOT keyword_set(key_forgetold) THEN BEGIN 
    138138   @updateold 
    139   ENDIF  
     139  ENDIF 
    140140 
    141141   return, res 

  • trunk/SRC/ToBeReviewed/GRILLE/umask.pro

    r493 r495  
    55; 
    66; @categories 
    7 ; Grid  
     7; Grid 
    88; 
    99; @returns 

  • trunk/SRC/ToBeReviewed/GRILLE/vmask.pro

    r493 r495  
    55; 
    66; @categories 
    7 ; Grid  
     7; Grid 
    88; 
    99; @returns 

  • trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro

    r370 r495  
    238238   return 
    239239end 
    240  
    241  

  • trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro

    r327 r495  
    6060; $Id$ 
    6161; 
    62 ; @todo  
     62; @todo 
    6363; seb 
    6464; 

  • trunk/SRC/ToBeReviewed/HOPE/findlineandpointtype.pro

    r325 r495  
    6868;    even        T          u          T          u             90.0 
    6969; 
    70 ; 
    7170; high resolution grid: jpi=256, jpj=195 ( x 2), jpk=29 
    7271; 
    … …  
    7675;    odd                    T          u          T          u  90.5 
    7776;    even        T          u          T          u             90.0 
    78 ; 
    7977; 
    8078   x0 = floor(xaxis[0]*10)/10. 

  • trunk/SRC/ToBeReviewed/HOPE/read_hope.pro

    r493 r495  
    282282;     For an YZ section the chosen variable is the one which has 
    283283; the most points in the longitude domain specified by XLIMITS. 
    284 ; 
    285284; 
    286285; @examples 
    … …  
    583582  *top_uvalue[0, 17] = 'tlimits' & *top_uvalue[1, 17] = testvar(var = tlimits) 
    584583 
    585  
    586584  widget_control, base, set_uvalue = top_uvalue 
    587585  rh_alldomains, base, selected 

  • trunk/SRC/ToBeReviewed/HOPE/sortdim.pro

    r325 r495  
    3939;              0           1           3           2 
    4040; 
    41 ; 
    42 ; 
    43 ; 
    4441  compile_opt idl2, strictarrsubs 
    4542; 

  • trunk/SRC/ToBeReviewed/IMAGE/animgif.pro

    r493 r495  
    6666   write_gif,iodir+nomfic,tvrd(),red, green, blue, /multiple 
    6767; 
    68 ; 
    6968;---------------------------------------------------------------- 
    7069; Beginning of the part we want to change. 
    … …  
    117116   ENDCASE 
    118117 
    119  
    120118   return 
    121119end 

  • trunk/SRC/ToBeReviewed/INIT/initncdf.pro

    r467 r495  
    22; 
    33; @file_comments 
    4 ; Initfile for Netcdf file. define all the grid parameters through 
     4; Initfile for netCDF file. define all the grid parameters through 
    55; an appropriate call to <pro>computegrid</pro> 
    66; 
    … …  
    99; 
    1010; @param ncfilein {in}{required}{type=scalar string} 
    11 ; A string giving the name of the NetCdf file 
     11; A string giving the name of the netCDF file 
    1212; 
    1313; @keyword START1 {default=0}{type=scalar: 0 or 1} 
    … …  
    4949; 
    5050; @keyword _EXTRA 
    51 ; Used to pass keywords to <pro>computegrid</pro>,  
     51; Used to pass keywords to <pro>computegrid</pro>, 
    5252; <pro>ncdf_getaxis</pro>, <pro>ncdf_getmask</pro> and <pro>isafile</pro> 
    5353; 

  • trunk/SRC/ToBeReviewed/INIT/initncdfxxx.pro

    r142 r495  
    1010;    initncdf, 'sst.wkmean.1990-present.nc', mask = 'mask' 
    1111; 
    12 ; 
    1312  iodir = '/d1fes2-raid6/smasson/' 
    1413   initncdf, 'outatm.nc' 

  • trunk/SRC/ToBeReviewed/INIT/initorca05.pro

    r325 r495  
    11;+ 
    22; 
    3 ; @todo  
     3; @todo 
    44; seb 
    5 ;  
     5; 
    66;- 
    77@cm_4mesh 

  • trunk/SRC/ToBeReviewed/INIT/initorca2full.pro

    r358 r495  
    11;+ 
    22; 
    3 ; @todo  
     3; @todo 
    44; seb 
    55; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/TABLES/usertables.txt

    r67 r495  
    2323[This is the preferred search order for foreign-language parameter tables.] 
    2424 
    25  
    2625The name of the user-defined table is searched for in  
    2726 
    … …  
    3736      setenv GRIBTAB ~/data/gribtab                   (csh) 
    3837      GRIBTAB=$HOME/data/gribtab ; export GRIBTAB     (sh) 
    39  
    40  
    4138 
    4239The format of the GRIBTAB file is 

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

    r327 r495  
    22; @file_comments 
    33; 
    4 ; 
    54; @categories 
    6 ; 
    75; 
    86; @param BITIN 
    97; 
    10 ; 
    118; @keyword CHECKNEG 
    12 ; 
    139; 
    1410; @returns 
    1511; 
    16 ; 
    1712; @uses 
    18 ; 
    1913; 
    2014; @restrictions 
    2115; 
    22 ; 
    2316; @examples 
    2417; 
    25 ; 
    2618; @history 
    27 ; 
    2819; 
    2920; @version 

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

    r327 r495  
    5050;    FOR i = 1L, n_elements(recstart)-1 DO $ 
    5151;      addoff[i] = recstart[i]-recstart[i-1]-messize[i-1] 
    52 ; 
    5352; 
    5453;    nbits = scan_grib_nbits(num, recstart) 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    129; 
    13 ; 
    14 ; @param NI  
    15 ;  
     10; @param NI 
    1611; 
    1712; @param NJ 
    18 ;  
    19 ;  
     13; 
    2014; @returns 
    21 ;  
    22 ;  
     15; 
    2316; @restrictions 
    24 ;  
    25 ;  
     17; 
    2618; @examples 
    2719; 
    28 ; 
    2920; @history 
    30 ;  
    3121; 
    3222; @version 
    … …  
    3424;- 
    3525FUNCTION read_grib_bds, num, recstart, ni, nj 
    36 ; 
    3726; 
    3827  compile_opt idl2, strictarrsubs 
    … …  
    6352; 
    6453  sizebds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])]) 
    65                                 ;  
     54                                ; 
    6655  flags = binary(a[4]) 
    6756; BIT VALUE MEANING 
    6857; 1   0     Grid point data 
    6958;     1     Spherical Harmonic Coefficients 
    70 ; 2   0     Simple packing  
    71 ;     1     Second order ("Complex") Packing  
     59; 2   0     Simple packing 
     60;     1     Second order ("Complex") Packing 
    7261; 3   0     Original data were floating point values 
    7362;     1     Original data were integer values 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param OFFSET 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    2719; $Id$ 
     20; 
    2821;- 
    2922PRO read_grib_end,  num, offset 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    129; 
    13 ;  
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION read_grib_gds, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 
    … …  
    4031; 
    4132  sizegds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])]) 
    42 ;  
     33; 
    4334  nv = (a[4])[0] 
    4435  pv = (a[5])[0] 
    … …  
    8374    gridtype EQ 2: 
    8475; Lambert Conformal, secant or tangent, conical or bipolar (normal or 
    85 ; oblique) Projection Grid   
     76; oblique) Projection Grid 
    8677    gridtype EQ 3: 
    8778; Polar Stereographic Projection Grid 

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

    r325 r495  
    1 ;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
    5 ; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    9 ; 
    101; 
    112; @param OFFSET 
    12 ;  
    133; 
    144; @returns 
    15 ;  
    16 ;  
     5; 
    176; @restrictions 
    18 ;  
    19 ;  
     7; 
    208; @examples 
    219; 
    22 ; 
    2310; @history 
    24 ;  
    2511; 
    2612; @version 
    … …  
    3723  typefile = string(a[0]) 
    3824  IF  typefile NE 'GRIB' THEN stop 
    39    
     25 
    4026; 
    4127  a = assoc(num, bytarr(1, /nozero), offset+4) 
    4228  sizerecord = bit2int([binary(a[0]), binary(a[1]), binary(a[2])]) 
    43 ;   
     29; 
    4430  a = assoc(num, bytarr(1, /nozero), offset+7) 
    4531  gribed = a[0] 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION read_grib_pds, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 
    … …  
    3627; 
    3728  sizepds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])]) 
    38  ;  
     29 ; 
    3930  paramtableversion = (a[4])[0] 
    40  ;  
     31 ; 
    4132  centerid = (a[5])[0] 
    42  ;  
     33 ; 
    4334  procid = (a[6])[0] 
    44  ;  
     35 ; 
    4536  gridid = (a[7])[0] 
    4637; 
    … …  
    5142  paramunitid = (a[9])[0] 
    5243; 
    53   levtype = (a[10])[0]   
     44  levtype = (a[10])[0] 
    5445  levalue1 = (a[11])[0] 
    5546  levalue2 = (a[12])[0] 
    … …  
    7465;......... 
    7566 
    76  
    7767  RETURN, {size:sizepds, gdsnotomitted:gdsnotomitted, bmsnotomitted:bmsnotomitted, d:d} 
    7868END 

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

    r371 r495  
    66; @categories 
    77; 
    8 ; 
    98; @param TABLENAME {in}{required} 
    109; The full path name of a gribtable file 
    … …  
    1211; @keyword PARMTABL 
    1312; 
    14 ; 
    1513; @keyword CENTER 
    16 ; 
    1714; 
    1815; @keyword SUBCENTER 
    1916; 
    20 ; 
    2117; @keyword TABLNUM 
    22 ; 
    2318; 
    2419; @returns 
    2520; 
    26 ; 
    2721; @uses 
    2822; 
    29 ; 
    3023; @restrictions 
    31 ; 
    3224; 
    3325; @examples 
    … …  
    4638  compile_opt idl2, strictarrsubs 
    4739; 
    48    
     40 
    4941ON_ERROR,2 
    5042 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION scan_grib_code, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION scan_grib_date, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 
    … …  
    3829    offset = recstart[i] 
    3930    a = assoc(num, bytarr(1, /nozero), offset+8-1) 
    40     dates[i] = (a[13]+100L*(a[25]-1))*10000L+a[14]*100L+a[15] 
     31    dates[i] = (a[13]+ 100L *(a[25]-1)) * 10000L + a[14] * 100L + a[15] 
    4132  ENDFOR 
    4233; 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION scan_grib_messize, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 

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

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    9 ;  
     5; 
     6; @param NUM 
    107; 
    118; @returns 
    12 ;  
    13 ;  
     9; 
    1410; @restrictions 
    15 ;  
    16 ;  
     11; 
    1712; @examples 
    1813; 
    19 ; 
    2014; @history 
    21 ;  
    2215; 
    2316; @version 
    … …  
    8073; 
    8174    start = [start, offset] 
    82 ;     
     75; 
    8376    a = assoc(num, bytarr(1, /nozero), offset+4) 
    8477    recsize = bit2int([binary(a[0]), binary(a[1]), binary(a[2])]) 
    … …  
    9083out: 
    9184; 
    92   RETURN, start[1:n_elements(start)-1]  
     85  RETURN, start[1:n_elements(start)-1] 
    9386END 

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

    r371 r495  
    1717; 
    1818;  (d1, d2...) are the output dimensions 
    19 ; 
    2019; 
    2120; @returns 

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

    r493 r495  
    77;   - a structure, litchamp send back the first element of the structure 
    88;   which must be the field in an array. 
    9 ; litchamp profit of this to look other elements of the structure and  
     9; litchamp profit of this to look other elements of the structure and 
    1010; update if needed global variables which refer to the field: 
    1111; vargrid, varname, varunit, vardate, varexp , valmask et time 
    … …  
    8989;   IDL> print, vargrid,', ', varname,', ', varunit,', ', vardate,', ', varexp 
    9090;    T, toto, C, 1999, 
    91 ; 
    9291; 
    9392; @history 

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

    r493 r495  
    33; @file_comments 
    44; Reading function for the file net_cdf. 
    5 ; This program is less universal than <pro>ncdf_lec</pro> (it appeal to  
    6 ; declared variables in <pro>common</pro>) but it is very easier to be used.  
     5; This program is less universal than <pro>ncdf_lec</pro> (it appeal to 
     6; declared variables in <pro>common</pro>) but it is very easier to be used. 
    77; It considerate 
    88; the declaration of the different zooms which have been defined 
    99; (ixminmesh...premierx...), the declaration of the variable key_shift... 
    10 ; To put it in a nutshell, the result of read_ncdf can be directly used in  
     10; To put it in a nutshell, the result of read_ncdf can be directly used in 
    1111; <pro>plt</pro> ... 
    1212; 
    … …  
    4646; 
    4747; @keyword CALLITSELF {default=0}{type=scalar: 0 or 1} 
    48 ; For ROMS outputs. Use by read_ncdf itself to access auxiliary data  
     48; For ROMS outputs. Use by read_ncdf itself to access auxiliary data 
    4949; (h and zeta). 
    5050; 
    … …  
    6868; 
    6969; @keyword TIMESTEP {default=0}{type=scalar: 0 or 1} 
    70 ; Specify that BEGINNING and ENDING refer to indexes of the time axis and not  
     70; Specify that BEGINNING and ENDING refer to indexes of the time axis and not 
    7171; to dates 
    7272; 
    … …  
    9595; 
    9696; @returns 
    97 ; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is  
     97; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is 
    9898; activated. 
    9999; 
    … …  
    189189      firsttps = long(beginning[0]) 
    190190      IF n_elements(ending) NE 0 THEN lasttps = long(ending[0]) ELSE lasttps = firsttps 
    191       IF NOT keyword_set(callitself) then BEGIN  
     191      IF NOT keyword_set(callitself) then BEGIN 
    192192        time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex) 
    193193        jpt = lasttps-firsttps+1 
    … …  
    210210    keyword_set(allrecords) OR n_elements(beginning) EQ 0:BEGIN 
    211211      time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex) 
    212       IF time[0] LT 0 then BEGIN  
     212      IF time[0] LT 0 then BEGIN 
    213213        jpt = -time[0] 
    214214        time = julday(1, 1, 1) + lindgen(jpt) 

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

    r493 r495  
    88; 
    99; @param NAME {in}{optional}{type=string} 
    10 ; It give the name of the file to be opened.  
     10; It give the name of the file to be opened. 
    1111; 
    1212; If NAME 
    … …  
    2121; 
    2222; @keyword COUNT {type=vector} 
    23 ; An optional vector containing the counts to be used in reading Value.  
     23; An optional vector containing the counts to be used in reading Value. 
    2424; 
    2525; COUNT is a 1-based vector with an element for 
    … …  
    3030; 
    3131; @keyword GROUP 
    32 ; The widget ID of the widget that calls XNCDF_LEC.  
     32; The widget ID of the widget that calls XNCDF_LEC. 
    3333; 
    3434; When this ID is specified, a death of the caller results in a death 
    … …  
    4242; A vector of integers, specifying for each dimension how much we have to shift it. 
    4343; 
    44 ; See the function <proidl>SHIFT</proidl> for more explanations.  
     44; See the function <proidl>SHIFT</proidl> for more explanations. 
    4545; 
    4646; BEWARE, 
    4747; the shift is done on the biggest array before a possible reduction determined 
    48 ; by OFFSET and COUNT.  
     48; by OFFSET and COUNT. 
    4949; 
    5050; On the other hand, it is done after the possible extraction 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro

    r493 r495  
    150150; specified min/max are not filled. Note that max values a considered 
    151151; as missing values so cells containing one or more corners with 
    152 ; values above max will have no contours drawn through them.   
     152; values above max will have no contours drawn through them. 
    153153; 
    154154; @keyword STYLE {default=style=0} 
    … …  
    347347  IF keyword_set(strictfill) THEN BEGIN 
    348348    tmp = z2d ge max 
    349     IF total(tmp GE 1) THEN BEGIN  
     349    IF total(tmp GE 1) THEN BEGIN 
    350350      tmp = 1b - byte(extrapolate(tmp, tmp, 1, x_periodic = keyword_set(key_periodic)*(nx EQ jpi) )) 
    351351      trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $ 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt1d.pro

    r378 r495  
    1111; 1) An array which can be: 
    1212; 
    13 ;   * 2d, 3d or 4d:  array xy, xyz. xyt or xyzt. In this case, the array  
    14 ;     will pass in <pro>moyenne</pro> or <pro>grossemoyenne</pro> to be  
     13;   * 2d, 3d or 4d:  array xy, xyz. xyt or xyzt. In this case, the array 
     14;     will pass in <pro>moyenne</pro> or <pro>grossemoyenne</pro> to be 
    1515;     averaged and become an array 1d. 
    16 ;   * 1d:Nevertheless, the type must be specified in order to we know which  
    17 ;     trace it is about. To have a correct caption, respecify the extraction  
     16;   * 1d:Nevertheless, the type must be specified in order to we know which 
     17;     trace it is about. To have a correct caption, respecify the extraction 
    1818;     zone via BOXZOOM. 
    1919; 2) a structure respecting all criterions specified by <pro>litchamp</pro> 
    … …  
    3333; 
    3434; @keyword BOXZOOM 
    35 ; Vector indicating the geographic zone (3d) on which the extraction of the  
     35; Vector indicating the geographic zone (3d) on which the extraction of the 
    3636; field must be done to do the hovmoeller. 
    3737; 
    … …  
    4343; 6 elements: The extraction is made on Boxzoom 
    4444; 
    45 ; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at  
     45; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at 
    4646; the last <pro>domdef</pro> ! 
    4747; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltsc.pro

    r327 r495  
    101101   IF finite(max2) EQ 0 THEN max2 = max(tab2) 
    102102 
    103  
    104103; init plot if not overlay 
    105104 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

    r493 r495  
    44; Trace hovmoeller graphs: xt,yt,zt,t 
    55; 
    6 ; @categories  
     6; @categories 
    77; Graphics 
    88; 
    … …  
    2323; 2) a structure respecting all criterions specified by <pro>litchamp</pro> 
    2424;    The array contained in the structure respecting criterions of case 1) 
    25 ;  
     25; 
    2626; @param GIVENTYPE 
    2727; 
    … …  
    5252; 6 elements: The extraction is made on Boxzoom 
    5353; 
    54 ; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at the last  
     54; Where lon1, lon2,lat1,lat2,vert1,vert2 are global variables defined at the last 
    5555; <pro>domdef</pro> ! 
    5656; 
    … …  
    153153; specified min/max are not filled. Note that max values a considered 
    154154; as missing values so cells containing one or more corners with 
    155 ; values above max will have no contours drawn through them.   
     155; values above max will have no contours drawn through them. 
    156156; 
    157157; @keyword STYLE {default=style=0} 
    … …  
    198198; $Id$ 
    199199; 
    200 ; @todo  
     200; @todo 
    201201; seb: definition of parameters, L.426 à 427, L. 492 à 493 
    202202; 
    … …  
    475475      IF keyword_set(strictfill) THEN BEGIN 
    476476        tmp = z2d ge max 
    477         IF total(tmp GE 1) THEN BEGIN  
     477        IF total(tmp GE 1) THEN BEGIN 
    478478          tmp = 1b - byte(extrapolate(tmp, tmp, 1)) 
    479479          key_save = key_periodic & key_periodic = 0 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro

    r479 r495  
    44; Draw 2d plots with TV procedure 
    55; 
    6 ; @categories  
     6; @categories 
    77; find a file 
    88; graphic 
    … …  
    3232; 6 elements: The extraction is made on Boxzoom 
    3333; 
    34 ; Where lon1, lon2, lat1, lat2 are global variables defined at the last  
     34; Where lon1, lon2, lat1, lat2 are global variables defined at the last 
    3535; <pro>domdef</pro> ! 
    3636; 
    … …  
    6060; @keyword _EXTRA 
    6161; Used to pass keywords to <pro>placedessin</pro>, <proidl>TV</proidl>, 
    62 ; <pro>axe</pro>, <pro>legende</pro>, <pro>barrecouleur</pro>,  
     62; <pro>axe</pro>, <pro>legende</pro>, <pro>barrecouleur</pro>, 
    6363; <pro>terminedessin</pro> 
    6464; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro

    r493 r495  
    3434; 6 elements: The extraction is made on Boxzoom 
    3535; 
    36 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     36; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    3737; <pro>domdef</pro> ! 
    3838; 
    … …  
    8585; 
    8686; @keyword ZRATIO {default=2./3} 
    87 ; When the drawing has a zoomed part, it is the size ratio between the zoomed  
     87; When the drawing has a zoomed part, it is the size ratio between the zoomed 
    8888; part, hz (zoom height), and the whole drawing, ht (total height). 
    8989; 
    … …  
    115115; @keyword NOMASK 
    116116; activate to suppress the use of the land-sea mask when plotting the field 
    117 ;  
     117; 
    118118; @keyword NO_PARTIALSTEP 
    119119; activate to suppress the use of partial steps (force key_partialstep = 0 within pltz) 
    … …  
    144144; specified min/max are not filled. Note that max values a considered 
    145145; as missing values so cells containing one or more corners with 
    146 ; values above max will have no contours drawn through them.   
     146; values above max will have no contours drawn through them. 
    147147; 
    148148; @keyword STYLE {default=style=0} 
    … …  
    174174; $Id$ 
    175175; 
    176 ; @todo  
     176; @todo 
    177177; seb definition of parameters L.215 à 221 
    178178; 
    … …  
    211211; 
    212212  if n_elements(contour) ne 4 THEN saveboxparam, 'boxparam4pltz.dat' 
    213   key_partialstep = keyword_set(key_partialstep) * (1b - keyword_set(no_partialstep))  
     213  key_partialstep = keyword_set(key_partialstep) * (1b - keyword_set(no_partialstep)) 
    214214;-------------------------------------------------------------- 
    215215;  Reading of the field. 
    … …  
    278278  z2d = reverse(z2d, 2) 
    279279  szmsk = size(mask, /dimensions) 
    280   IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1])  
     280  IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1]) 
    281281  IF keyword_set(maskdta) THEN mask = byte(fitintobox(maskdta)) 
    282282;----------------------------------------------------------------------------- 
    … …  
    328328  IF keyword_set(strictfill) THEN BEGIN 
    329329    tmp = z2d ge max 
    330     IF total(tmp GE 1) THEN BEGIN  
     330    IF total(tmp GE 1) THEN BEGIN 
    331331      tmp = 1b - byte(extrapolate(tmp, tmp, 1)) 
    332332      key_save = key_periodic & key_periodic = 0 
    … …  
    376376    axis4pltz, type, mask, glammsk, gphimsk, gdepmsk, XXAXIS = xmask, ZZAXIS = zmask, SIN = sin, ZRATIO = zratio, ZOOM = zoom, PROFMAX = profmax, PROFMIN = profmin, _extra = ex 
    377377    szmsk = size(mask, /dimensions) 
    378     IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1])  
     378    IF keyword_set(nomask) THEN mask = replicate(1b, szmsk[0], szmsk[1]) 
    379379  ENDIF ELSE BEGIN 
    380380    xmask = xxaxis 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

    r471 r495  
    22; 
    33; @file_comments 
    4 ; Same thing that bar_plot but compatible with the whole environment  
     4; Same thing that bar_plot but compatible with the whole environment 
    55; (<pro>common</pro> included) 
    66; 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

    r493 r495  
    22; 
    33; @file_comments 
    4 ; Same thing that contour but compatible with the whole environment  
     4; Same thing that contour but compatible with the whole environment 
    55; (<pro>common</pro> included) 
    66; 
    … …  
    1919; 
    2020; @examples 
    21 ;  
     21; 
    2222;   IDL> z = dist(100) 
    2323;   IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro

    r493 r495  
    22; 
    33; @file_comments 
    4 ; Same thing than plot but compatible with the whole environment  
     4; Same thing than plot but compatible with the whole environment 
    55; (<pro>common</pro> included) 
    66; 
    … …  
    2020; @restrictions 
    2121; If NOREINITPLT is not activated, all environment 
    22 ; variables !p, !x, !y, !z are reinitialized by the procedure  
     22; variables !p, !x, !y, !z are reinitialized by the procedure 
    2323; <pro>reinitplt</pro> 
    2424; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro

    r378 r495  
    22; 
    33; @file_comments 
    4 ; Add an axis when we do an oblique section in <pro>pltz</pro>,  
     4; Add an axis when we do an oblique section in <pro>pltz</pro>, 
    55; <pro>pltt</pro> or <pro>plt1d</pro> 
    66; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro

    r493 r495  
    1515; 
    1616; @param CI {out} {type=real} 
    17 ; the contour interval. Use it in <proidl>CONTOUR</proidl> with the  
     17; the contour interval. Use it in <proidl>CONTOUR</proidl> with the 
    1818; keyword LEVEL. 
    1919; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro

    r378 r495  
    2727; 
    2828; @keyword ZRATIO {default=2./3} 
    29 ; When the drawing has a zoomed part, it is the size ratio between the zoomed  
     29; When the drawing has a zoomed part, it is the size ratio between the zoomed 
    3030; part, hz (zoom height), and the whole drawing, ht (total height). 
    3131; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro

    r378 r495  
    1515; 
    1616; @param NAME {in}{optional}{type=string} 
    17 ; It gives the name of the file to be opened.  
     17; It gives the name of the file to be opened. 
    1818; 
    1919; If NAME 
    … …  
    162162; 6 elements: The extraction is made on Boxzoom 
    163163; 
    164 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     164; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    165165; <pro>domdef</pro> ! 
    166166; 
    … …  
    171171; @keyword VECTEUR{type=vector} 
    172172; It is a structure composed by 2 elements containing the 2 fields U 
    173 ; and V of values of the zonal and meridian component of the vector of  
     173; and V of values of the zonal and meridian component of the vector of 
    174174; the fields to draw. 
    175175; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checktypeminmax.pro

    r370 r495  
    169169    ENDWHILE 
    170170; 
    171 ; 
    172  
    173171    return 
    174172  end 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro

    r378 r495  
    105105  ENDIF 
    106106 
    107  
    108107  return 
    109108end 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro

    r479 r495  
    4040     IF NOT keyword_set(dpi) THEN dpi = 72 
    4141     coef = dpi/2.54 ; 1 inch = 2.54 cm 
    42    ENDIF ELSE BEGIN  
     42   ENDIF ELSE BEGIN 
    4343     dimensions = get_screen_size(RESOLUTION = resolution) 
    4444     coef = floor(1./resolution[0]) 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

    r378 r495  
    44; allows to trace the independently from a graph 
    55; 
    6 ; By default, trace a color bar of the same type than the one present in  
     6; By default, trace a color bar of the same type than the one present in 
    77; <pro>plt</pro> 
    88; and <pro>pltz</pro>. 
    … …  
    3535; 
    3636; @todo 
    37 ; reference to plein2dessin in restriction not understable : 
     37; reference to plein2dessin in restriction not understand : 
    3838; plein2dessin does'nt exist. 
    3939; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro

    r480 r495  
    88; 
    99; @param TYPEDESSIN {type=string} 
    10 ; It specify what procedure is called by <pro>placedessin</pro> :  
     10; It specify what procedure is called by <pro>placedessin</pro> : 
    1111; 'plt', 'pltz' or 'pltt' 
    1212; 
    … …  
    1515; 
    1616; Comment: To position the drawing, we have to do !p.position=posfenetre 
    17 ; after the call of the caliber 
     17; after the call of the calibre 
    1818; 
    1919; @param POSBAR {out}{type=vector} 
    … …  
    6464; small portion of a page or screen. It delimit the zone where the drawing will be done. 
    6565; 
    66 ; If there is 4 elements then is constituted of coordinates (expressed in cm  
    67 ; located from the up and left corner of the page or the window (in portrait  
    68 ; like in landscape) of the bottom and left corner and of the up and right  
     66; If there is 4 elements then is constituted of coordinates (expressed in cm 
     67; located from the up and left corner of the page or the window (in portrait 
     68; like in landscape) of the bottom and left corner and of the up and right 
    6969; corner of the drawing zone. 
    7070; 
    71 ; If there is 3 elements, we divide the page or the screen in small[0] columns  
    72 ; and in small[1] lines, the drawing is made in the box numbered small[2].  
     71; If there is 3 elements, we divide the page or the screen in small[0] columns 
     72; and in small[1] lines, the drawing is made in the box numbered small[2]. 
    7373; 
    7474; The numerotation starting up and left by 
    7575; the number 1 and then, following the writing direction. 
    7676; 
    77 ; By default, we make the largest drawing we can do, conserving the aspect  
     77; By default, we make the largest drawing we can do, conserving the aspect 
    7878; ratio (except when REMPLI is activated). 
    7979; 
    … …  
    8282; 
    8383; @keyword POST 
    84 ; Make a postscript.  
     84; Make a postscript. 
    8585; 
    8686; Only works if we made one drawing on the page. 
    … …  
    103103; whose we have the colored drawing (by example E-P in color and QSR in contours). 
    104104; 
    105 ; It must be a field respecting same characteristics than the argument number  
     105; It must be a field respecting same characteristics than the argument number 
    106106; one of <pro>plt</pro>. 
    107107; 
    108108; @keyword ENDPOINTS 
    109 ; keyword specifying that we want to make a vertical cut in diagonal.  
    110 ; 
    111 ; Then coordinated of extremities of these ones are defined by the 4 elements  
     109; keyword specifying that we want to make a vertical cut in diagonal. 
     110; 
     111; Then coordinated of extremities of these ones are defined by the 4 elements 
    112112; of the vector ENDPOINTS: [x1,y1,x2,y2] which are coordinates. 
    113113; 
    … …  
    115115; It is a structure composed by 2 elements containing the 2 fields U 
    116116; and V of values of the zonal and meridian component of the vector of the fields 
    117 ; to draw.  
     117; to draw. 
    118118; 
    119119; These fields can be an array or a structure. 
    … …  
    255255        device, set_resolution = windsize 
    256256        erase 
    257       ENDIF ELSE BEGIN  
     257      ENDIF ELSE BEGIN 
    258258        if not keyword_set(window) then winnumb = 0 ELSE winnumb = window 
    259259        window, winnumb, xsize = windsize[0], ysize = windsize[1],  retain = 2, _extra = ex 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/saveatt.pro

    r378 r495  
    22; 
    33; @file_comments 
    4 ; Allows to put in a structure attributes which can be associated with  
     4; Allows to put in a structure attributes which can be associated with 
    55; a variable. 
    66; 

  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro

    r378 r495  
    88; 
    99; @keyword POST 
    10 ; Make a postscript.  
     10; Make a postscript. 
    1111; 
    1212; Only works if we made one drawing on the page. 
    … …  
    1515; @keyword SMALL {type=vector} 
    1616; Vector composed of 3 or 4 elements, applied to make a drawing on a 
    17 ; small portion of a page or screen.  
     17; small portion of a page or screen. 
    1818; 
    1919; It delimit the zone where the drawing will be done. 
    2020; 
    21 ; If there is 4 elements then is constituted of coordinates (expressed in cm  
    22 ; located from the up and left corner of the page or the window (in portrait  
    23 ; like in landscape)) of the bottom and left corner and of the up and right  
     21; If there is 4 elements then is constituted of coordinates (expressed in cm 
     22; located from the up and left corner of the page or the window (in portrait 
     23; like in landscape)) of the bottom and left corner and of the up and right 
    2424; corner of the drawing zone. 
    2525; 
    26 ; If there is 3 elements we divide the page or the screen in small[0] columns  
    27 ; and in small[1] lines and the drawing is made in the box numbered small[2].  
     26; If there is 3 elements we divide the page or the screen in small[0] columns 
     27; and in small[1] lines and the drawing is made in the box numbered small[2]. 
    2828; 
    29 ; The numerotation starting up and left by the number 1 and then, following  
     29; The numerotation starting up and left by the number 1 and then, following 
    3030; the writing direction. 
    3131; 
    32 ; By default, we make the largest drawing we can do, conserving the aspect  
     32; By default, we make the largest drawing we can do, conserving the aspect 
    3333; ration (except when REMPLI is activated). 
    3434; 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/label.pro

    r479 r495  
    22; 
    33; @file_comments 
    4 ; Allows to choose the type of the label we want to use at the time of a  
     4; Allows to choose the type of the label we want to use at the time of a 
    55; contour. 
    66; 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/label_date.pro.new

    r39 r495  
    119119;                Added AM_PM and DAYS_OF_WEEK keywords, '%A' and '%W' codes. 
    120120;- 
    121  
    122121 
    123122;-------------------------------------------------- LABEL_DATE_CONVERT_FORMAT 
    … …  
    178177END 
    179178 
    180  
    181179;----------------------------------------------------------------- LABEL_DATE 
    182180FUNCTION LABEL_DATE, axisIn, indexIn, valueIn, levelIn, $ 
    … …  
    193191        ON_ERROR, 2 
    194192 
    195  
    196193        IF (N_PARAMS() LT 3) THEN $  ; use default for no inputs 
    197194                IF NOT KEYWORD_SET(dateFormat) THEN dateFormat='' 
    198  
    199195 
    200196; process a new months vector? 
    … …  
    207203        if (N_ELEMENTS(months) EQ 12) then cMonths = months 
    208204 
    209  
    210205; process a new days_of_week vector? 
    211206        ; if days_of_week is undefined, then make cDaysWeek undefined 
    … …  
    217212        if (N_ELEMENTS(days_of_week) EQ 7) then cDaysWeek = days_of_week 
    218213 
    219  
    220214; process a new AM_PM vector? 
    221215        ; if AM_PM is undefined, then make cAmpm undefined 
    … …  
    227221        if (N_ELEMENTS(am_pm) EQ 2) then cAmpm = am_pm 
    228222 
    229  
    230223; process a new cOffset? 
    231224        IF ARG_PRESENT(offs) THEN cOffset = 0 
    … …  
    234227        IF (N_ELEMENTS(cOffset) EQ 0) THEN cOffset = 0d 
    235228 
    236  
    237229; process a new cRoundup? 
    238230        IF (N_ELEMENTS(round_up) GT 0) THEN cRoundup = KEYWORD_SET(round_up) 
    239  
    240231 
    241232; process a new date_format string? 
    … …  
    248239        IF (N_ELEMENTS(cFormatArray) EQ 0) THEN cFormatArray = '(C())' 
    249240 
    250  
    251241        IF (N_PARAMS() LT 3) THEN RETURN, 0 
    252  
    253242 
    254243;------------------------------------------------------ Process an axis value 
    … …  
    257246        time = value1 - date  ; Julian time 
    258247 
    259  
    260248        IF (N_ELEMENTS(levelIn) LT 1) THEN levelIn = 0 
    261249        nFormat = N_ELEMENTS(cFormatArray) 
    262250        formatLevel = cFormatArray[levelIn MOD nFormat]    ; repeat cyclically 
    263  
    264251 
    265252; Round subseconds to the desired precision 
    … …  
    273260                value1 = date + time 
    274261        ENDIF 
    275  
    276262 
    277263; Round fractional time to the least significant format specified. 
    … …  
    291277        ENDIF 
    292278 
    293  
    294279; check for negative (B.C.E.) years 
    295280        jan1_1ad = 1721424L   ; Julian date for 1 Jan, 1 C.E. 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/lataxe.pro

    r369 r495  
    22; 
    33; @file_comments 
    4 ; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to  
     4; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 
    55; label axes in latitude. 
    66; 
    77; @categories 
    88; Graphics 
    9 ;  
    10 ; @param AXIS  
     9; 
     10; @param AXIS 
    1111; It is the axis number: 0 for X axis, 1 for Y axis, 2 for Z axis. 
    1212; 

  • trunk/SRC/ToBeReviewed/PLOTS/LABEL/lonaxe.pro

    r369 r495  
    22; 
    33; @file_comments 
    4 ; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to  
     4; function called by [XYZ]TICKFORMAT (see the help to see how to use it) to 
    55; label axes in longitude. 
    66; 
    77; @categories 
    88; Graphics 
    9 ;  
    10 ; @param AXIS  
     9; 
     10; @param AXIS 
    1111; It is the axis number: 0 for X axis, 1 for Y axis, 2 for Z axis. 
    1212; 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro

    r490 r495  
    135135; We recuperate the complete grid to establish a big mask extensive 
    136136; in the four directions to cover points for which a land point has 
    137 ; been considerated (do a small drawing) 
     137; been considerate (do a small drawing) 
    138138;---------------------------------------------------------------------------- 
    139139      vargrid='T' 
    … …  
    141141      mskv = (vmask())[indice2d+jpi*jpj*firstzt] 
    142142      IF keyword_set(cont_nofill) THEN BEGIN  ; make sure msku/v contains only 1 
    143         msku = finite(msku)  
    144         mskv = finite(msku)  
     143        msku = finite(msku) 
     144        mskv = finite(msku) 
    145145      ENDIF 
    146146      glam = glamt[indice2d] 
    … …  
    246246   ELSE vectlegende = {minmax:[mini, maxi], unite:varunit} 
    247247 
    248  
    249248sortie: 
    250249   if keyword_set(key_performance) NE 0 THEN print, 'temps ajoutvect', systime(1)-tempsun 

  • trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/vecteur.pro

    r493 r495  
    55; @categories 
    66; 
    7 ; @param angle  
     7; @param angle 
    88; 
    99; @returns 
    … …  
    2424; by rapport at the x axis and which must do 1 cm on the drawing. 
    2525; Angle can be an array. 
    26 ; 
    27 ; 
    2826; 
    2927  compile_opt idl2, strictarrsubs 
    … …  
    7270; 
    7371; normalize the vector 
    74 ; 
    7572; 
    7673  compile_opt idl2, strictarrsubs 
    … …  
    191188@common 
    192189  tempsun = systime(1)          ; For key_performance 
    193 ; 
    194190; 
    195191  taille = size(composanteu) 
    … …  
    253249;       determine on the drawing. 
    254250; 
    255 ; 
    256251; Stage 1, a) 
    257 ; 
    258252; 
    259253; coordinates of the point T (beginning of the arrow) in spherical coordinates. 
    … …  
    377371  if ind[0] NE -1 then glam[ind] = glam[ind]-360. 
    378372; 
    379 ; 
    380373; Stage 1, e) 
    381374; 
    … …  
    405398; 
    406399  points = where(msk EQ 1) 
    407   IF points[0] NE -1 THEN BEGIN  
     400  IF points[0] NE -1 THEN BEGIN 
    408401 
    409402  x0 = x0[points] & x1 = x1[points] 
    … …  
    448441; define colors before norme is changed... 
    449442    IF NOT KEYWORD_SET(vectcolor) THEN vectcolor = 0 
    450     IF keyword_set(vectnormcolor) THEN BEGIN  
     443    IF keyword_set(vectnormcolor) THEN BEGIN 
    451444      mp = projsegment([vectnormcolor], [1, 254], /mp) 
    452445      colors = byte(round(mp[0] * norme +  mp[1] )) 
    … …  
    500493  endif 
    501494; 
    502 ; 
    503  
    504495  if keyword_set(key_performance) NE 0 THEN print, 'temps vecteur', systime(1)-tempsun 
    505496;------------------------------------------------------------ 
    … …  
    507498  return 
    508499END 
    509  
    510  
    511  
    512  

  • trunk/SRC/ToBeReviewed/PLOTS/axe.pro

    r493 r495  
    22; 
    33; @file_comments 
    4 ; Manage axes for the different drawings created by  
     4; Manage axes for the different drawings created by 
    55; <pro>plt</pro>, <pro>pltz</pro> and <pro>pltt</pro> 
    66; 

  • trunk/SRC/ToBeReviewed/PLOTS/legende.pro

    r493 r495  
    2020; whose we have the colored drawing (by example E-P in color and QSR in contours). 
    2121; 
    22 ; It must be a field respecting same characteristics than the argument number  
     22; It must be a field respecting same characteristics than the argument number 
    2323; one of plt. 
    2424; 
    … …  
    3333; 
    3434; @restrictions 
    35 ; The use of the global variable language allows to change the language and  
     35; The use of the global variable language allows to change the language and 
    3636; the caption easily. 
    3737; 
    … …  
    9191    vertz = type_yz 
    9292    legniv = ' '+type_yz 
    93   ENDIF ELSE BEGIN  
     93  ENDIF ELSE BEGIN 
    9494    vertz = depthf2 
    9595    legniv = ' m' 
    96   ENDELSE  
     96  ENDELSE 
    9797; 
    9898; Start legende 

  • trunk/SRC/ToBeReviewed/PLOTS/reinitplt.pro

    r369 r495  
    142142        return 
    143143        end 
    144  
    145  
    146  
    147  
    148  
    149  

  • trunk/SRC/ToBeReviewed/PLOTS/style.pro

    r493 r495  
    5353;    before and after the threshold value and a bold solid line for the 
    5454;    value itself, a more general definition can be given with a scalar 
    55 ;    string with the following structure: 'xxNN...NNyy' with   
    56 ;    xx and yy corresponding to one the following choices (with the  
     55;    string with the following structure: 'xxNN...NNyy' with 
     56;    xx and yy corresponding to one the following choices (with the 
    5757;    corresponding meaning) 
    5858;               so -> Solid      
    … …  
    6262;               ld -> Long Dashes 
    6363; and NN...NN any kind of number that will define the threshold value. 
    64 ; for example 'do-6.6so' will do dotted line until -6.6 and solid line after.  
     64; for example 'do-6.6so' will do dotted line until -6.6 and solid line after. 
    6565;        
    6666; @param LEVEL_Z2D {in}{required} 
    … …  
    6969; @param LINESTYLE {out} 
    7070; Used interbally by plt(z)(t) to define c_linestyle when calling pltbase. 
    71 ; Vector used to define the isocontour's style.  
     71; Vector used to define the isocontour's style. 
    7272; 
    7373; @param THICK {out} 
    7474; Used interbally by plt(z)(t) to define c_thick when calling pltbase. 
    75 ; Vector used to define the isocontour's thickness.  
     75; Vector used to define the isocontour's thickness. 
    7676; 
    7777; @history 
    … …  
    141141        thresholdstyle, limit, 2, 0, level_z2d, linestyle, thick 
    142142      END 
    143 ; Solid-Bold, solid-thin, dash Dot-thin, solid-thin, Solid-Bold...     
     143; Solid-Bold, solid-thin, dash Dot-thin, solid-thin, Solid-Bold... 
    144144      3: begin 
    145145        n = n_elements(level_z2d) 
    … …  
    169169      end 
    170170    endcase 
    171   ENDELSE  
    172  
     171  ENDELSE 
    173172 
    174173  return 

  • trunk/SRC/ToBeReviewed/POSTSCRIPT/chcolps.pro

    r327 r495  
    11;+ 
    22; 
    3 ; @file_comments  
    4 ;  
     3; @file_comments 
     4; 
    55; @categories 
    6 ;  
     6; 
    77; @param TABLE 
    8 ;  
     8; 
    99; @restrictions 
    10 ;  
     10; 
    1111; @examples 
    1212; 
    1313; @history 
    14 ;  
    1514; 
    1615; @version 
    … …  
    3534    for k=0,255 do z[k]='00'+strtrim(string(b[k], format = '(Z)'),2) 
    3635    for k=0,255 do y[k]=y[k]+strmid(z[k],strlen(z[k])-2,2) 
    37      
     36 
    3837    table =  strlowcase(y) 
    3938 
    … …  
    4241;+ 
    4342; 
    44 ; @file_comments  
     43; @file_comments 
    4544; Build a bloc of colortable 
    46 ;  
     45; 
    4746; @categories 
    48 ;  
     47; 
    4948; @param TABLEOUT 
    50 ;  
     49; 
    5150; @restrictions 
    52 ;  
     51; 
    5352; @examples 
    5453; 
    5554; @history 
    56 ;  
     55; 
    5756; @version 
    5857; $Id$ 
    … …  
    6665    format_colortable_hexa, table 
    6766 
    68  
    6967    tableout = strarr(25) 
    7068 
    7169    tableout[0] = '/COLORTAB < ' 
    7270    FOR k = 0, 8 DO tableout[0] = tableout[0]+table[k]+' ' 
    73     FOR i = 1, 22 DO BEGIN  
     71    FOR i = 1, 22 DO BEGIN 
    7472          FOR k = 11*i-2, 11*i+8 DO tableout[i] = tableout[i]+table[k]+' ' 
    75     ENDFOR  
     73    ENDFOR 
    7674    FOR k = 251, 255 DO tableout[i] = tableout[i]+table[k]+' ' 
    7775    tableout[i] = tableout[i]+'> def' 
    78      
     76 
    7977END 
    8078; 
    8179;+ 
    8280; 
    83 ; @file_comments  
     81; @file_comments 
    8482; Modify colors of a postscript file 
    8583; 
    8684; @categories 
    87 ;  
     85; 
    8886; @param N1 {in}{required} 
    8987; Number of elements in the first dimension 
    90 ;  
     88; 
    9189; @param N2 {in}{required} 
    9290; Number of elements in the second dimension 
    93 ;  
     91; 
    9492; @param FILE 
    95 ; A scalar of string type, the name of the ".pro" file to be tested  
     93; A scalar of string type, the name of the ".pro" file to be tested 
    9694; if necessary, the input name is completed with '.pro' and its path 
    9795; found in !path 
    9896; 
    9997; @keyword PALIT1 
    100 ;  
     98; 
    10199; @keyword PALIT2 
    102 ;  
     100; 
    103101; @restrictions 
    104 ;  
     102; 
    105103; @examples 
    106104; 
    … …  
    128126    filein = file 
    129127    fileout = file+'.new' 
    130      
     128 
    131129    openr, numin, filein, /get_lun 
    132130    openw, numout, fileout, /get_lun 
    … …  
    137135; Scan le fichier 
    138136; 
    139     WHILE NOT(eof(numin)) DO BEGIN  
     137    WHILE NOT(eof(numin)) DO BEGIN 
    140138          readf, numin, ligne, format = '(A)' 
    141139          nl = nl+1 
    … …  
    144142; 
    145143          pos = strpos(ligne, 'setrgbcolor') 
    146           IF pos NE -1 THEN BEGIN  
     144          IF pos NE -1 THEN BEGIN 
    147145                r = round(float(strmid(ligne, pos-18, 6))*255) 
    148146                g = round(float(strmid(ligne, pos-12, 6))*255) 
    149                 b = round(float(strmid(ligne, pos-6, 6))*255)           
     147                b = round(float(strmid(ligne, pos-6, 6))*255) 
    150148                ind = where(r EQ red AND g EQ green AND b EQ blue) 
    151149                ind = ind[0] 
    152                 IF ind[0] NE -1 THEN BEGIN  
     150                IF ind[0] NE -1 THEN BEGIN 
    153151                      r1 = red1[ind]/255. 
    154152                      g1 = green1[ind]/255. 
    … …  
    169167                      color = string(r1, g1, b1, format = '(3(F5.3,:,X))') 
    170168                      strput, ligne, color, pos-18 
    171                 ENDELSE  
    172           ENDIF             
     169                ENDELSE 
     170          ENDIF 
    173171; 
    174172; Replace COLORTAB 
    175173; 
    176174          pos = strpos(ligne, '/COLORTAB') 
    177           IF pos NE -1 THEN BEGIN  
     175          IF pos NE -1 THEN BEGIN 
    178176                build_table, table 
    179177                n = 0 
    180178                colortab = 1 
    181           ENDIF  
     179          ENDIF 
    182180 
    183181          IF colortab THEN BEGIN 
    … …  
    185183                n = n+1 
    186184                IF n EQ 24 THEN colortab = 0 
    187           ENDIF  
     185          ENDIF 
    188186; 
    189187; write output file 
    190188; 
    191189          printf, numout, ligne, format = '(A)' 
    192     ENDWHILE  
     190    ENDWHILE 
    193191    close, numin 
    194192    close, numout 
    … …  
    198196    spawn, 'gs '+fileout 
    199197 
    200 END  
     198END 

  • trunk/SRC/ToBeReviewed/POSTSCRIPT/ps.pro

    r325 r495  
    22; 
    33; @file_comments 
    4 ; Redirect the content of the graphic window in a postscript,  
     4; Redirect the content of the graphic window in a postscript, 
    55; by redoing commands in the postscript's environment. 
    66; 
    77; @categories 
    88; utilities 
    9 ;  
     9; 
    1010; @restrictions 
    11 ; We use journal which allows to stock commands we pass.  
     11; We use journal which allows to stock commands we pass. 
    1212; 
    1313; Can break down if some weird commands are passed... 
    1414; Comment: we erase Syntax error, Illegal characters, compatible 
    15 ; with oups, text_box...  
     15; with oups, text_box... 
    1616; 
    1717; @history 
    … …  
    8585   path_cache, /rebuild 
    8686; apply idlsave 
    87 @idlsave    
     87@idlsave 
    8888; We reopen the journal and we put in it all elements of vectjournal but the 2 first and the 3 last line. 
    8989journal, myuniquetmpdir+'idlsave.pro' 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_correlate2d.pro

    r327 r495  
    22; 
    33; @file_comments 
    4 ;  
    54; 
    65; @categories 
    … …  
    1211; @param LAG {in}{required} 
    1312; 2-element vector, in the intervals [-(nx-2), (nx-2)],[-(ny-2), (ny-2)], 
    14 ; of type integer that specifies the absolute distance(s) between  
     13; of type integer that specifies the absolute distance(s) between 
    1514; indexed elements of X. 
    1615; 
    … …  
    6059; @param LAG {in}{required} 
    6160; 2-element vector, in the intervals [-(nx-2), (nx-2)],[-(ny-2), (ny-2)], 
    62 ; of type integer that specifies the absolute distance(s) between  
     61; of type integer that specifies the absolute distance(s) between 
    6362; indexed elements of X. 
    6463; 
    … …  
    10099   if n_elements(Lag) NE 2 THEN $ 
    101100    ras = report("Lag array must contain 2 elements.") 
    102     
     101 
    103102;If the DOUBLE keyword is not set then the internal precision and 
    104103;result are identical to the type of input. 
    … …  
    110109          Auto_Cov2d(X, [0L, 0L], Double = Double, /zero2nan) 
    111110   endif else begin             ;Compute Autocovariance. 
    112       Auto = Auto_Cov2d(X, ABS(Lag), Double = Double) / n_elements(X)  
     111      Auto = Auto_Cov2d(X, ABS(Lag), Double = Double) / n_elements(X) 
    113112   endelse 
    114113 

  • trunk/SRC/ToBeReviewed/STATISTICS/a_timecorrelate.pro

    r493 r495  
    3838  TimeDim = size(X, /n_dimensions) 
    3939  Xmean = NAN ? TOTAL(X, TimeDim, Double = Double,  NAN =  nan) / TOTAL(FINITE(X), TimeDim) : $ 
    40    TOTAL(X, TimeDim, Double = Double) / nT                                                                                 
     40   TOTAL(X, TimeDim, Double = Double) / nT 
    4141  one = double ? 1.0d : 1.0 
    4242  Xmean = Xmean[*]#replicate(one, nT - M) 
    … …  
    8383; @param LAG {in}{required}{type=scalar or vector} 
    8484; A scalar or n-element vector, in the interval [-(n-2), (n-2)], 
    85 ; of type integer that specifies the absolute distance(s) between  
     85; of type integer that specifies the absolute distance(s) between 
    8686; indexed elements of X. 
    8787; 
    … …  
    140140 
    141141   NAN = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ? 1 : 0 
    142 ;We can retrieve the matrix of real lengths of time-series    
    143    nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT  
     142;We can retrieve the matrix of real lengths of time-series 
     143   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT 
    144144 
    145145   IF ARG_PRESENT(NVAL) THEN nval = nTreal 
    … …  
    147147;Check length. 
    148148   IF (WHERE(nTreal GT 1))[0] EQ -1 THEN $ 
    149     MESSAGE,  "Matrix of length of time-series must contain 2 or more elements"    
     149    MESSAGE,  "Matrix of length of time-series must contain 2 or more elements" 
    150150 
    151151;If the DOUBLE keyword is not set then the internal precision and 
    … …  
    177177         2: BEGIN 
    178178            Auto[*, k] = TimeAuto_Cov(X, ABS(Lag[k]), nT, Double = useDouble, NAN = nan) / $ 
    179              ( KEYWORD_SET(Covariance) ?  nTreal : TimeAuto_Cov(X, 0L, nT, Double = useDouble, /zero2nan, NAN = nan) )    
     179             ( KEYWORD_SET(Covariance) ?  nTreal : TimeAuto_Cov(X, 0L, nT, Double = useDouble, /zero2nan, NAN = nan) ) 
    180180         END 
    181181         3: BEGIN 

  • trunk/SRC/ToBeReviewed/STATISTICS/skewness_4d.pro

    r493 r495  
    22; 
    33; @file_comments 
    4 ;  
     4; 
    55; @categories 
    66; Statistics 
    … …  
    2828 
    2929  compile_opt idl2, strictarrsubs 
    30 ;   
     30; 
    3131  TimeDim = size(X, /n_dimensions) 
    3232  Xmean = NAN ? TOTAL(X, TimeDim, Double = Double,  NAN =  nan) / TOTAL(FINITE(X), TimeDim) : $ 
    33    TOTAL(X, TimeDim, Double = Double) / nT     
     33   TOTAL(X, TimeDim, Double = Double) / nT 
    3434  one = double ? 1.0d : 1.0 
    3535  Xmean = Xmean[*]#replicate(one, nT) 
    … …  
    4242; @file_comments 
    4343; Same function as SKEWNESS but accept array (until 4 
    44 ; dimension) for input and perform  the skewness  
     44; dimension) for input and perform  the skewness 
    4545; along the time dimension which must be the last 
    4646; one of the input array. 
    … …  
    9191 
    9292   NAN = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ? 1 : 0 
    93 ;We can retrieve the matrix of real lengths of time-series    
    94    nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT  
     93;We can retrieve the matrix of real lengths of time-series 
     94   nTreal = ( (WHERE(FINITE(X) EQ 0 ))[0] NE -1 ) ?  TOTAL(FINITE(X),  XNDim) : nT 
    9595 
    9696   IF ARG_PRESENT(NVAL) THEN nval = nTreal 
    … …  
    9898; Check length. 
    9999   IF (WHERE(nTreal LE 1))[0] NE -1 THEN $ 
    100     MESSAGE,  "Matrix of length of time-series must contain 2 or more elements"    
     100    MESSAGE,  "Matrix of length of time-series must contain 2 or more elements" 
    101101 
    102102; If the DOUBLE keyword is not set then the internal precision and 
    … …  
    135135 
    136136END 
    137  

  • trunk/SRC/ToBeReviewed/STRING/chkeywd.pro

    r372 r495  
    55; We change the value of one of keywords. 
    66; 
    7 ; More generally, in a string, we look for the character  
     7; More generally, in a string, we look for the character 
    88; chain: ', keywdname= ..., and we change the value of... 
    99; 
    … …  
    5151; Double-precision complex, Pointer, Object reference, Unsigned Integer, 
    5252; Unsigned Longword Integer, 64-bit Integer or Unsigned 64-bit Integer. 
    53 ; 
    5453; 
    5554; @examples 

  • trunk/SRC/ToBeReviewed/STRING/delchr.pro

    r325 r495  
    33; @file_comments 
    44; Delete all occurrences of a character from a text string. 
    5 ;  
     5; 
    66; @categories 
    77; 
    88; @param OLD {in}{required} 
    99; original text string. 
    10 ;  
     10; 
    1111; @param C {in}{required} 
    1212; character to delete. 
    … …  
    1616; @returns 
    1717; new = resulting string. 
    18 ;  
     18; 
    1919; @history 
    2020;       R. Sterner.  5 Jul, 1988. 
    … …  
    3737  compile_opt idl2, strictarrsubs 
    3838; 
    39   
     39 
    4040if (n_params(0) lt 2) or keyword_set(hlp) then begin 
    4141  ras = report(['Delete all occurrences of a character from a text string.', $ 
    … …  
    4646  return, -1 
    4747endif 
    48   
     48 
    4949B = BYTE(OLD) ; convert string to a byte array. 
    5050CB = BYTE(C)  ; convert char to byte. 

  • trunk/SRC/ToBeReviewed/STRING/getfile.pro

    r374 r495  
    3636; 
    3737;       search the file in the all !path directories (use <pro>find</pro>) 
    38 ;       when using /find keyword. Use <proidl>SPAWN</proidl>, 'cat...' for  
     38;       when using /find keyword. Use <proidl>SPAWN</proidl>, 'cat...' for 
    3939;       unix os. 
    4040; 

  • trunk/SRC/ToBeReviewed/STRING/isnumber.pro

    r493 r495  
    1414; 
    1515; @returns 
    16 ;       x = optionally returned numeric value if valid.   
    17 ;       i = test flag:                                   
     16;       x = optionally returned numeric value if valid. 
     17;       i = test flag: 
    1818;           0: not a number. 
    1919;           1: txt is a long integer. 
    … …  
    2121;           -1: first word of txt is a long integer. 
    2222;           -2: first word of txt is a float. 
    23 ;  
     23; 
    2424; @history 
    2525;  - R. Sterner.  15 Oct, 1986. Johns Hopkins Applied Physics Lab. 
    … …  
    4141; 
    4242  compile_opt idl2, strictarrsubs 
    43 ;  
     43; 
    4444        if (n_params(0) lt 1) or keyword_set(hlp) then begin 
    4545          print,' Determine if a text string is a valid number.' 
    … …  
    5555          return, -1 
    5656        endif 
    57   
     57 
    5858        txt = strtrim(txt0,2)   ; trim blanks. 
    5959        x = 0                   ; define X. 
    60   
     60 
    6161        if txt eq '' then return, 0     ; null string not a number. 
    62   
     62 
    6363        sn = 1 
    6464        if nwrds(txt) gt 1 then begin   ; get first word if more than one. 
    … …  
    6666          txt = getwrd(txt,0) 
    6767        endif 
    68            
     68         
    6969        f_flag = 0                      ; Floating flag. 
    7070        b = byte(txt)                   ; Convert to byte array. 
    … …  
    102102        ;-----  Allow no alphabetic characters  ----------- 
    103103        if total((b ge 65) and (b le 122)) ne 0 then return, 0 
    104   
     104 
    105105        c = strmid(t,0,1) 
    106106        if (c lt '0') or (c gt '9') then return, 0  ; First char not a digit. 
    107   
     107 
    108108        x = txt + 0.0                               ; Convert to a float. 
    109109        if f_flag eq 1 then return, 2*sn            ; Was floating. 
    … …  
    114114          return, 2*sn 
    115115        endelse 
    116   
     116 
    117117        end 

  • trunk/SRC/ToBeReviewed/STRING/lenstr.pro

    r493 r495  
    55; input: 
    66;  str             a single string or string array. 
    7 ;  
     7; 
    88; output: 
    99;  result          length of the string(s) in normalized units 
    10 ;                  the number of elements of RESULT matches the number of  
    11 ;                  elements of STRING.  
     10;                  the number of elements of RESULT matches the number of 
     11;                  elements of STRING. 
    1212; 
    1313; procedure: 
    … …  
    2525;           University of California, Santa Barbara 
    2626; 
    27 ; @todo seb  
     27; @todo seb 
    2828; 
    2929;- 

  • trunk/SRC/ToBeReviewed/STRING/nwrds.pro

    r372 r495  
    33; @file_comments 
    44; Return the number of words in the given text string. 
    5 ;  
     5; 
    66; @categories 
    77; 
    … …  
    1111; @keyword DELIMITER 
    1212; = d. Set delimiter character (def = space). 
    13 ;  
     13; 
    1414; @keyword HELP 
    1515; 
    1616; @returns 
    1717; n = number of words found. 
    18 ;  
     18; 
    1919; @restrictions 
    2020; See also <pro>getwrd</pro> 
    21 ;  
     21; 
    2222; @history 
    2323;  - R. Sterner,  7 Feb, 1985. Johns Hopkins University Applied Physics Laboratory. 
    … …  
    3838  compile_opt idl2, strictarrsubs 
    3939; 
    40   
     40 
    4141        if (n_params(0) lt 1) or keyword_set(hlp) then begin 
    4242          print,' Return the number of words in the given text string.' 
    … …  
    4949          return, -1 
    5050        endif 
    51   
     51 
    5252        if strlen(txtstr) eq 0 then return,0    ; A null string has 0 words. 
    5353        ddel = ' '                      ; Default word delimiter is a space. 
    … …  
    6161        x = tb ne tst                           ; Locate words. 
    6262        x = [0,x,0]                             ; Pad ends with delimiters. 
    63   
     63 
    6464        y = (x-shift(x,1)) eq 1                 ; Look for word beginnings. 
    65   
     65 
    6666        n = fix(total(y))                       ; Count word beginnings. 
    67   
     67 
    6868        return, n 
    69   
     69 
    7070        end 

  • trunk/SRC/ToBeReviewed/STRING/putfile.pro

    r374 r495  
    33; @file_comments 
    44; Write a text file from a string array. 
    5 ;  
     5; 
    66; @categories 
    77; 
    … …  
    1414; @keyword ERROR 
    1515; error flag: 0=ok, 1=invalid string array. 
    16 ;  
     16; 
    1717; @history 
    1818;  - R. Sterner, 20 Mar, 1990 
    … …  
    3333  compile_opt idl2, strictarrsubs 
    3434; 
    35   
     35 
    3636        if (n_params(0) lt 1) or keyword_set(hlp) then begin 
    3737          print,' Write a text file from a string array.' 
    … …  
    4848           return 
    4949        endif 
    50 ;  
     50; 
    5151        if size(s, /type) ne 7 then begin 
    5252          print,' Error in putfile: argument must be a string array.' 
    … …  
    5454          return 
    5555        endif 
    56   
     56 
    5757        get_lun, lun 
    5858        openw, lun, file 
    59   
     59 
    6060        for i = 0, n_elements(s)-1 do begin 
    6161          t = s[i] 
    … …  
    6363          printf, lun, t 
    6464        endfor 
    65   
     65 
    6666        close, lun 
    6767        free_lun, lun 
    6868        err = 0 
    6969        return 
    70   
     70 
    7171        end 

  • trunk/SRC/ToBeReviewed/STRING/string2struct.pro

    r374 r495  
    3939; 
    4040; @param STRVAL {IN}{REQUIRED} 
    41 ; String set up as keywords. Keywords require a little special treatment.  
     41; String set up as keywords. Keywords require a little special treatment. 
    4242; Such as 
    4343; 

  • trunk/SRC/ToBeReviewed/STRING/strkeywd.pro

    r372 r495  
    22; 
    33; @file_comments 
    4 ; Translate a structure in a string able to be used to specify keywords  
     4; Translate a structure in a string able to be used to specify keywords 
    55; in the calling of a function when we use EXECUTE (see example) 
    66; 
    7 ; @categories  
    8 ;  
     7; @categories 
     8; 
    99; @param STRUCT 
    1010; a structure 
    … …  
    1212; @returns 
    1313; a string composed like following: 
    14 ; For each element of the structure, we write a part of the string as:  
     14; For each element of the structure, we write a part of the string as: 
    1515;         'name_of_the_element=content_of_the_element' 
    1616; 
    1717; @restrictions 
    18 ; If an element of the structure contain an array, it will be convert in a  
     18; If an element of the structure contain an array, it will be convert in a 
    1919; vector. 
    2020; 
    2121; @restrictions 
    22 ; Beware, this function has loops, ifs and cases everywhere. So it can  
    23 ; not be used by big keywords (with a lot of elements which are big  
    24 ; arrays). The input keyword must not contain Complex floatings, structure,  
    25 ; Double-precision complex, Pointer, Object reference, Unsigned Integer,  
     22; Beware, this function has loops, ifs and cases everywhere. So it can 
     23; not be used by big keywords (with a lot of elements which are big 
     24; arrays). The input keyword must not contain Complex floatings, structure, 
     25; Double-precision complex, Pointer, Object reference, Unsigned Integer, 
    2626; Unsigned Longword Integer, 64-bit Integer or Unsigned 64-bit Integer. 
    2727; 

  • trunk/SRC/ToBeReviewed/STRING/strright.pro

    r374 r495  
    66; @categories 
    77; String 
    8 ;  
     8; 
    99; @param S {in}{required} 
    1010; the string to be searched 
    … …  
    2020; 
    2121; @examples 
    22 ;  
     22; 
    2323; add a "/" in to path if it "/" is not at the end : 
    2424; 
    … …  
    4848  compile_opt idl2, strictarrsubs 
    4949; 
    50   
     50 
    5151    on_error,2   ; return to caller 
    52   
     52 
    5353    if (n_elements(s) le 0) then return,-1L 
    54   
     54 
    5555    l = strlen(s) 
    56   
     56 
    5757    if (n_elements(lastn) le 0) then lastn = 1 
    5858    if lastn gt l then lastn = l 
    59   
     59 
    6060    result = strmid(s,l-lastn,l) 
    61   
     61 
    6262    return,result 
    6363end 

  • trunk/SRC/ToBeReviewed/STRING/strsci.pro

    r374 r495  
    1515; The format specification used in the string 
    1616; conversion for the mantissa (i.e. the 
    17 ; "A" of "A x 10^B").   
     17; "A" of "A x 10^B"). 
    1818; 
    1919; @keyword POT_ONLY 
    … …  
    4141; 
    4242;   IDL> Result = STRSCI( 2000000, format='(i1)' ) 
    43 ;   IDL> print, result                 
     43;   IDL> print, result 
    4444;   2 x 10!u6!n 
    45 ;  
    46 ; which gets plotted as 2 x 10  
    47 ;         
     45; 
     46; which gets plotted as 2 x 10 
     47; 
    4848;   IDL> Result = STRSCI( -0.0001 ) 
    4949;   IDL> print, result 
    … …  
    5555;   IDL> print, result 
    5656;   0.00000000 
    57 ;  
    5857; 
    5958; @history 
    … …  
    7675;           - now can handle DATA=0.0 correctly 
    7776;           - updated comments 
    78 ;        mgs, 03 Jun 1999:  
     77;        mgs, 03 Jun 1999: 
    7978;           - can now also handle values lt 1 ;-) 
    8079;           - and doesn't choke on arrays 
    … …  
    8382; $Id$ 
    8483; 
    85 ; Copyright (C) 1998, 1999 Bob Yantosca and Martin Schultz,  
     84; Copyright (C) 1998, 1999 Bob Yantosca and Martin Schultz, 
    8685; Harvard University 
    8786; This software is provided as is without any warranty 
    … …  
    125124      ;==================================================================== 
    126125      if ( Abs( Data[i] ) ne 0.0 ) then begin 
    127     
     126 
    128127         ; take the common log and store in LOG10DATA 
    129          Log10Data = ALog10( Abs( Data[i] ) )   
    130     
     128         Log10Data = ALog10( Abs( Data[i] ) ) 
     129 
    131130         ; Boolean flag if data < 0 
    132          sign = ( Data[i] lt 0.0 )  
    133     
     131         sign = ( Data[i] lt 0.0 ) 
     132 
    134133         ; Compute the characteristic (int part) 
    135134         ; Add the 1d-6 to prevent roundoff errors 
    136135         Characteristic = Fix( Log10Data + 1.0d-6 ) 
    137136         if (Log10Data lt 0) then $ 
    138             Characteristic = Characteristic - 1  
    139     
     137            Characteristic = Characteristic - 1 
     138 
    140139         ; Compute the Mantissa (frac part) and take its antilog. 
    141          Mantissa = Log10Data - Characteristic  
     140         Mantissa = Log10Data - Characteristic 
    142141         Mantissa = 10.0^Mantissa 
    143     
     142 
    144143   ;  print,data[i],log10data,mantissa,characteristic,format='(3f24.14,i8)' 
    145     
    146          ; String for the coefficient part,  
     144 
     145         ; String for the coefficient part, 
    147146         ; The coefficient is just antilog of the Mantissa 
    148147         ; Add the minus sign if DATA < 0.0 
    149148         A = StrTrim( String( Mantissa, Format=Format ), 2 ) 
    150149         if ( Sign ) then A = '-' + A 
    151     
     150 
    152151         ; String for the power of 10 part 
    153152         B = '10!u' + strtrim( string( Characteristic ), 2 ) + '!n' 
    … …  
    156155            if ( Characteristic eq 1 ) then B = '10' 
    157156         endif 
    158     
     157 
    159158         ; composite string 
    160159         Result[i] = A + ' x ' + B 
    161160         if ( Short AND B eq '1') then Result[i] = A 
    162     
    163     
     161 
    164162      ;==================================================================== 
    165163      ; If DATA = 0, then we cannot take the common log, so return 
    … …  
    170168         B      = A 
    171169         Result[i] = A 
    172     
     170 
    173171      endelse 
    174     
     172 
    175173      ;==================================================================== 
    176174      ; Return result to calling program (depending on keyword settings) 
    … …  
    183181      if ( Trim ) then $ 
    184182         Result[i] = StrCompress( Result[i], /Remove_All ) 
    185       
     183 
    186184   endfor 
    187185 
    188186   if (n_elements(Result) eq 1) then $ 
    189187      Result = Result[0] 
    190   
     188 
    191189   return, Result 
    192190 

  • trunk/SRC/ToBeReviewed/STRING/strsed.pro

    r372 r495  
    11;+ 
    22; 
    3 ; @file_comments  
     3; @file_comments 
    44; replace one (or more) character(s)/string(s) in a string array 
    55; "modern" version of the obsolete strrepl 
    … …  
    1818; 
    1919; @keyword FOLD_CASE 
    20 ; Indicates that the regular expression matching should be done in  
     20; Indicates that the regular expression matching should be done in 
    2121; a case-insensitive fashion. 
    2222; 
    … …  
    5454       strout[line[i]] = strjoin(strsplit(strout[line[i]], exp1, /extract $ 
    5555                                          , /regex, /preserve_null, FOLD_CASE = fold_case), exp2) 
    56   ENDIF  
     56  ENDIF 
    5757; 
    5858  return, strout 

  • trunk/SRC/ToBeReviewed/STRING/tostr.pro

    r372 r495  
    44; Convert an input in a string. 
    55; 
    6 ; @categories  
     6; @categories 
    77; String 
    88; 
    … …  
    2121; 
    2222; @restrictions 
    23 ; Beware, this function has loops, ifs and cases everywhere. So it can  
    24 ; not be used by big keywords (with a lot of elements which are big  
     23; Beware, this function has loops, ifs and cases everywhere. So it can 
     24; not be used by big keywords (with a lot of elements which are big 
    2525; arrays). 
    26 ;  
     26; 
    2727; @examples 
    2828;   IDL> help, tostr(1),tostr('a'),tostr(indgen(4)),tostr(['a','jkfjo']) 
    … …  
    4848 
    4949   case 1 of 
    50       size(input, /type) LE 5:BEGIN  
     50      size(input, /type) LE 5:BEGIN 
    5151         if size(input, /type) EQ 1 then input = long(input) 
    5252         if n_elements(input) EQ 1 then res = strtrim(input, 1) $ 
    53          ELSE BEGIN  
     53         ELSE BEGIN 
    5454            res = '['+strtrim((input)[0], 1) 
    5555            for i = 1,  n_elements(input)-1 do res = res+','+strtrim((input)[i], 1) 
    5656            res = res+']' 
    57          ENDELSE  
     57         ENDELSE 
    5858      END 
    59       size(input, /type) eq 7:BEGIN  
     59      size(input, /type) eq 7:BEGIN 
    6060         if n_elements(input) EQ 1 then BEGIN 
    6161            sinput = strrepl(input, '''', '''''') 
    6262            res = ''''+sinput+'''' 
    63          ENDIF ELSE BEGIN  
     63         ENDIF ELSE BEGIN 
    6464            res = '['''+strrepl(input[0], '''', '''''')+'''' 
    6565            for i = 1,  n_elements(input)-1 do res = res+','''+strrepl(input[i], '''', '''''')+'''' 
    6666            res = res+']' 
    67          ENDELSE  
     67         ENDELSE 
    6868      END 
    69       ELSE:BEGIN  
     69      ELSE:BEGIN 
    7070         ras = report('la fonction tostr ne marche pas pour input qui est de type '+size(input, /tname)) 
    7171         res = '' 

  • trunk/SRC/ToBeReviewed/STRUCTURE/chkstru.pro

    r375 r495  
    1212; 
    1313; @param FIELDS {in}{required}{type=string} 
    14 ; A string or string array with field names to  
     14; A string or string array with field names to 
    1515; be contained in STRUCTURE. 
    1616; 
    … …  
    2121; @keyword INDEX {type=string} 
    2222; A named variable that will contain the indices of 
    23 ; the required field names in the structure.  
     23; the required field names in the structure. 
    2424; 
    25 ; They can then be assessed through structure.(index[i]).  
     25; They can then be assessed through structure.(index[i]). 
    2626; 
    2727; Index will contain -1 for all fields entries that are not in the structure. 
    … …  
    3131; 
    3232; @keyword EXTRACT 
    33 ; set this keyword to extract a field from the structure.   
     33; set this keyword to extract a field from the structure. 
    3434; -1 is return if field or structure are incorrect. 
    3535; 
    … …  
    5050;  - mgs, 02 Mar 1998: VERSION 1.00 
    5151;  - mgs, 07 Apr 1998: - second parameter (FIELDS) now optional 
    52 ;  - 12 Jan 2001: EXTRACT keyword by S. Masson (smasson\@lodyc.jussieu.fr)  
     52;  - 12 Jan 2001: EXTRACT keyword by S. Masson (smasson\@lodyc.jussieu.fr) 
    5353; 
    5454; @version 
    … …  
    7171  compile_opt idl2, strictarrsubs 
    7272; 
    73   
    74  
    7573     ; default index 
    7674     index = -1 
    77   
     75 
    7876     ; first check number of parameters (must be at least 1) 
    7977     if (n_params() lt 1) then begin 
    8078         if(keyword_set(verbose)) then $ 
    8179             ras = report('CHKSTRU: ** invalid number of parameters ! **') 
    82          if keyword_set(extract) THEN return,-1 ELSE return,0  
     80         if keyword_set(extract) THEN return,-1 ELSE return,0 
    8381         endif 
    84   
    85   
     82 
    8683     ; check if the user really passed a structure 
    87   
     84 
    8885     s = size(structure) 
    8986     if (s[1+s[0]] ne 8) then begin 
    9087         if(keyword_set(verbose)) then $ 
    9188             ras = report('CHKSTRU: ** No structure passed ! **') 
    92          if keyword_set(extract) THEN return,-1 ELSE return,0  
     89         if keyword_set(extract) THEN return,-1 ELSE return,0 
    9390     endif 
    94   
     91 
    9592     ; only one parameter: then we are finished 
    9693     if (n_params() eq 1) then return,1 
    9794 
    98  
    99   
    10095     ; see if required field names are contained in the structure 
    10196     ; and return indices of these fields 
    102   
     97 
    10398     names = tag_names(structure) 
    10499     index = intarr(n_elements(fields)) - 1   ; default index to 'not found' 
    … …  
    111106         endif else index[i] = ind[0] 
    112107     endfor 
    113   
    114   
     108 
    115109     ; check minimum value of index field: -1 indicates error 
    116110     if keyword_set(extract) then BEGIN 
    117111        if index[0] NE -1 THEN return, structure.(index[0]) ELSE return, -1 
    118112     ENDIF ELSE return,(min(index) ge 0) 
    119   
     113 
    120114end 
    121   

  • trunk/SRC/ToBeReviewed/STRUCTURE/mixstru.pro

    r375 r495  
    22; 
    33; @file_comments 
    4 ; Concatenate 2 structures together.  
     4; Concatenate 2 structures together. 
    55; 
    66; The difference with <proidl>CREATE_STRUCT</proidl> 
    7 ; is that if the 2 structures have same elements's name, then mixstru  
    8 ; do not break down but choose for the common element the value  
     7; is that if the 2 structures have same elements's name, then mixstru 
     8; do not break down but choose for the common element the value 
    99; specified by the first structure. 
    1010; 
    1111; @categories 
    1212; Structure 
    13 ;  
     13; 
    1414; @param STRU1 {in}{required} 
    15 ; Structure which can have same elements's name than  
     15; Structure which can have same elements's name than 
    1616; STRU2 but with a different value. 
    1717; 
    1818; @param STRU2 {in}{required} 
    19 ; Structure which can have same elements's name than  
     19; Structure which can have same elements's name than 
    2020; STRU1 but with a different value. 
    2121; 
    … …  
    2727; 
    2828; @examples 
    29 ;      
     29; 
    3030;   IDL> a=get_extra(/toto,ok=123) 
    3131;   IDL> b=get_extra(ok=111, year=1999, age_capitaine=35) 
    … …  
    7070   if size(stru2, /type) NE 8 then return,  -1 
    7171   tname = tag_names(stru2) 
    72     
     72 
    7373   str = '' 
    7474   FOR i = 0, n_tags(stru2)-1 DO str = str + tname[i]+' = stru2.(' + strtrim(i, 2)+ '), ' 

  • trunk/SRC/ToBeReviewed/STRUCTURE/where_tag.pro

    r375 r495  
    88; 
    99; Like the <proidl>WHERE</proidl> function but for use with structures 
    10 ;  
     10; 
    1111; @categories 
    1212; Structure 
    … …  
    1717; @keyword TAG_NAME 
    1818; Scalar string specifying Tag Name 
    19 ;  
     19; 
    2020; @keyword TAG_NUMBER 
    2121; Otherwise give the Tag Number 
    22 ;  
     22; 
    2323; @keyword RANGE 
    2424; [min,max] range to search for in STRUCT 
    25 ;  
     25; 
    2626; @keyword VALUES 
    2727; One or array of numbers to match for in STRUCT 
    28 ;  
     28; 
    2929; @keyword ISELECT 
    3030; Specifies indices to select only part of structure array, 
    3131; (use it to recycle subscripts from previous searches). 
    32 ;  
     32; 
    3333; @keyword NOPRINT 
    3434; Suppress informational messages about nothing found. 
    … …  
    3737; Nfound {out} 
    3838; # of occurrences found. 
    39 ;  
     39; 
    4040; @restrictions 
    4141; User *must* specify (1) TAG_NAME or TAG_NUMBER to search, and (2) 
    … …  
    4444; @examples 
    4545; 
    46 ; Suppose STR is a structure with tags CAT_NO:indgen(10), and  
     46; Suppose STR is a structure with tags CAT_NO:indgen(10), and 
    4747; NAME:strarr(10). Find the indices where STR.CAT_NO is between 3 and 5. 
    4848; 
    49 ;   IDL> print, WHERE_TAG( str, TAG_NAME = 'CAT_NO', VALUE = [3,4,5] )  
     49;   IDL> print, WHERE_TAG( str, TAG_NAME = 'CAT_NO', VALUE = [3,4,5] ) 
    5050; or 
    51 ;   IDL> print, WHERE_TAG( str, TAG_NUM = 0, RANGE = [3,5])  
     51;   IDL> print, WHERE_TAG( str, TAG_NUM = 0, RANGE = [3,5]) 
    5252; 
    5353; @history 
    … …  
    5757; @version 
    5858; $Id$ 
    59 ;  
     59; 
    6060;- 
    6161FUNCTION where_tag, Struct, Nfound,     TAG_NAME=tag_name,      $ 
    … …  
    9999           endif 
    100100 
    101         if N_elements( ipart ) GT 0 then begin          ;check if any searching  
     101        if N_elements( ipart ) GT 0 then begin          ;check if any searching 
    102102                                                        ;on a subset of input. 
    103103                w = where( ipart GE 0, nf ) 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/ciseauxtri.pro

    r370 r495  
    212212   endif 
    213213; 
    214 ; 
    215214   if keyword_set(key_performance) THEN print, 'temps ciseauxtri', systime(1)-tempsun 
    216215; 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/completecointerre.pro

    r370 r495  
    150150    print, 'temps completecointerre: positions des points', systime(1)-tempdeux 
    151151; 
    152 ; 
    153152; Case land corner in ascent: 
    154153;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal. 
    … …  
    164163;                 \   | 
    165164;      t(i)=0       2 u(i)          t(i+1)=1 
    166 ; 
    167165; 
    168166  if coinmont[0] NE -1 then BEGIN 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/drawcoast_c.pro

    r327 r495  
    11;+ 
    22; @file_comments 
    3 ; 
    43; 
    54; @categories 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro

    r370 r495  
    3838; 
    3939; @todo 
    40 ; Seb: definir params 
     40; Seb: define params 
    4141; 
    4242;- 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/fillcornermask.pro

    r370 r495  
    5050  ny = n_elements(y1) 
    5151; 
    52 ; 
    53 ; 
    5452; Case land corner in ascent: 
    5553;      2 land points in diagonal ascending with 2 ocean points on the descendant diagonal. 
    … …  
    6563;                 \   | 
    6664;      t(i)=0       2 u(i)          t(i+1)=1 
    67 ; 
    6865; 
    6966  if keyword_set(coinmonte) then BEGIN 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro

    r393 r495  
    11;+ 
    22; @file_comments 
    3 ; 
    43; 
    54; @categories 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/tracecote.pro

    r493 r495  
    6060; 
    6161   if key_gridtype EQ 'e' then onemore = xf[0, 0] gT xf[0, 1] 
    62 ; We pass in normalized coordinates to be able to become independant from the projection's 
     62; We pass in normalized coordinates to be able to become independent from the projection's 
    6363; type chosen and from the support on which we do the drawing (screen or postscript) 
    6464   z = convert_coord(xf[*],yf[*],/data,/to_normal) 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/tracemask.pro

    r493 r495  
    150150   endif 
    151151; 
    152 ; 
    153152   if keyword_set(key_performance) THEN print, 'temps tracemask', systime(1)-tempsun 
    154153 
    155154   return 
    156155end 
    157  
    158  
    159  
    160  
    161  

  • trunk/SRC/ToBeReviewed/TRIANGULATION/triangule.pro

    r327 r495  
    22; @file_comments 
    33; 
    4 ; 
    54; @categories 
    6 ; 
    75; 
    86; @param MASKENTREE {in}{optional}{type=2d array} 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_c.pro

    r370 r495  
    7171; @todo 
    7272; seb L.267->268 je ne pense pas que ce soit ce que tu voulais dire mais 
    73 ; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 
     73; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 
    7474; 
    7575;- 
    … …  
    111111; We construct the test which allow to find this triangle : 
    112112; 
    113 ; 
    114113;       shift(msk,  0, -1)------------shift(msk, -1, -1) 
    115114;              |                             | 
    … …  
    121120sum1 = msk+shift(msk, -1, 0)+shift(msk, -1, -1)    ;points which surround the left top point. 
    122121sum2 = msk+shift(msk, 0, -1)+shift(msk, -1, -1)    ;points which surround the right bottom point. 
    123  
    124122 
    125123tempdeux = systime(1)           ; For key_performance =2 
    … …  
    206204; We delete land points which only contain land points. 
    207205;------------------------------------------------------------ 
    208 ; 
    209206; 
    210207if (NOT keyword_set(basic)) AND (NOT keyword_set(keep_cont)) then begin 

  • trunk/SRC/ToBeReviewed/TRIANGULATION/triangule_e.pro

    r370 r495  
    88; 
    99; @param maskentree {in}{optional}{type=2d array} 
    10 ; It is a 2d array which will serve to mask the field we will trace after  
     10; It is a 2d array which will serve to mask the field we will trace after 
    1111; with CONTOUR, ...TRIANGULATION=triangule(mask) 
    1212; If this argument is not specified, the function use tmask 
    1313; 
    1414; @keyword BASIC 
    15 ; Specify that the mask is on a basic grid (use the triangulation for vertical  
     15; Specify that the mask is on a basic grid (use the triangulation for vertical 
    1616; cuts and hovmoellers) 
    1717; 
    1818; @keyword COINMONTE {type=array} 
    1919; To obtain the array of "ascending land corner" to be treated with 
    20 ; <pro>completecointerre</pro> in the variable array instead of make it pass  
     20; <pro>completecointerre</pro> in the variable array instead of make it pass 
    2121; by the global variable twin_corners_up. 
    2222; 
    … …  
    3838; @todo 
    3939; seb L.152->153 je ne pense pas que ce soit ce que tu voulais dire mais 
    40 ; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 
     40; c'est la traduction de ce qu'il y avait écrit. Correction si besoin. 
    4141; 
    4242;- 
    … …  
    194194;------------------------------------------------------------ 
    195195 
    196  
    197196   IF keyword_set(key_performance) THEN print, 'temps triangule', systime(1)-tempsun 
    198197 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/get_extra.pro

    r327 r495  
    1414; tu fais 
    1515 
    16  
    1716; extra=get_extra(/ok, year=1999, age_capitaine=35 ) 
    1817 
    … …  
    2524;+ 
    2625; 
    27 ; @todo  
     26; @todo 
    2827; seb 
    2928; 
    … …  
    3433; 
    3534    return, extra 
    36 END  
     35END 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro

    r325 r495  
    33; @file_comments 
    44; Kind of UNDO: 
    5 ; Allows to redo all the chain of drawing since the opening of the last window  
    6 ; without reexecute the last order  
     5; Allows to redo all the chain of drawing since the opening of the last window 
     6; without reexecute the last order 
    77; 
    88; Example: I do a drawing with 10 plot over it, if I make a 

  • trunk/SRC/ToBeReviewed/UTILITAIRE/vzoom.pro

    r494 r495  
    6161 IF strpos(vectjournal[i],',pos=' ) EQ -1 then $ 
    6262 vectjournal[i] = vectjournal[i]+strmid(vectjournal[i+1], 1) & endfor 
    63  
    64  
    6563; 
    6664; we rewrite idlsave.pro 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro

    r327 r495  
    1515;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    1616;   6 elements: The extraction is made on Boxzoom 
    17 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     17; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    1818; <pro>domdef</pro> ! 
    1919; 
    … …  
    8686  drawover = (flags[where(options EQ 'Overlay')])[0] 
    8787; 
    88   alreadyread = extractatt(top_uvalue, 'alreadyread') 
     88  alreadyread   = extractatt(top_uvalue, 'alreadyread') 
    8989  alreadyvector = extractatt(top_uvalue, 'alreadyvector') 
    90   alreadyover = extractatt(top_uvalue, 'alreadyoer') 
     90  alreadyover   = extractatt(top_uvalue, 'alreadyover') 
    9191; What must we read ? 
    9292  case 1 of 
    … …  
    414414  return, Cmd 
    415415end 
    416  
    417  

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro

    r493 r495  
    1818;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    1919;   6 elements: The extraction is made on Boxzoom 
    20 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     20; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    2121; <pro>domdef</pro> ! 
    2222; 
    … …  
    4040FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM=boxzoom $ 
    4141                     , COMPLETE=complete, NAMEFIELD=namefield 
    42 ; 
    4342; 
    4443  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro

    r327 r495  
    1818;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    1919;   6 elements: The extraction is made on Boxzoom 
    20 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     20; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    2121; <pro>domdef</pro> ! 
    2222; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

    r327 r495  
    1818;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    1919;   6 elements: The extraction is made on Boxzoom 
    20 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     20; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    2121; <pro>domdef</pro> ! 
    2222; 
    … …  
    4646PRO changefile, base, newfilename, BOXZOOM=boxzoom $ 
    4747              , DATE1=date1, DATE2=date2, FIELDNAME=fieldname 
    48 ; 
    4948; 
    5049  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro

    r479 r495  
    5252; help,mixstru(top_uvalue.exextra,top_uvalue.extra), /struct 
    5353; 
    54 ; 
    5554; we recuperate the id of the graphic associated to the widget of id base. 
    5655   graphid = extractatt(top_uvalue, 'graphid') 
    … …  
    6362; 
    6463   tracecadre, smallout, /fill 
    65 ; 
    6664; 
    6765   options = extractatt(top_uvalue, 'options') 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro

    r327 r495  
    2424;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    2525;   6 elements: The extraction is made on Boxzoom 
    26 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     26; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    2727; <pro>domdef</pro> ! 
    2828; 
    … …  
    5858      res = lec(name,debut,nomexp, BOXZOOM=boxzoom, _EXTRA = ex) 
    5959   ENDIF ELSE res = lect(name,debut,fin, nomexp, BOXZOOM=boxzoom, _EXTRA = ex) 
    60 ;------------------------------------------------------------  
     60;------------------------------------------------------------ 
    6161   return, {tab:res, grille:vargrid, unite:'', experience:varexp, nom:varname} 
    6262end 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro

    r423 r495  
    1111; 
    1212; @keyword _EXTRA 
    13 ; Used to pass keywords to <pro>isafile</pro>,  
     13; Used to pass keywords to <pro>isafile</pro>, 
    1414; <pro>ncdf_getaxis</pro> and <pro>ncdf_gettime</pro> 
    1515; 
    … …  
    4747;       qu''une dimension et etant la dimension temporelle. cette 
    4848;       variable sera prise comme axe des temps. Rq: si plusieurs 
    49 ;       variables verifient ces criteres on considere la premiere 
     49;       variables vérifient ces criteres on considere la premiere 
    5050;       variable 
    5151;       5) Cette variable axe des temps doit contenir l''attribut 
    … …  
    5959; je crois que c''est tout! 
    6060; 
    61 ;        GRID='[UTVWF]' to specify the type of grid. Defaut is (1) 
     61;        GRID='[UTVWF]' to specify the type of grid. Default is (1) 
    6262;        based on the name of the file if the file ends by 
    6363;        GRID[._][TUVFW].NC (not case sensible) or (2) T if case (1) 
    6464;        is not found. 
    65 ; 
    6665; 
    6766  compile_opt idl2, strictarrsubs 
    … …  
    157156    jpt = abs(time) 
    158157    fakecal = 1 
    159   ENDIF ELSE jpt = n_elements(time)  
     158  ENDIF ELSE jpt = n_elements(time) 
    160159; high frequency calendar: more than one element per day 
    161160  IF max(histogram([long(time-time[0])])) GT 1 THEN fakecal = 1 ELSE fakecal = 0 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro

    r327 r495  
    177177; @param DATAFILENAME 
    178178; 
    179 ; 
    180179; @param IDLFILE 
    181 ; 
    182180; 
    183181; @param ARGSPRO 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro

    r493 r495  
    8787  window, /free, /pixmap, xsize = xsize, ysize = ysize 
    8888 
    89  
    9089; indication of the number of the picture we are creating 
    9190  base = widget_base() 
    … …  
    9796  IF keyword_set(fakecal) THEN date = index1 ELSE date = jul2date(calendar[index1]) 
    9897  xxx2ps, /noerase, date1in = date, date2in = date 
    99 ; 
    10098; 
    10199  image = tvrd(true = depth GT 8) 
    … …  
    112110;- Convert 24-bit image to 8-bit 
    113111  image = color_quan(image, 1, red, green, blue, colors = 256, get_translation = translation, /map_all) 
    114 ; 
    115112; 
    116113  write_gif, animdir+nomfic, image, red, green, blue, /multiple 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro

    r327 r495  
    5353end 
    5454 
    55  
    56  
    5755;+ 
    5856; @file_comments 
    … …  
    6260; 
    6361; @param ID 
    64 ; 
    6562; 
    6663; @param VALUE 
    … …  
    167164  endelse 
    168165end 
    169  
    170  
    171  
    172  
    173166; 
    174167;+ 
    … …  
    379372  IF (N_ELEMENTS(y_scroll_size) eq 0)   then y_scroll_size = 0 
    380373 
    381  
    382  
    383  
    384374  top_base = 0L 
    385375  if (n_elements(label_top) ne 0) then begin 
    … …  
    424414    EVENT_FUNC='CW_BGROUP_EVENT', $ 
    425415    UVALUE=WIDGET_INFO(top_base, /child)) 
    426  
    427416 
    428417  n = n_elements(names) 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro

    r371 r495  
    3535;    return 
    3636; END 
    37 ; 
    38 ; 
    3937;+ 
    4038; 
    … …  
    7270  widget_control, winfo_id, get_uvalue = infowid 
    7371  key_caltype = infowid.caltype 
    74 ; high freqeuncy calendar 
     72; high frequency calendar 
    7573  IF keyword_set(infowid.fakecal) THEN BEGIN 
    7674    value2 = date2jul(long(value)) - infowid.fakecal 
    … …  
    104102; @file_comments 
    105103; 
    106 ; 
    107104; @categories 
    108105; Compound widget 
    109106; 
    110107; @param ID 
    111 ; 
    112108; 
    113109; @returns 
    … …  
    137133; @file_comments 
    138134; 
    139 ; 
    140135; @categories 
    141136; Compound widget 
    … …  
    143138; @param ID 
    144139; 
    145 ; 
    146140; @param WINFOID 
    147 ; 
    148141; 
    149142; @returns 
    … …  
    182175    month = (where(allmonths EQ wid_value.combobox_gettext))[0] + 1 
    183176    date = date + 100L * long(month) 
    184   ENDIF ELSE date = date + (oldate MOD 10000L)/100L*100L 
     177  ENDIF ELSE date = date + (oldate MOD 10000L)/ 100L * 100L 
    185178;-------------year---------------- 
    186179  wid_id = widget_info(id, find_by_uname = 'year') 
    … …  
    198191;+ 
    199192; @file_comments 
    200 ; 
    201193; 
    202194; @categories 
    … …  
    300292; @file_comments 
    301293; 
    302 ; 
    303294; @categories 
    304295; Compound widget 
    … …  
    306297; @param EVENT 
    307298; 
    308 ; 
    309299; @param CASENAME 
    310 ; 
    311300; 
    312301; @returns 
    … …  
    359348; 
    360349; @param EVENT 
    361 ; 
    362350; 
    363351; @returns 
    … …  
    424412; @file_comments 
    425413; 
    426 ; 
    427414; @categories 
    428415; Compound widget 
    … …  
    433420; @param CALENDAR 
    434421; 
    435 ; 
    436422; @param JDATE0 
    437423; 
    … …  
    440426; @keyword FAKECAL 
    441427; 
    442 ; 
    443428; @keyword UVALUE 
    444429; 
    445430; @keyword UNAME 
    446 ; 
    447431; 
    448432; @keyword _EXTRA 
    … …  
    524508      monthindex = where(yearcal EQ year0) 
    525509      currentmonth = long(monthcal[monthindex]) 
    526 ; we suppress the repeted months 
     510; we suppress the repeated months 
    527511      monthindexbis = uniq(currentmonth, sort(currentmonth)) 
    528512      monthindex = monthindex[monthindexbis] 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

    r493 r495  
    3737; end 
    3838; 
    39 ; 
    4039;+ 
    4140; 
    … …  
    4645; 
    4746; @param ID 
    48 ; 
    4947; 
    5048; @param VALUE 
    … …  
    516514;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    517515;   6 elements: The extraction is made on Boxzoom 
    518 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     516; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    519517; <pro>domdef</pro>! 
    520518; 
    … …  
    541539FUNCTION cw_domain, parent, BOXZOOM=boxzoom, STRICT=strict $ 
    542540                  , UVALUE=uvalue, UNAME=uname, UNZOOM=unzoom, _EXTRA=ex 
    543 ; 
    544541; 
    545542  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro

    r327 r495  
    116116 
    117117;   widget_control, uniteid, get_value = unite 
    118 ; 
    119118; 
    120119;    if uval.name EQ 'unite' then begin 
    … …  
    162161; @file_comments 
    163162; 
    164 ; 
    165163; @categories 
    166164; Compound widget 
    … …  
    177175;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    178176;   6 elements: The extraction is made on Boxzoom 
    179 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     177; Where lon1, lon2,lat1,lat2 are global variables defined at the last 
    180178; <pro>domdef</pro> ! 
    181179; 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slider_pm.pro

    r327 r495  
    145145; @file_comments 
    146146; 
    147 ; 
    148147; @categories 
    149148; Compound widget 
    … …  
    210209  IF uval EQ 'decimal' THEN value = float(event.str) $ 
    211210  ELSE value = float(widget_info(dcid, /combobox_gettext)) 
    212   out = 0 ; defaut case 
     211  out = 0 ; default case 
    213212  case uval OF 
    214213    'plus': if (value + 1) LE minmax[1] then value2 = value + 1 ELSE out = 1 
    … …  
    320319;            slider widget. 
    321320; 
    322 ; 
    323321; @examples 
    324322; See the program provided above (testwid and the associated procedure, testwid_event). 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro

    r327 r495  
    249249   rien = widget_text(base2, value = colvalue, /editable, xsize = 2, uname = 'palnum', uvalue = 'palnum') 
    250250 
    251  
    252  
    253251; widget text containing other keywords pass into top_uvalue.exextra 
    254252; Does it remain some? If yes, we have to put them as string 

  • trunk/SRC/ToBeReviewed/WIDGET/slec.pro

    r327 r495  
    2424;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    2525;   6 elements: The extraction is made on Boxzoom 
    26 ; where lon1,lon2,lat1,lat2 are global variables defined at the last  
     26; where lon1,lon2,lat1,lat2 are global variables defined at the last 
    2727; <pro>domdef</pro> ! 
    2828; 

  • trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro

    r486 r495  
    6565  ENDIF ELSE noticebase = -1 
    6666 
    67  
    6867  return, noticebase 
    6968end 

  • trunk/SRC/ToBeReviewed/WIDGET/xx.pro

    r493 r495  
    7777;---------------------------------------------------------------------- 
    7878; 
    79 ; 
    8079   fileparameters = {filename: 'many !' $ 
    8180                     , time_counter: calendar $ 

  • trunk/SRC/ToBeReviewed/WIDGET/xxx.pro

    r370 r495  
    134134; @keyword REDRAW 
    135135; 
    136 ; 
    137136; @keyword SEPARATE 
    138 ; 
    139137; 
    140138; @keyword UVALUE 
    … …  
    404402; we find homedir 
    405403        homedir = isadirectory(io = homedir, title = 'Bad definition of homedir') 
    406 ; We recuperae the list of instructions 
     404; We recuperate the list of instructions 
    407405        globalcommand = extractatt(top_uvalue, 'globalcommand') 
    408406; We complete by first and last lines of the program 
    … …  
    468466; creation of the pointer we will hook at the widget. 
    469467    top_uvalue = ptrarr(2, 29, /allocate_heap) 
    470 ; variables refering to the widget 
     468; variables referring to the widget 
    471469    *top_uvalue[0, 0] = 'options' & *top_uvalue[1, 0] = options 
    472470    *top_uvalue[0, 1] = 'smallin' & *top_uvalue[1, 1] = smallin 
    … …  
    482480    *top_uvalue[0, 11] = 'noticebase' & *top_uvalue[1, 11] = 0l 
    483481    *top_uvalue[0, 12] = 'extra' & *top_uvalue[1, 12] = ex 
    484 ; variables refering to different files we can read 
     482; variables referring to different files we can read 
    485483    *top_uvalue[0, 13] = 'currentfile' & *top_uvalue[1, 13] = currentfile 
    486484    *top_uvalue[0, 14] = 'filelist' & *top_uvalue[1, 14] = filelist 
    … …  
    488486    *top_uvalue[0, 16] = 'readparameters' & *top_uvalue[1, 16] = readparameters 
    489487    *top_uvalue[0, 17] = 'meshparameters' & *top_uvalue[1, 17] = meshparameters 
    490 ; variables refering to different drawing we can do 
     488; variables referring to different drawing we can do 
    491489    *top_uvalue[0, 18] = 'penvs' & *top_uvalue[1, 18] = replicate(!p, nbredessin) 
    492490    *top_uvalue[0, 19] = 'xenvs' & *top_uvalue[1, 19] = replicate(!x, nbredessin) 
Note: See TracChangeset for help on using the changeset viewer.