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/PLOTS
Files:
30 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.