Ignore:
Timestamp:
03/16/07 10:22:26 (17 years ago)
Author:
pinsard
Message:

corrections of some misspellings in some *.pro

Location:
trunk/SRC/ToBeReviewed/HOPE
Files:
5 edited

Legend:

Unmodified
Added
Removed

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

    r157 r226  
    88; @categories 
    99; Grid 
    10 ;  
     10; 
    1111; @param XAXIS 
    1212; 
    … …  
    6868   if NOT keyword_set(lasts) then lasts = [jpi-1, jpj-1, jpk-1] 
    6969; 
    70 ; depermination of the grid type and of the point type 
     70; determination of the grid type and of the point type 
    7171; 
    7272   if keyword_set(pttype) then vargrid = pttype 
    … …  
    129129         gphiv = gphit+(gphit[0, 1]-gphit[0, 0])/2. 
    130130         gphif = gphit+(gphit[0, 1]-gphit[0, 0])/2. 
    131       ENDIF ELSE BEGIN  
     131      ENDIF ELSE BEGIN 
    132132         gphiv = gphit 
    133133         gphif = gphit 
    … …  
    181181   e2f = e2t 
    182182; 
    183 ; mask  
     183; mask 
    184184; 
    185185   tmask = replicate(1b, jpi, jpj, jpk) 
    … …  
    239239  IF NOT keyword_set(key_forgetold) THEN BEGIN 
    240240   @updateold 
    241   ENDIF  
     241  ENDIF 
    242242;------------------------------------------------------------ 
    243243   return 

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

    r163 r226  
    6262   endif 
    6363; 
    64 ; we get the size of the dimenstion id of this section 
     64; we get the size of the dimension id of this section 
    6565; 
    6666   dimvar = *top_uvalue[1, findline(top_uvalue, 'dimvar')] 

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

    r163 r226  
    6868   jpj = n_elements(yaxis) 
    6969; 
    70 ; depermination of the grid type and of the point type 
     70; determination of the grid type and of the point type 
    7171; 
    7272; low resolution grid: jpi=128, jpj=121 ( x 2), jpk=20 
    73 ;  
     73; 
    7474;                0.       1.4         2.8       4.2        5.6 
    7575;    odd                    T          u          T          u  93.3 
    … …  
    8080; 
    8181; high resolution grid: jpi=256, jpj=195 ( x 2), jpk=29 
    82 ;  
    83 ;                0.       0.7         1.4        2.1        2.8        
     82; 
     83;                0.       0.7         1.4        2.1        2.8 
    8484;    odd                    T          u          T          u  91.6 
    8585;    even        T          u          T          u             91.0 

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

    r163 r226  
    77; 
    88; @param EVENT 
    9 ;  
     9; 
    1010; 
    1111; @returns 
    … …  
    1616; 
    1717; @examples 
    18 ;  
    19 ;  
     18; 
    2019; @history 
    2120; 
    … …  
    244243; A two elements vector [date1, date2]] 
    245244; the boundary of the calendar with date1 and date2 
    246 ; folowing the syntax yyyymmdd 
     245; following the syntax yyyymmdd 
    247246; 
    248247; @keyword ODDPT 
    249248; Activate to read only the sections located on ODD 
    250 ; points  
     249; points 
    251250; 
    252251; @keyword EVENPT 
    253252; Activate to read only the sections located on even 
    254 ; points  
     253; points 
    255254; 
    256255; @keyword ODDEVENPT 
    … …  
    332331  compile_opt idl2, strictarrsubs 
    333332; 
    334 @common                         ; usefull only for the definition of iodir  
     333@common                         ; usefull only for the definition of iodir 
    335334  if n_elements(filename) EQ 0 then filename = isafile(iodirectory = iodir, _extra = ex) 
    336335  IF size(filename, /type) NE 7 THEN return, -1 
    337336  filename = isafile(filename = filename, iodirectory = iodir, _extra = ex) 
    338337; 
    339   cdfid = ncdf_open(filename)       ; id of the netcdf file  
     338  cdfid = ncdf_open(filename)       ; id of the netcdf file 
    340339  wathinside = ncdf_inquire(cdfid)  ; structure with global informations 
    341 ;-------------------------------  
     340;------------------------------- 
    342341;  dimensions 
    343 ;-------------------------------  
     342;------------------------------- 
    344343  namedim = strarr(wathinside.ndims)  ; name of the dimensions 
    345344  typedim = strarr(wathinside.ndims)  ; type of the dimensions (x,y,z,t) 
    … …  
    349348    ncdf_diminq, cdfid, dimiq, name, value 
    350349    namedim[dimiq] = name 
    351     case 1 of  
     350    case 1 of 
    352351      STRCMP(name, 'lon', 3, /FOLD_CASE):typedim[dimiq] = 'x' 
    353352      STRCMP(name, 'lat', 3, /FOLD_CASE):typedim[dimiq] = 'y' 
    … …  
    363362; dimlist: structure which contains the name and the value of each 
    364363; dimension 
    365 ; we suppose that there is always a variable which has the  
     364; we suppose that there is always a variable which has the 
    366365; same name that the dimension and which gives the values of 
    367366; this dimension 
    … …  
    372371    dimlist = create_struct(dimlist, namedim[dimiq], value) 
    373372  endfor 
    374 ;-------------------------------  
     373;------------------------------- 
    375374;  variables 
    376 ;-------------------------------  
     375;------------------------------- 
    377376  namevar = strarr(wathinside.nvars)   ; names of the variables 
    378377  ndimsvar = lonarr(wathinside.nvars)  ; number of dim for each variable 
    … …  
    388387; we cut dimvar to select only the interessant part 
    389388  dimvar = dimvar[0:max(ndimsvar)-1, *] 
    390 ; selection of the data variables which are diffrent from the 
     389; selection of the data variables which are different from the 
    391390; dimension variables 
    392391; we suppose that that data variables are 4D array (with sometime 
    … …  
    412411  endfor 
    413412; 
    414 ;---------------------------------------------------   
    415 ;---------------------------------------------------   
    416 ;---------------------------------------------------   
     413;--------------------------------------------------- 
     414;--------------------------------------------------- 
     415;--------------------------------------------------- 
    417416;  definition of the widget 
    418 ;---------------------------------------------------   
    419 ;---------------------------------------------------   
    420 ;---------------------------------------------------   
     417;--------------------------------------------------- 
     418;--------------------------------------------------- 
     419;--------------------------------------------------- 
    421420  base = widget_base(/column) 
    422 ;---------------------------------------------------   
    423 ; first base:  
     421;--------------------------------------------------- 
     422; first base: 
    424423;    droplist to select the type of section 
    425424;    droplist to select the variable 
    426425;    button to select type of line : odd, even or odd-even 
    427 ;---------------------------------------------------   
     426;--------------------------------------------------- 
    428427  base1 = widget_base(base, /row, /frame) 
    429428  typechoice = sectype[uniq(sectype, sort(sectype))] 
    … …  
    435434                    = 0L > (where(typechoice EQ selectedtype))[0] 
    436435  ENDIF ELSE selectedtype = typechoice[0] 
    437 ;  
     436; 
    438437  varchoice = namevar[uniq(namevar, sort(namevar))] 
    439438  base12 = widget_droplist(base1, title = 'Available data', value = varchoice, uvalue = {name:'var choice'}, uname = 'var choice') 
    … …  
    445444; 
    446445  base13 = widget_base(base1, /row, uname = 'linechoicebase') 
    447 ;---------------------------------------------------   
     446;--------------------------------------------------- 
    448447; base 2: base to select the domain of the odd points 
    449448;--------------------------------------------------- 
    450449  base2 = widget_base(base, /column, uname = 'basedomainodd', /frame) 
    451 ;---------------------------------------------------   
     450;--------------------------------------------------- 
    452451; base 3: base to select the domain of the even points 
    453452;--------------------------------------------------- 
    454453  base3 = widget_base(base, /column, uname = 'basedomaineven', /frame) 
    455 ;---------------------------------------------------   
     454;--------------------------------------------------- 
    456455; base 4: base to select the domain of the odd-even points 
    457456;--------------------------------------------------- 
    458457  base4 = widget_base(base, /column, uname = 'basedomainodd-even', /frame) 
    459 ;---------------------------------------------------   
     458;--------------------------------------------------- 
    460459; base 5: calendar 
    461460;--------------------------------------------------- 
    … …  
    468467  base51 = cw_calendar(base5, time, uname = 'date1', uvalue = {name:'date1'}) 
    469468  base52 = cw_calendar(base5, time, uname = 'date2', uvalue = {name:'date2'}) 
    470 ;---------------------------------------------------   
     469;--------------------------------------------------- 
    471470;  base 6: base to select the min, max, ... and others keywords 
    472471;--------------------------------------------------- 
    473472  base6 = cw_specifie(base, /column, uname = 'specifie', uvalue = {name:'specifie'}) 
    474 ;---------------------------------------------------   
     473;--------------------------------------------------- 
    475474;  base 7: last base with the action buttons 
    476475;--------------------------------------------------- 
    … …  
    478477  base71 = widget_button(base7, value = 'Plot', uvalue = {name:'plot'}) 
    479478  base72 = widget_button(base7, value = 'Cancel', uvalue = {name:'cancel'}) 
    480 ;---------------------------------------------------   
     479;--------------------------------------------------- 
    481480; determination of the selected variable ...... 
    482 ;---------------------------------------------------   
     481;--------------------------------------------------- 
    483482  goodname = 0 > where(strlowcase(namevar) EQ strlowcase(selectedname)) 
    484483  goodtype = 0 > where(sectype EQ selectedtype) 
    … …  
    568567    endif 
    569568  ENDIF 
    570 ;---------------------------------------------------   
     569;--------------------------------------------------- 
    571570; definition of the uvalue of the base which allows to share the 
    572 ; variables between programs.  
    573 ;---------------------------------------------------   
     571; variables between programs. 
     572;--------------------------------------------------- 
    574573  top_uvalue = ptrarr(2, 18, /allocate_heap) 
    575574  *top_uvalue[0, 0] = 'type choice' & *top_uvalue[1, 0] = temporary(typechoice) 

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

    r163 r226  
    4343   selectedline=(*top_uvalue[1, findline(top_uvalue, 'linetype')])[selected] 
    4444; 
    45 ; we get the size of the dimenstion id of this section 
     45; we get the size of the dimension id of this section 
    4646; 
    4747   dimvar = *top_uvalue[1, findline(top_uvalue, 'dimvar')] 
    … …  
    8585         oddsecchoice = oddsecchoice[sortedzdim] 
    8686         nothing=widget_droplist(basedomainodd,title = 'number of levels', value = strtrim(sizedims, 2), uvalue = {name:'oddsecchoice'}, uname='oddsecchoice') 
    87       ENDIF  
     87      ENDIF 
    8888      domainpart, top_uvalue, basedomainodd, oddsecchoice[0] 
    8989      widget_control, basedomainodd, set_uvalue = oddsecchoice 
    90    ENDIF ELSE BEGIN  
     90   ENDIF ELSE BEGIN 
    9191      nothing=widget_label(basedomainodd, value = ' ', uname = 'title') 
    9292      domainpart, top_uvalue, basedomainodd, /destroy 
    … …  
    115115         evensecchoice = evensecchoice[sortedzdim] 
    116116         nothing=widget_droplist(basedomaineven,title = 'number of levels', value = strtrim(sizedims, 2), uvalue = {name:'evensecchoice'}, uname='evensecchoice') 
    117       ENDIF  
     117      ENDIF 
    118118      domainpart, top_uvalue, basedomaineven, evensecchoice[0] 
    119119      widget_control, basedomaineven, set_uvalue = evensecchoice 
    … …  
    145145         oddevensecchoice = oddevensecchoice[sortedzdim] 
    146146         nothing=widget_droplist(basedomainoddeven,title = 'number of levels', value = strtrim(sizedims, 2), uvalue = {name:'odd-evensecchoice'}, uname='odd-evensecchoice') 
    147       ENDIF  
     147      ENDIF 
    148148      domainpart, top_uvalue, basedomainoddeven, oddevensecchoice[0] 
    149149      widget_control, basedomainoddeven, set_uvalue = oddevensecchoice 
Note: See TracChangeset for help on using the changeset viewer.