Changeset 226 for trunk/SRC/Grid


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

corrections of some misspellings in some *.pro

Location:
trunk/SRC/Grid
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Grid/checkperio.pro

    r197 r226  
    88; @param file {in}{required}{type=scalar string} 
    99; A string giving the name of the NetCdf file 
    10 ;  
     10; 
    1111; @keyword WRITE {default=0}{type=scalar: 0 or 1} 
    1212; Define to 1 to write the good periodicity in the file. 
    13 ; By default print only mesage of periodicity errors 
     13; By default print only message of periodicity errors 
    1414; 
    1515; @restrictions 
    … …  
    3838; @history 
    3939; October 2006: Sebastien Masson (smasson\@locean-ipsl.upmc.fr) 
    40 ;     
     40; 
    4141; @version 
    4242; $Id$ 
    … …  
    4444PRO checkperio, file, WRITE = write 
    4545 
    46   IF file_test(file) EQ 0 THEN BEGIN  
     46  IF file_test(file) EQ 0 THEN BEGIN 
    4747    print, 'file '+file+' not found' 
    4848    RETURN 
    … …  
    5353; 
    5454  dimsz = lonarr(finq.ndims) 
    55   FOR did = 0, finq.ndims-1 DO BEGIN  
     55  FOR did = 0, finq.ndims-1 DO BEGIN 
    5656    ncdf_diminq, cdfid, did, name, size 
    5757    dimsz[did] = size 
    5858  ENDFOR 
    5959; 
    60   FOR vid = 0, finq.nvars-1 DO BEGIN  
     60  FOR vid = 0, finq.nvars-1 DO BEGIN 
    6161    vinq =  ncdf_varinq(cdfid, vid) 
    6262    IF vinq.ndims GE 2 THEN BEGIN 
    … …  
    6868; 2D VAR 
    6969;------------------------------ 
    70         2:BEGIN  
     70        2:BEGIN 
    7171; y periodicity (1) 
    7272          CASE 1 OF 
    … …  
    7575              ncdf_varget, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-3] 
    7676              part2 = reverse(shift(part2, -1)) 
    77               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     77              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    7878                print, vinq.name+' bad y periodicity (1)' 
    7979                IF keyword_set(write) THEN $ 
    … …  
    8585              ncdf_varget, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-2] 
    8686              part2 = reverse(part2) 
    87               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     87              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    8888                print, vinq.name+' bad y periodicity (1)' 
    8989                IF keyword_set(write) THEN $ 
    … …  
    9999              ncdf_varget, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1], offset = [          2, jpj-2] 
    100100              part2 = reverse(part2) 
    101               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     101              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    102102                print, vinq.name+' bad y periodicity (2)' 
    103103                IF keyword_set(write) THEN $ 
    … …  
    112112          ncdf_varget, cdfid, vid, part1, count = [1, jpj], offset = [0, 0] 
    113113          ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [jpi-2, 0] 
    114           IF array_equal(part1, part2) NE 1 THEN BEGIN  
     114          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    115115            print, vinq.name+' bad x periodicity (1)' 
    116116            IF keyword_set(write) THEN $ 
    … …  
    120120          ncdf_varget, cdfid, vid, part1, count = [1, jpj], offset = [jpi-1, 0] 
    121121          ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [1, 0] 
    122           IF array_equal(part1, part2) NE 1 THEN BEGIN  
     122          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    123123            print, vinq.name+' bad x periodicity (2)' 
    124124            IF keyword_set(write) THEN $ 
    … …  
    129129; 3D VAR 
    130130;------------------------------ 
    131         3:BEGIN  
     131        3:BEGIN 
    132132          jpk = vdimsz[2] 
    133133; y periodicity (1) 
    … …  
    138138              IF jpk EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, /over) 
    139139              part2 = reverse(shift(part2, -1, 0, 0), 1) 
    140               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     140              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    141141                print, vinq.name+' bad y periodicity (1)' 
    142142                IF keyword_set(write) THEN $ 
    … …  
    149149              IF jpk EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, /over) 
    150150              part2 = reverse(part2, 1) 
    151               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     151              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    152152                print, vinq.name+' bad y periodicity (1)' 
    153153                IF keyword_set(write) THEN $ 
    … …  
    163163              ncdf_varget, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk], offset = [          2, jpj-2, 0] 
    164164              part2 = reverse(part2, 1) 
    165               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     165              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    166166                print, vinq.name+' bad y periodicity (2)' 
    167167                IF keyword_set(write) THEN $ 
    … …  
    176176          ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk], offset = [0, 0, 0] 
    177177          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [jpi-2, 0, 0] 
    178           IF array_equal(part1, part2) NE 1 THEN BEGIN  
     178          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    179179            print, vinq.name+' bad x periodicity (1)' 
    180180            IF keyword_set(write) THEN $ 
    … …  
    184184          ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk], offset = [jpi-1, 0, 0] 
    185185          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [1, 0, 0] 
    186           IF array_equal(part1, part2) NE 1 THEN BEGIN  
     186          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    187187            print, vinq.name+' bad x periodicity (2)' 
    188188            IF keyword_set(write) THEN $ 
    … …  
    193193; 4D VAR 
    194194;------------------------------ 
    195         4:BEGIN  
     195        4:BEGIN 
    196196          jpk = vdimsz[2] 
    197197          jpt = vdimsz[3] 
    … …  
    203203              IF jpt EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, jpt, /over) 
    204204              part2 = reverse(shift(part2, -1, 0, 0, 0), 1) 
    205               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     205              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    206206                print, vinq.name+' bad y periodicity (1)' 
    207207                IF keyword_set(write) THEN $ 
    … …  
    214214              IF jpt EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, jpt, /over) 
    215215              part2 = reverse(part2, 1) 
    216               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     216              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    217217                print, vinq.name+' bad y periodicity (1)' 
    218218                IF keyword_set(write) THEN $ 
    … …  
    228228              ncdf_varget, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk, jpt], offset = [          2, jpj-2, 0, 0] 
    229229              part2 = reverse(part2, 1) 
    230               IF array_equal(part1, part2) NE 1 THEN BEGIN  
     230              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    231231                print, vinq.name+' bad y periodicity (2)' 
    232232                IF keyword_set(write) THEN $ 
    … …  
    241241          ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk, jpt], offset = [0, 0, 0, 0] 
    242242          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [jpi-2, 0, 0, 0] 
    243           IF array_equal(part1, part2) NE 1 THEN BEGIN  
     243          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    244244            print, vinq.name+' bad x periodicity (1)' 
    245245            IF keyword_set(write) THEN $ 
    … …  
    249249          ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk, jpt], offset = [jpi-1, 0, 0, 0] 
    250250          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [1, 0, 0, 0] 
    251           IF array_equal(part1, part2) NE 1 THEN BEGIN  
     251          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    252252            print, vinq.name+' bad x periodicity (2)' 
    253253            IF keyword_set(write) THEN $ 
    … …  
    257257        ELSE:print, vinq.name+' nothing to check' 
    258258      ENDCASE 
    259     ENDIF     
     259    ENDIF 
    260260  ENDFOR 
    261261 

  • trunk/SRC/Grid/computegrid.pro

    r217 r226  
    44;+ 
    55; 
    6 ; @file_comments  
     6; @file_comments 
    77; 
    88; compute the grid parameters (cm_4mesh) common 
    … …  
    5050; ccmeshparameters, ccreadparameters 
    5151; 
    52 ; @categories  
     52; @categories 
    5353; Grid 
    5454; 
    … …  
    7272;       optional if [XY]AXIS keyword is used or stepxin is a vector 
    7373; 
    74 ; @param nyin {in}{optional}{type=scalar}  
     74; @param nyin {in}{optional}{type=scalar} 
    7575;       number of points in y direction, 
    7676;       optional if [XY]AXIS keyword is used or stepyin is a vector 
    … …  
    111111; 
    112112; @keyword SHIFT {default=computed according to glamboundary}{type=scalar} 
    113 ;       Force the manual definition of the zonal shift that must be apply to the data.  
     113;       Force the manual definition of the zonal shift that must be apply to the data. 
    114114;       The resulting value will be stored in the common (cm_4mesh) variable key_shift 
    115115;       Note that if key_periodic=0 then in any case key_shift = 0. 
    … …  
    169169;       Activate when the model is a C grid based on a F point 
    170170;       (with a F point at the bottom-left corner and a T point at the 
    171 ;       upper-right corner). In this case, we ignore  
     171;       upper-right corner). In this case, we ignore 
    172172;         - the first line of F and V points 
    173173;         - the last  line of T and U points 
    … …  
    181181;       Activate when the model is a C grid based on a U point 
    182182;       (with a U point at the bottom-left corner and a T point at the 
    183 ;       upper-right corner). In this case, we ignore  
     183;       upper-right corner). In this case, we ignore 
    184184;         - if the grid is not x-periodic, the first column of F and U points 
    185185;         - if the grid is not x-periodic, the last  column of T and V points. 
    … …  
    191191;       Activate when the model is a C grid based on a V point 
    192192;       (with a V point at the bottom-left corner and a T point at the 
    193 ;       upper-right corner). In this case, we ignore  
     193;       upper-right corner). In this case, we ignore 
    194194;         - the first line of F and V points 
    195195;         - the last  line of T and U points 
    … …  
    203203;       Used when the model is a ROMS C-grid with one more point 
    204204;       in longitude for T and V grid and one more point in latitude 
    205 ;       for T and U grid. In this case, we ignore  
     205;       for T and U grid. In this case, we ignore 
    206206;         - the last line of T and U points 
    207207;         - the last column of T and V points. 
    … …  
    215215;       Specify the vertical axis. Must be sorted in the increasing or deceasing order 
    216216; 
    217 ; @keyword _EXTRA  
     217; @keyword _EXTRA 
    218218;    (not used in the present case...) 
    219219; 
    220220; @uses cm_4mesh cm_4data cm_4cal 
    221221; 
    222 ; @restrictions if the grid has x/y periodicity orverlap and/or if 
     222; @restrictions if the grid has x/y periodicity overlap and/or if 
    223223;    the mask has 0 everywhere at the border (like a close sea) and 
    224224;    if (we did not activate /plain and xminmesh, xmaxmesh, yminmesh, 
    … …  
    230230; @restrictions FUV points definition is not exact if the grid is irregular 
    231231; 
    232 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     232; @history 
     233; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    233234;                      2000-04-20 
    234 ;  Sept 2004, several bug fixs to suit C grid type... 
     235;  Sept 2004, several bug fix to suit C grid type... 
    235236;  Aug 2005, rewritte almost everything... 
    236237; 
    237 ; @version $Id$ 
     238; @version 
     239; $Id$ 
    238240; 
    239241;- 
    … …  
    996998      gdepw = gdept 
    997999    ENDELSE 
    998     IF keyword_set(romsh) THEN gdepw = gdept  
     1000    IF keyword_set(romsh) THEN gdepw = gdept 
    9991001; 
    10001002;==================================================== 
    … …  
    10201022      tmask = tmask[*]#replicate(1, jpkglo) 
    10211023      tmask = reform(tmask, jpiglo, jpjglo, jpkglo, /overwrite) 
    1022     ENDIF   
     1024    ENDIF 
    10231025    IF jpiglo EQ 1 OR jpjglo EQ 1 THEN tmask = reform(tmask, jpiglo, jpjglo, jpkglo, /overwrite) 
    10241026    tmask = byte(tmask[ixminmesh:ixmaxmesh, iyminmesh:iymaxmesh, izminmesh:izmaxmesh]) 

  • trunk/SRC/Grid/ncdf_meshread.pro

    r216 r226  
    66; @file_comments read NetCDF meshmask file created by OPA 
    77; 
    8 ; @categories  
     8; @categories 
    99; Grid 
    1010; 
    … …  
    4646; 
    4747; @keyword SHIFT {default=computed according to glamboundary}{type=scalar} 
    48 ;    Force the manual definition of the zonal shift that must be apply to the data.  
     48;    Force the manual definition of the zonal shift that must be apply to the data. 
    4949;    The resulting value will be stored in the common (cm_4mesh) variable key_shift 
    5050;    Note that if key_periodic=0 then in any case key_shift = 0. 
    … …  
    6767;  are equal to -1 they will be automatically defined 
    6868; 
    69 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     69; @history 
     70; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    7071;                      12/1999 
    7172; July 2004, Sebastien Masson: Several modifications (micromeshmask, 
    … …  
    7576; Aug. 2005, Sebastien Masson: some cleaning + english 
    7677; 
    77 ; @version $Id$ 
     78; @version 
     79; $Id$ 
    7880; 
    7981;- 
    … …  
    218220; 
    219221      IF array_equal(sort(xaxis), lindgen(jpi)) NE 1 THEN BEGIN 
    220         print, 'the x axis (1st line of glamt) is not sorted in the inceasing order after the automatic definition of key_shift' 
     222        print, 'the x axis (1st line of glamt) is not sorted in the increasing order after the automatic definition of key_shift' 
    221223        print, 'please use the keyword shift (and periodic) to suppress the automatic definition of key_shift (and key_periodic) and define by hand a more suitable value...' 
    222224        widget_control, noticebase, bad_id = nothing, /destroy 
    … …  
    405407    tmask = byte(res) 
    406408  ENDELSE 
    407 ; boudary conditions used to compute umask. 
     409; boundary conditions used to compute umask. 
    408410  varcontient = ncdf_varinq(cdfid, 'umask') 
    409411  name = varcontient.name 
    … …  
    420422    umaskred = reform(byte(res), /over) 
    421423  ENDELSE 
    422 ; boudary conditions used to compute fmask (1). 
     424; boundary conditions used to compute fmask (1). 
    423425  varcontient = ncdf_varinq(cdfid, 'fmask') 
    424426  name = varcontient.name 
    … …  
    433435    fmaskredy = temporary(fmaskredy) MOD 2 
    434436  ENDELSE 
    435 ; boudary conditions used to compute vmask 
     437; boundary conditions used to compute vmask 
    436438  varcontient = ncdf_varinq(cdfid, 'vmask') 
    437439  name = varcontient.name 
    … …  
    459461    vmaskred = reform(byte(res), /over) 
    460462  ENDELSE 
    461 ; boudary conditions used to compute fmask (2). 
     463; boundary conditions used to compute fmask (2). 
    462464  varcontient = ncdf_varinq(cdfid, 'fmask') 
    463465  name = varcontient.name 
    … …  
    509511  ncdf_close,  cdfid 
    510512;------------------------------------------------------- 
    511 ; Apply Glamboudary 
     513; Apply Glamboundary 
    512514;------------------------------------------------------- 
    513515  if keyword_set(glamboundary) AND key_onearth then BEGIN 

  • trunk/SRC/Grid/ncdf_meshroms.pro

    r216 r226  
    66; @file_comments read NetCDF grid file created by ROMS 
    77; 
    8 ; @categories  
     8; @categories 
    99; Grid 
    1010; 
    … …  
    4444; @keyword NRHO {default=1}{type=scalar} 
    4545;    Specify the number of rho level that contain the data we want to explore. 
    46 ;    This is mainly useful when using xxx to get access to the depper levers and vertical sections. 
     46;    This is mainly useful when using xxx to get access to the deeper levers and vertical sections. 
    4747; 
    4848; @keyword SHIFT {default=computed according to glamboundary}{type=scalar} 
    49 ;    Force the manual definition of the zonal shift that must be apply to the data.  
     49;    Force the manual definition of the zonal shift that must be apply to the data. 
    5050;    The resulting value will be stored in the common (cm_4mesh) variable key_shift 
    5151;    Note that if key_periodic=0 then in any case key_shift = 0. 
    … …  
    7777; 
    7878;  Scale factors are compuited using the distance between the points 
    79 ;  (which is not the exact definition for irregulare grid). 
    80 ; 
    81 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) September 2006 
    82 ; 
    83 ; @version $Id$ 
     79;  (which is not the exact definition for irregular grid). 
     80; 
     81; @history 
     82; Sebastien Masson (smasson\@lodyc.jussieu.fr) September 2006 
     83; 
     84; @version 
     85; $Id$ 
    8486; 
    8587;- 
    … …  
    197199; 
    198200      IF array_equal(sort(xaxis), lindgen(jpi)) NE 1 THEN BEGIN 
    199         print, 'the x axis (1st line of glamt) is not sorted in the inceasing order after the automatic definition of key_shift' 
     201        print, 'the x axis (1st line of glamt) is not sorted in the increasing order after the automatic definition of key_shift' 
    200202        print, 'please use the keyword shift (and periodic) to suppress the automatic definition of key_shift (and key_periodic) and define by hand a more suitable value...' 
    201203        widget_control, noticebase, bad_id = nothing, /destroy 

  • trunk/SRC/Grid/restoreboxparam.pro

    r155 r226  
    55; 
    66; @file_comments restore all the zoom parameters (defined by calling domdef) 
    7 ; perviously defined by saveboxparam 
     7; previously defined by saveboxparam 
    88; 
    9 ; @param filename {in}{required}  
    10 ; a scalar string defining the file name  
     9; @param filename {in}{required} 
     10; a scalar string defining the file name 
    1111; 
    1212; @uses cm_4mesh (and cm_demomode_used if we are in demo mode) 
    1313; 
    14 ; @restrictions call def_myuniquetmpdir, if myuniquetmpdir is undefined:  
     14; @restrictions call def_myuniquetmpdir, if myuniquetmpdir is undefined: 
    1515;               => define, create and add it to !path 
    1616; 
    1717; @examples 
    1818; IDL> restoreboxparam, filename 
    19 ;  
     19; 
    2020; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2121;                      July 2005 
    … …  
    8888  return 
    8989end 
    90      
     90 

  • trunk/SRC/Grid/romsdepth.pro

    r192 r226  
    1616; common variable (cm_4mesh) romszinfos must be correctly defined 
    1717; 
    18 ; @history  
     18; @history 
    1919; Sept 2006 Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2020; 
    … …  
    4141  grille, -1, -1, -1, -1, nx, ny, nz, firstx, firsty, firstz, lastx, lasty, lastz 
    4242  hroms = hroms[firstx:lastx, firsty:lasty] 
    43   nt = n_elements(zeta)/nx/ny  
     43  nt = n_elements(zeta)/nx/ny 
    4444; 
    4545  cff1 = 1./sinh(theta_s) 
    … …  
    4747; 
    4848  IF type EQ 'W' THEN BEGIN 
    49     sc = (findgen(jpk)-jpk)/jpk       
    50 ;  sc = (dindgen(jpk+1)-jpk)/jpk       
     49    sc = (findgen(jpk)-jpk)/jpk 
     50;  sc = (dindgen(jpk+1)-jpk)/jpk 
    5151;  jpk = jpk+1 
    5252  ENDIF ELSE BEGIN 
    53     sc = (findgen(jpk)-jpk-0.5+1)/jpk   
     53    sc = (findgen(jpk)-jpk-0.5+1)/jpk 
    5454  ENDELSE 
    5555; 
    … …  
    6060  hinv = 1./hroms 
    6161  hinv = hinv[*]#replicate(1., jpk) 
    62 ; put a z dimenstion to zeta 
     62; put a z dimension to zeta 
    6363  zeta = transpose(temporary(zeta)) 
    6464  zeta = reform((temporary(zeta))[*]#replicate(1., jpk), nt, ny, nx, jpk, /overwrite) 
Note: See TracChangeset for help on using the changeset viewer.