Changeset 226 for trunk/SRC/ReadWrite


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

corrections of some misspellings in some *.pro

Location:
trunk/SRC/ReadWrite
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ReadWrite/idl-NetCDF/ncdf_quickread/ncdf_quickread_helper.pro

    r163 r226  
    11;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
    22; 
    3 ; ncdf_quickread_helper.pro - This file contains IDL functions to read netCDF  
    4 ;                             data files into IDL variables.  
     3; ncdf_quickread_helper.pro - This file contains IDL functions to read netCDF 
     4;                             data files into IDL variables. 
    55; 
    66; Adapted from CDF2IDL.pro 
    … …  
    88;  This file contains the following functions and procedures: 
    99;     functions: 
    10 ;        ncdf_quickread_getfile - strips the directory and optionally) any  
     10;        ncdf_quickread_getfile - strips the directory and optionally) any 
    1111;                                 suffixes from the path+file 
    1212;        ncdf_quickread_getdir - returns the directory from the full path+file 
    … …  
    2525;  10 Jun 97  S. Rupert     Modified keyword usage. 
    2626;  03 Feb 98  S. Rupert     Added additional error checking, and warning to 
    27 ;                           output script.  
     27;                           output script. 
    2828;  17 Feb 98  S. Rupert     Corrected validation routine to handle instance 
    2929;                           of name strating with a number and containing a 
    … …  
    5858; @examples 
    5959; Call: file = ncdf_quickread_getfile(fullpath) 
    60 ;  
     60; 
    6161; @history 
    6262; 
    … …  
    6868on_error,2 
    6969compile_opt hidden 
    70 ; Retrieve the postion at which the first '/' character occurs from 
     70; Retrieve the position at which the first '/' character occurs from 
    7171; the end of the string. 
    7272dirlen = rstrpos(fullpath, '/') 
    … …  
    111111; @examples 
    112112; Call: dir = ncdf_quickread_getdir(fullpath) 
    113 ;  
     113; 
    114114; @history 
    115115; 
    … …  
    122122on_error,2 
    123123compile_opt hidden 
    124 ; Retrieve the postion at which the first '/' character occurs from 
     124; Retrieve the position at which the first '/' character occurs from 
    125125; the end of the string. 
    126126len = rstrpos(fullpath, '/') 
    … …  
    139139; @file_comments 
    140140; This routine ensures that the given name does not start with a number, 
    141 ; nor contain a dash.  IDL cannot accept a variable starting with a  
    142 ; number or containing a dash.  If the name starts with a number, an  
    143 ; underscore is prepended to the name, and if it contains a dash, the  
    144 ; dash is replaced with an underscore.   
     141; nor contain a dash.  IDL cannot accept a variable starting with a 
     142; number or containing a dash.  If the name starts with a number, an 
     143; underscore is prepended to the name, and if it contains a dash, the 
     144; dash is replaced with an underscore. 
    145145; 
    146146; @categories 
    … …  
    149149; @param VARNAME 
    150150; The name of the variable to be read 
    151 ;  
     151; 
    152152; 
    153153; @returns 
    … …  
    158158; 
    159159; @examples 
    160 ;  
    161 ;  
     160; 
     161; 
    162162; @history 
    163163; 
    … …  
    186186if (strpos(varname, '9') EQ 0) then name = strcompress("_"+varname) 
    187187 
    188 ; If the name contains a dash replace it with an underscore.  
     188; If the name contains a dash replace it with an underscore. 
    189189if (strpos(name, '-') NE -1) then begin 
    190190   pieces = str_sep(name, '-') 
    … …  
    214214; full path to netCDF file of interest 
    215215; 
    216 ; @keyword VERBOSE   
     216; @keyword VERBOSE 
    217217; Set this keyword to return an error message in case of an error. 
    218218; 
    … …  
    224224; 
    225225; @keyword REFORM 
    226 ; see changelog above.  
     226; see changelog above 
    227227; 
    228228; @returns 
    … …  
    233233; 
    234234; @examples 
    235 ;  
    236 ;  
     235; 
     236; 
    237237; @history 
    238238; 
    … …  
    274274 
    275275; Place the desired variables in local arrays. 
    276 for i=0, ncidinfo.Nvars-1 do begin  
     276for i=0, ncidinfo.Nvars-1 do begin 
    277277   vardata = NCDF_VARINQ(ncid, i) 
    278278   if not subset then begin 
    … …  
    283283   endelse 
    284284   if wanted then begin 
    285        varname = ncdf_quickread_validatename(vardata.Name)  
     285       varname = ncdf_quickread_validatename(vardata.Name) 
    286286       if keyword_set(prefix) then varname=prefix+varname 
    287287       commands=$ 
    … …  
    304304endfor 
    305305 
    306 if (keyword_set(verbose)) then begin  
     306if (keyword_set(verbose)) then begin 
    307307  for i=0, ncidinfo.Ngatts-1 do begin 
    308308     name = NCDF_ATTNAME(ncid, /GLOBAL, i) 

  • trunk/SRC/ReadWrite/readoldoparestart.pro

    r163 r226  
    1111; 
    1212; @param PARAMS 
    13 ;  
    14 ;  
     13; 
    1514; @param NUM 
    16 ;  
    17 ; 
    18 ; @restrictions  
     15; 
     16; @restrictions 
    1917; bug for etab and etan written on the same record??? 
    2018; 
    21 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     19; @history 
     20; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2221;                      June 2002 
    23 ; @version $Id$ 
     22; 
     23; @version 
     24; $Id$ 
    2425;- 
    2526;------------------------------------------------------------ 
    … …  
    4445; 
    4546; @param PARAMS 
    46 ;  
    47 ;  
     47; 
    4848; @param NUM 
    49 ;  
    50 ; 
    51 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     49; 
     50; @history 
     51; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    5252;                      June 2002 
    5353;- 
    … …  
    6666; based on the OPA subroutine dtrlec included at the end of the file. 
    6767; 
    68 ; @categories  
     68; @categories 
    6969; For OPA 
    7070; 
    … …  
    7373; 
    7474; @param JPIGLO {in}{required} 
    75 ;  
    76 ;  
     75; 
    7776; @param JPJGLO {in}{required} 
    78 ;  
    79 ;  
     77; 
    8078; @param JPK {in}{required} 
    8179; dimensions of the opa grid 
    8280; 
    83 ; @keyword IBLOC {default=4096L}  
     81; @keyword IBLOC {default=4096L} 
    8482; Ibloc size 
    85 ;  
     83; 
    8684; @keyword JPBYT {default=8L} 
    8785; Jpbyt size 
    88 ;  
    89 ; @keyword NUMREC {default=19L*jpk}  
     86; 
     87; @keyword NUMREC {default=19L*jpk} 
    9088; Number of records in the file 
    91 ;  
     89; 
    9290; @keyword UB 
    93 ;  
    94 ;  
     91; 
     92; 
    9593; @keyword VB 
    96 ;  
    97 ;  
     94; 
     95; 
    9896; @keyword TB 
    99 ;  
    100 ;  
     97; 
    10198; @keyword SB 
    102 ;  
    103 ;  
     99; 
    104100; @keyword ROTB 
    105 ;  
    106 ;  
     101; 
    107102; @keyword HDIVB 
    108 ;  
    109 ;  
     103; 
    110104; @keyword UN 
    111 ;  
    112 ;  
     105; 
    113106; @keyword VN 
    114 ;  
    115 ;  
     107; 
    116108; @keyword TN 
    117 ;  
    118 ;  
     109; 
    119110; @keyword SN 
    120 ;  
    121 ;  
     111; 
    122112; @keyword ROTN 
    123 ;  
    124 ;  
     113; 
    125114; @keyword HDIVN 
    126 ;  
    127 ;  
     115; 
    128116; @keyword GCX 
    129 ;  
    130 ;  
     117; 
    131118; @keyword GCXB 
    132 ;  
    133 ;  
     119; 
    134120; @keyword ETAB 
    135 ;  
    136 ;  
     121; 
    137122; @keyword ETAN 
    138 ;  
    139 ;  
     123; 
    140124; @keyword BSFB 
    141 ;  
    142 ;  
     125; 
    143126; @keyword BSFN 
    144 ;  
    145 ;  
     127; 
    146128; @keyword BSFD 
    147 ;  
    148 ;  
     129; 
    149130; @keyword EN 
    150131; the variable we want to read. 
    151132; 
    152 ; @returns  
     133; @returns 
    153134; According to the given keywords. 
    154 ;  
    155 ; @restrictions  
     135; 
     136; @restrictions 
    156137; Bug for etab and etan written on the same record??? 
    157138; 
    158 ; @history  
     139; @history 
    159140; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    160141;                      June 2002 
    161 ;  
     142; 
    162143; @version 
    163144; $Id$ 
    … …  
    458439;          IF(lwp) THEN 
    459440;              WRITE(numout,*) ' ===>>>> : the previous restart file', 
    460 ;     $            ' didnt used  tke scheme' 
     441;     $            ' did''nt used  tke scheme' 
    461442;              WRITE(numout,*) ' =======                =======' 
    462443;          ENDIF 
Note: See TracChangeset for help on using the changeset viewer.