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/LECTURE
Files:
18 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/TABLES/usertables.txt

    r67 r495  
    2323[This is the preferred search order for foreign-language parameter tables.] 
    2424 
    25  
    2625The name of the user-defined table is searched for in  
    2726 
    … …  
    3736      setenv GRIBTAB ~/data/gribtab                   (csh) 
    3837      GRIBTAB=$HOME/data/gribtab ; export GRIBTAB     (sh) 
    39  
    40  
    4138 
    4239The format of the GRIBTAB file is 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/bit2int.pro

    r327 r495  
    22; @file_comments 
    33; 
    4 ; 
    54; @categories 
    6 ; 
    75; 
    86; @param BITIN 
    97; 
    10 ; 
    118; @keyword CHECKNEG 
    12 ; 
    139; 
    1410; @returns 
    1511; 
    16 ; 
    1712; @uses 
    18 ; 
    1913; 
    2014; @restrictions 
    2115; 
    22 ; 
    2316; @examples 
    2417; 
    25 ; 
    2618; @history 
    27 ; 
    2819; 
    2920; @version 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro

    r327 r495  
    5050;    FOR i = 1L, n_elements(recstart)-1 DO $ 
    5151;      addoff[i] = recstart[i]-recstart[i-1]-messize[i-1] 
    52 ; 
    5352; 
    5453;    nbits = scan_grib_nbits(num, recstart) 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_bds.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    129; 
    13 ; 
    14 ; @param NI  
    15 ;  
     10; @param NI 
    1611; 
    1712; @param NJ 
    18 ;  
    19 ;  
     13; 
    2014; @returns 
    21 ;  
    22 ;  
     15; 
    2316; @restrictions 
    24 ;  
    25 ;  
     17; 
    2618; @examples 
    2719; 
    28 ; 
    2920; @history 
    30 ;  
    3121; 
    3222; @version 
    … …  
    3424;- 
    3525FUNCTION read_grib_bds, num, recstart, ni, nj 
    36 ; 
    3726; 
    3827  compile_opt idl2, strictarrsubs 
    … …  
    6352; 
    6453  sizebds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])]) 
    65                                 ;  
     54                                ; 
    6655  flags = binary(a[4]) 
    6756; BIT VALUE MEANING 
    6857; 1   0     Grid point data 
    6958;     1     Spherical Harmonic Coefficients 
    70 ; 2   0     Simple packing  
    71 ;     1     Second order ("Complex") Packing  
     59; 2   0     Simple packing 
     60;     1     Second order ("Complex") Packing 
    7261; 3   0     Original data were floating point values 
    7362;     1     Original data were integer values 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_end.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param OFFSET 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    2719; $Id$ 
     20; 
    2821;- 
    2922PRO read_grib_end,  num, offset 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_gds.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    129; 
    13 ;  
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION read_grib_gds, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 
    … …  
    4031; 
    4132  sizegds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])]) 
    42 ;  
     33; 
    4334  nv = (a[4])[0] 
    4435  pv = (a[5])[0] 
    … …  
    8374    gridtype EQ 2: 
    8475; Lambert Conformal, secant or tangent, conical or bipolar (normal or 
    85 ; oblique) Projection Grid   
     76; oblique) Projection Grid 
    8677    gridtype EQ 3: 
    8778; Polar Stereographic Projection Grid 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_is.pro

    r325 r495  
    1 ;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
    5 ; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    9 ; 
    101; 
    112; @param OFFSET 
    12 ;  
    133; 
    144; @returns 
    15 ;  
    16 ;  
     5; 
    176; @restrictions 
    18 ;  
    19 ;  
     7; 
    208; @examples 
    219; 
    22 ; 
    2310; @history 
    24 ;  
    2511; 
    2612; @version 
    … …  
    3723  typefile = string(a[0]) 
    3824  IF  typefile NE 'GRIB' THEN stop 
    39    
     25 
    4026; 
    4127  a = assoc(num, bytarr(1, /nozero), offset+4) 
    4228  sizerecord = bit2int([binary(a[0]), binary(a[1]), binary(a[2])]) 
    43 ;   
     29; 
    4430  a = assoc(num, bytarr(1, /nozero), offset+7) 
    4531  gribed = a[0] 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib_pds.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION read_grib_pds, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 
    … …  
    3627; 
    3728  sizepds = bit2int([binary(a[1]), binary(a[2]), binary(a[3])]) 
    38  ;  
     29 ; 
    3930  paramtableversion = (a[4])[0] 
    40  ;  
     31 ; 
    4132  centerid = (a[5])[0] 
    42  ;  
     33 ; 
    4334  procid = (a[6])[0] 
    44  ;  
     35 ; 
    4536  gridid = (a[7])[0] 
    4637; 
    … …  
    5142  paramunitid = (a[9])[0] 
    5243; 
    53   levtype = (a[10])[0]   
     44  levtype = (a[10])[0] 
    5445  levalue1 = (a[11])[0] 
    5546  levalue2 = (a[12])[0] 
    … …  
    7465;......... 
    7566 
    76  
    7767  RETURN, {size:sizepds, gdsnotomitted:gdsnotomitted, bmsnotomitted:bmsnotomitted, d:d} 
    7868END 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_gribtable.pro

    r371 r495  
    66; @categories 
    77; 
    8 ; 
    98; @param TABLENAME {in}{required} 
    109; The full path name of a gribtable file 
    … …  
    1211; @keyword PARMTABL 
    1312; 
    14 ; 
    1513; @keyword CENTER 
    16 ; 
    1714; 
    1815; @keyword SUBCENTER 
    1916; 
    20 ; 
    2117; @keyword TABLNUM 
    22 ; 
    2318; 
    2419; @returns 
    2520; 
    26 ; 
    2721; @uses 
    2822; 
    29 ; 
    3023; @restrictions 
    31 ; 
    3224; 
    3325; @examples 
    … …  
    4638  compile_opt idl2, strictarrsubs 
    4739; 
    48    
     40 
    4941ON_ERROR,2 
    5042 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_code.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION scan_grib_code, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_date.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION scan_grib_date, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 
    … …  
    3829    offset = recstart[i] 
    3930    a = assoc(num, bytarr(1, /nozero), offset+8-1) 
    40     dates[i] = (a[13]+100L*(a[25]-1))*10000L+a[14]*100L+a[15] 
     31    dates[i] = (a[13]+ 100L *(a[25]-1)) * 10000L + a[14] * 100L + a[15] 
    4132  ENDFOR 
    4233; 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_messize.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 
    … …  
    2820;- 
    2921FUNCTION scan_grib_messize, num, recstart 
    30 ; 
    3122; 
    3223  compile_opt idl2, strictarrsubs 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_nbits.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    95; 
     6; @param NUM 
    107; 
    118; @param RECSTART 
    12 ;  
    139; 
    1410; @returns 
    15 ;  
    16 ;  
     11; 
    1712; @restrictions 
    18 ;  
    19 ;  
     13; 
    2014; @examples 
    2115; 
    22 ; 
    2316; @history 
    24 ;  
    2517; 
    2618; @version 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/scan_grib_recstart.pro

    r325 r495  
    11;+ 
    2 ; @file_comments  
    3 ;  
    4 ;  
     2; @file_comments 
     3; 
    54; @categories 
    6 ;  
    7 ;  
    8 ; @param NUM  
    9 ;  
     5; 
     6; @param NUM 
    107; 
    118; @returns 
    12 ;  
    13 ;  
     9; 
    1410; @restrictions 
    15 ;  
    16 ;  
     11; 
    1712; @examples 
    1813; 
    19 ; 
    2014; @history 
    21 ;  
    2215; 
    2316; @version 
    … …  
    8073; 
    8174    start = [start, offset] 
    82 ;     
     75; 
    8376    a = assoc(num, bytarr(1, /nozero), offset+4) 
    8477    recsize = bit2int([binary(a[0]), binary(a[1]), binary(a[2])]) 
    … …  
    9083out: 
    9184; 
    92   RETURN, start[1:n_elements(start)-1]  
     85  RETURN, start[1:n_elements(start)-1] 
    9386END 

  • trunk/SRC/ToBeReviewed/LECTURE/inverse_binary.pro

    r371 r495  
    1717; 
    1818;  (d1, d2...) are the output dimensions 
    19 ; 
    2019; 
    2120; @returns 

  • trunk/SRC/ToBeReviewed/LECTURE/litchamp.pro

    r493 r495  
    77;   - a structure, litchamp send back the first element of the structure 
    88;   which must be the field in an array. 
    9 ; litchamp profit of this to look other elements of the structure and  
     9; litchamp profit of this to look other elements of the structure and 
    1010; update if needed global variables which refer to the field: 
    1111; vargrid, varname, varunit, vardate, varexp , valmask et time 
    … …  
    8989;   IDL> print, vargrid,', ', varname,', ', varunit,', ', vardate,', ', varexp 
    9090;    T, toto, C, 1999, 
    91 ; 
    9291; 
    9392; @history 

  • trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

    r493 r495  
    33; @file_comments 
    44; Reading function for the file net_cdf. 
    5 ; This program is less universal than <pro>ncdf_lec</pro> (it appeal to  
    6 ; declared variables in <pro>common</pro>) but it is very easier to be used.  
     5; This program is less universal than <pro>ncdf_lec</pro> (it appeal to 
     6; declared variables in <pro>common</pro>) but it is very easier to be used. 
    77; It considerate 
    88; the declaration of the different zooms which have been defined 
    99; (ixminmesh...premierx...), the declaration of the variable key_shift... 
    10 ; To put it in a nutshell, the result of read_ncdf can be directly used in  
     10; To put it in a nutshell, the result of read_ncdf can be directly used in 
    1111; <pro>plt</pro> ... 
    1212; 
    … …  
    4646; 
    4747; @keyword CALLITSELF {default=0}{type=scalar: 0 or 1} 
    48 ; For ROMS outputs. Use by read_ncdf itself to access auxiliary data  
     48; For ROMS outputs. Use by read_ncdf itself to access auxiliary data 
    4949; (h and zeta). 
    5050; 
    … …  
    6868; 
    6969; @keyword TIMESTEP {default=0}{type=scalar: 0 or 1} 
    70 ; Specify that BEGINNING and ENDING refer to indexes of the time axis and not  
     70; Specify that BEGINNING and ENDING refer to indexes of the time axis and not 
    7171; to dates 
    7272; 
    … …  
    9595; 
    9696; @returns 
    97 ; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is  
     97; Structure readable by <pro>litchamp</pro> or an array if NOSTRUCT is 
    9898; activated. 
    9999; 
    … …  
    189189      firsttps = long(beginning[0]) 
    190190      IF n_elements(ending) NE 0 THEN lasttps = long(ending[0]) ELSE lasttps = firsttps 
    191       IF NOT keyword_set(callitself) then BEGIN  
     191      IF NOT keyword_set(callitself) then BEGIN 
    192192        time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex) 
    193193        jpt = lasttps-firsttps+1 
    … …  
    210210    keyword_set(allrecords) OR n_elements(beginning) EQ 0:BEGIN 
    211211      time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex) 
    212       IF time[0] LT 0 then BEGIN  
     212      IF time[0] LT 0 then BEGIN 
    213213        jpt = -time[0] 
    214214        time = julday(1, 1, 1) + lindgen(jpt) 

  • trunk/SRC/ToBeReviewed/LECTURE/xncdf_lec.pro

    r493 r495  
    88; 
    99; @param NAME {in}{optional}{type=string} 
    10 ; It give the name of the file to be opened.  
     10; It give the name of the file to be opened. 
    1111; 
    1212; If NAME 
    … …  
    2121; 
    2222; @keyword COUNT {type=vector} 
    23 ; An optional vector containing the counts to be used in reading Value.  
     23; An optional vector containing the counts to be used in reading Value. 
    2424; 
    2525; COUNT is a 1-based vector with an element for 
    … …  
    3030; 
    3131; @keyword GROUP 
    32 ; The widget ID of the widget that calls XNCDF_LEC.  
     32; The widget ID of the widget that calls XNCDF_LEC. 
    3333; 
    3434; When this ID is specified, a death of the caller results in a death 
    … …  
    4242; A vector of integers, specifying for each dimension how much we have to shift it. 
    4343; 
    44 ; See the function <proidl>SHIFT</proidl> for more explanations.  
     44; See the function <proidl>SHIFT</proidl> for more explanations. 
    4545; 
    4646; BEWARE, 
    4747; the shift is done on the biggest array before a possible reduction determined 
    48 ; by OFFSET and COUNT.  
     48; by OFFSET and COUNT. 
    4949; 
    5050; On the other hand, it is done after the possible extraction 
Note: See TracChangeset for help on using the changeset viewer.