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

corrections of some misspellings in some *.pro

Location:
trunk/SRC/Interpolation
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro

    r202 r226  
    55; to any grid using the bilinear method 
    66; 
    7 ; @categories  
     7; @categories 
    88; Interpolation 
    99; 
    … …  
    5353;  June 2006: Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    5454; 
    55 ; @version $Id$ 
     55; @version 
     56; $Id$ 
    5657; 
    5758;- 
    … …  
    6566; 
    6667  jpio = (size(olonin, /dimensions))[0] 
    67   jpjo = (size(olonin, /dimensions))[1]   
     68  jpjo = (size(olonin, /dimensions))[1] 
    6869; mask check 
    6970  IF n_elements(omsk) EQ 1 AND omsk[0] EQ -1 THEN omsk = replicate(1b, jpio, jpjo) 
    … …  
    7374    stop 
    7475  ENDIF 
    75   IF n_elements(amsk) NE jpia*jpja THEN BEGIN  
     76  IF n_elements(amsk) NE jpia*jpja THEN BEGIN 
    7677    print, 'output grid mask do not have the good size' 
    7778    stop 
    … …  
    181182        ind = good[ind] 
    182183; now, we morph the quadrilateral ocean cell into the reference square (0 -> 1) 
    183 ; in addition we get the corrdinates of the atmospheric point in this new morphed square 
     184; in addition we get the coordinates of the atmospheric point in this new morphed square 
    184185        IF onsphere THEN BEGIN 
    185186; Warning! quadrilateral2square use anticlockwise quadrilateral definition 
    … …  
    213214          xy[1] EQ 0 AND (tmpmsk[0]+tmpmsk[1]) EQ 0    : foraddr[n] = -1 
    214215          xy[1] EQ 1 AND (tmpmsk[2]+tmpmsk[3]) EQ 0    : foraddr[n] = -1 
    215           ELSE: BEGIN  
     216          ELSE: BEGIN 
    216217; we keep its address 
    217218        foraddr[n] = ind 

  • trunk/SRC/Interpolation/compute_fromreg_bilinear_weigaddr.pro

    r208 r226  
    44; "regular grid" to any grid using the bilinear method 
    55; 
    6 ; @categories  
     6; @categories 
    77; Interpolation 
    88; 
    … …  
    2121; @keyword NONORTHERNLINE {type=scalar 0 or 1}{default=0} 
    2222; put 1 if you don't want to take into 
    23 ; account the northen line of the input data when performing the interpolation. 
     23; account the northern line of the input data when performing the interpolation. 
    2424; 
    2525; @keyword NOSOUTHERNLINE {type=scalar 0 or 1}{default=0} 
    … …  
    4848;  November 2005: Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    4949; 
    50 ; @version $Id$ 
     50; @version 
     51; $Id$ 
    5152; 
    5253;- 
    … …  
    109110  IF ma GE minalon+360. THEN stop 
    110111; 
    111 ; we want to do biliear interpolation => for each ocean point, we must 
     112; we want to do bilinear interpolation => for each ocean point, we must 
    112113; find in which atm cell it is located. 
    113114; if the ocean point is out of the atm grid, we use closest neighbor 
    114115; interpolation 
    115116; 
    116 ; for each T point of oce grid, we find in which armospheric cell it is 
     117; for each T point of oce grid, we find in which atmospheric cell it is 
    117118; located. 
    118119; As the atmospheric grid is regular, we can use inrecgrid instead 

  • trunk/SRC/Interpolation/compute_fromreg_imoms3_weigaddr.pro

    r202 r226  
    55; "regular grid" to any grid using the imoms3 method 
    66; 
    7 ; @categories  
     7; @categories 
    88; Interpolation 
    99; 
    … …  
    2222; @keyword NONORTHERNLINE {type=scalar 0 or 1}{default=0} 
    2323; put 1 if you don't want to take into 
    24 ; account the northen line of the input data when performing the interpolation. 
     24; account the northern line of the input data when performing the interpolation. 
    2525; 
    2626; @keyword NOSOUTHERNLINE {type=scalar 0 or 1}{default=0} 

  • trunk/SRC/Interpolation/extrapolate.pro

    r202 r226  
    11;+ 
    22; @file_comments 
    3 ; extrapolate data (zinput) where maskinput eq 0 by filling step by  
     3; extrapolate data (zinput) where maskinput eq 0 by filling step by 
    44; step the coastline points with the mean value of the 8 neighbourgs 
    55; (weighted by their mask value). 
    66; 
    7 ; @categories  
     7; @categories 
    88; Interpolation 
    99; 
    … …  
    4747;  Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    4848; 
    49 ; @version $Id$ 
     49; @version 
     50; $Id$ 
    5051; 
    5152;- 
    … …  
    7172  ztmp = bytarr(nx+2, ny+2) 
    7273  IF n_elements(maskinput) EQ 1 AND maskinput[0] EQ -1 THEN maskinput = replicate(1b, nx, ny) 
    73   IF n_elements(maskinput) NE nx*ny THEN BEGIN  
     74  IF n_elements(maskinput) NE nx*ny THEN BEGIN 
    7475    print, 'input grid mask do not have the good size' 
    7576    return, -1 
    … …  
    9798; 
    9899  cnt = 1 
    99 ; When we look for the coast line, we don't want to select the 
     100; When we look for the coastline, we don't want to select the 
    100101; borderlines of the array. -> we force the value of the mask for 
    101102; those lines. 
    … …  
    109110  WHILE cnt LE nb_iteration AND cnt_land NE 0 DO BEGIN 
    110111;--------------------------------------------------------------- 
    111 ; find the coast line points... 
     112; find the coastline points... 
    112113;--------------------------------------------------------------- 
    113114; Once the land points list has been found, we change back the the 
    … …  
    148149    weight = weight[temporary(ok)] 
    149150;--------------------------------------------------------------- 
    150 ; fill the coastine points 
     151; fill the coastline points 
    151152;--------------------------------------------------------------- 
    152153    z = temporary(z)*msk 

  • trunk/SRC/Interpolation/extrapsmooth.pro

    r202 r226  
    4646;- 
    4747FUNCTION extrapsmooth, in, mskin, x_periodic = x_periodic, MINVAL = minval, MAXVAL = maxval, GE0 = ge0 
    48 ;   
    49   compile_opt strictarr, strictarrsubs  
    5048; 
    51   sz = size(reform(in))   
    52   IF sz[0] NE 2 THEN BEGIN  
     49  compile_opt strictarr, strictarrsubs 
     50; 
     51  sz = size(reform(in)) 
     52  IF sz[0] NE 2 THEN BEGIN 
    5353    print, 'Input arrays must have 2 dimensions' 
    5454    return, -1 
    … …  
    5757  ny = sz[2] 
    5858  IF n_elements(mskin) EQ 1 AND mskin[0] EQ -1 THEN mskin = replicate(1b, nx, ny) 
    59   IF n_elements(mskin) NE nx*ny THEN BEGIN  
     59  IF n_elements(mskin) NE nx*ny THEN BEGIN 
    6060    print, 'input grid mask do not have the good size' 
    6161    return, -1 
    … …  
    6565  whmsk = where(mskin EQ 0, nbr) 
    6666  IF nbr NE 0 THEN out[temporary(whmsk)] = !values.f_nan 
    67 ; add values on each side of the array to avoid bondary effects 
     67; add values on each side of the array to avoid boundary effects 
    6868  nx2 = nx/2 
    6969  ny2 = ny/2 
    … …  
    7474    add2 = out[nx-nx2:nx-1, *] 
    7575    out = [add2, [temporary(out)], add1] 
    76   ENDIF ELSE BEGIN  
     76  ENDIF ELSE BEGIN 
    7777    add = replicate(!values.f_nan, nx2, ny+2*ny2) 
    7878    out = [add, [temporary(out)], add] 

  • trunk/SRC/Interpolation/get_gridparams.pro

    r163 r226  
    142142        1:BEGIN 
    143143          IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN 
    144             print, 'Longitudes are not the same for all latitudes, imposible to extract a 1D array of the longitudes' 
     144            print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes' 
    145145            stop 
    146146          ENDIF 
    … …  
    163163        1:BEGIN 
    164164          IF array_equal(lat, replicate(1, jpi) # lat[0, *]) NE 1 THEN BEGIN 
    165             print, 'Latitudes are not the same for all longitudes, imposible to extract a 1D array of the latitudes' 
     165            print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes' 
    166166            stop 
    167167          ENDIF 
    … …  
    184184        1:BEGIN 
    185185          IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN 
    186             print, 'Longitudes are not the same for all latitudes, imposible to extract a 1D array of the longitudes' 
     186            print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes' 
    187187            stop 
    188188          ENDIF 
    189189          lon = lon[*, 0] 
    190190          IF array_equal(lat, replicate(1, jpi) # reform(lat[0, *])) NE 1 THEN BEGIN 
    191             print, 'Latitudes are not the same for all longitudes, imposible to extract a 1D array of the latitudes' 
     191            print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes' 
    192192            stop 
    193193          ENDIF 

  • trunk/SRC/Interpolation/inquad.pro

    r163 r226  
    33; to find if an (x,y) point is in a quadrilateral (x1,x2,x3,x4) 
    44; 
    5 ; @categories  
     5; @categories 
    66; Grid 
    77; 
    … …  
    205205; 
    206206; computation of test without any do loop for ntofind points (x,y) and 
    207 ; nquad quadilateral((x1,x2,x3,x4),(y1,y2,y3,y4)) 
     207; nquad quadrilateral((x1,x2,x3,x4),(y1,y2,y3,y4)) 
    208208; test dimensions are (ntofind, nquad) 
    209209; column i of test corresponds to the intersection of point i with all 
    210 ; quadirlateral. 
     210; quadrilateral. 
    211211; row j of test corresponds to all the points localized in cell j 
    212212  test = $ 
Note: See TracChangeset for help on using the changeset viewer.