Changeset 237


Ignore:
Timestamp:
03/26/07 17:37:03 (17 years ago)
Author:
pinsard
Message:

replace some print by some report in some .pro (continuation) + improvements/corrections of some *.pro headers

Location:
trunk/SRC
Files:
72 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/Colors/color24.pro

    r231 r237  
    44; The purpose of this function is to convert a RGB color triple 
    55; into the equivalent 24-big long integer. 
    6 ; This routine was written to be used with routines like COLORS or 
     6; This routine was written to be used with routines like 
     7; COLORS <!--++ COLORS is not a routine--> or 
    78; <pro>GETCOLOR</pro>. 
    89; 
  • trunk/SRC/Colors/xlct.pro

    r231 r237  
    11;+ 
     2; 
    23; @hidden 
     4; 
    35;- 
    46; 
     
    397399 
    398400;+ 
     401; 
    399402; @file_comments 
    400 ; Like xloadct but fastest to write and call by default the palette 
    401 ; palette.tbl which can be in any directory 
     403; Like <proidl>xloadct<proidl> but fastest to write and call by default  
     404; the palette palette.tbl which can be in any directory 
    402405; 
    403406; @categories 
     
    467470; 
    468471;- 
    469  
     472; 
    470473PRO xlct, SILENT=silent_f, GROUP=group, FILE=file, $ 
    471474          USE_CURRENT=use_current, NCOLORS = nc, BOTTOM=bottom, $ 
  • trunk/SRC/Colors/xpal.pro

    r233 r237  
    439439; 
    440440; @file_comments 
    441 ; like xpalette but shorter to write and, moreover, 
     441; Like <proidl>xpalette</proidl> but shorter to write and, moreover, 
    442442; possess a hotkey save which (thanks to the newpalette routine) 
    443443; allows to save the routine that we have just done. Comment: when we 
    444 ; press the predefined hotkey, it calls xlct instead of xloadct 
     444; press the predefined hotkey, it calls <pro>xlct</pro> instead of  
     445; <proidl>xloadct</proidl> 
    445446; No explicit inputs.  The current color table is used as a starting point. 
    446447; 
     
    448449; Color, Widget 
    449450; 
    450 ; @uses XP_COM: Private to this module. 
     451; @uses XP_COM 
     452; Private to this module. 
    451453; 
    452454; @restrictions 
     
    582584; 
    583585;- 
    584 pro xpal, GROUP=group, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 
     586; 
     587PRO xpal, GROUP=group, BLOCK=block, UPDATECALLBACK=updt_cb_name, $ 
    585588        UPDATECBDATA=updt_cb_data 
    586589; 
    587590  compile_opt idl2, strictarrsubs 
    588591; 
    589  
    590  
    591592  common xp_com, xpw, state 
    592593  common colors, r_orig, g_orig, b_orig, r_curr, g_curr, b_curr 
  • trunk/SRC/Documentation/xmldoc/pro2href.sh

    r233 r237  
    5353             else 
    5454                nblev=$(echo ${fpath} |  sed -e "s@/\$@@" | awk -F "/" '{print NF}') 
    55                 nblev=$(( ${nblev} + 1)) 
    56                 relpath="./" 
     55           #     nblev=$(( ${nblev} + 1)) 
     56                relpath="" 
    5757                ilev=1 
    5858                while [ ${ilev} -le ${nblev} ] 
    5959                do 
    60                    relpath="${relpath}/.." 
     60                   relpath="${relpath}../" 
    6161                   ilev=$(( ${ilev} + 1 )) 
    6262                done 
  • trunk/SRC/Grid/computegrid.pro

    r236 r237  
    212212; 
    213213; @keyword _EXTRA 
    214 ;    (not used in the present case...) 
    215 ; 
    216 ; @uses cm_4mesh cm_4data cm_4cal 
    217 ; 
    218 ; @restrictions if the grid has x/y periodicity overlap and/or if 
    219 ;    the mask has 0 everywhere at the border (like a close sea) and 
     214; not used in the present case ... 
     215; 
     216; @uses  
     217; cm_4mesh cm_4data cm_4cal 
     218; 
     219; @restrictions  
     220; if the grid has x/y periodicity overlap and/or if 
     221;    the mask has 0 everywhere at the border (like a closed sea) and 
    220222;    if (we did not activate /plain and xminmesh, xmaxmesh, yminmesh, 
    221223;    ymaxmesh keywords are defined to their default values), we redefine 
    222224;    xminmesh, xmaxmesh, yminmesh, ymaxmesh in order to reove the 
    223 ;    overlapping part and/or to open the domain (avoid ti be forced 
     225;    overlapping part and/or to open the domain (avoid it be forced 
    224226;    to use cell_fill = 1). 
    225227; 
    226 ; @restrictions FUV points definition is not exact if the grid is irregular 
     228; @restrictions  
     229; FUV points definition is not exact if the grid is irregular 
    227230; 
    228231; @history 
  • trunk/SRC/Grid/micromeshmask.pro

    r236 r237  
    5353; 
    5454;- 
     55; 
    5556PRO micromeshmask, ncfilein, ncfileout, IODIR = iodir 
    5657; 
  • trunk/SRC/Matrix/cmapply.pro

    r232 r237  
    66; @param X 
    77; 
    8 ; 
    9 ; @version $Id$ 
     8; @version  
     9; $Id$ 
    1010; 
    1111; @todo seb 
    1212;- 
    1313; 
    14 function cmapply_product, x 
     14FUNCTION cmapply_product, x 
    1515; 
    1616  compile_opt idl2, strictarrsubs 
     
    2929 
    3030;+ 
     31; 
    3132; @file_comments 
    3233; cmapply_redim : Utility function, used to collect collaped dimensions 
     
    3435; @param newarr 
    3536; 
    36 ; 
    3737; @param dimapply 
    3838; 
    39 ; 
    4039; @param dimkeep 
    4140; 
    42 ; 
    4341; @param nkeep 
    4442; 
    45 ; 
    4643; @param totcol 
    4744; 
    48 ; 
    4945; @param totkeep 
    5046; 
    51 ; 
    5247; @todo seb 
     48; 
    5349;- 
    5450; 
    55 pro cmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep 
     51PRO cmapply_redim, newarr, dimapply, dimkeep, nkeep, totcol, totkeep 
    5652; 
    5753  compile_opt idl2, strictarrsubs 
     
    7874end 
    7975 
    80 ;; Main function 
     76;Main function 
    8177;+ 
    8278; 
     
    237233; 
    238234;- 
    239 function cmapply, op, array, dimapply, double=dbl, type=type, $ 
     235; 
     236FUNCTION cmapply, op, array, dimapply, double=dbl, type=type, $ 
    240237                  functargs=functargs, nocatch=nocatch 
    241238; 
  • trunk/SRC/Matrix/cmset_op.pro

    r163 r237  
    11;+ 
     2; 
    23; @hidden 
    34; 
     
    78; 
    89; @todo seb 
     10; 
    911;- 
    1012; 
    11 function cmset_op_uniq, a 
     13FUNCTION cmset_op_uniq, a 
    1214; 
    1315  compile_opt idl2, strictarrsubs 
     
    129131;  SET_UTILS.PRO by RSI 
    130132; 
    131 ; @history Written, CM, 23 Feb 2000 
     133; @history  
     134; Written, CM, 23 Feb 2000 
    132135;   Added empty set capability, CM, 25 Feb 2000 
    133136;   Documentation clarification, CM 02 Mar 2000 
     
    160163;   craigm\@lheamail.gsfc.nasa.gov 
    161164; 
    162 ; @version $Id$ 
     165; @version  
     166; $Id$ 
    163167; 
    164168; @examples 
     
    192196; 
    193197;- 
    194  
    195  
    196 function cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 
     198; 
     199FUNCTION cmset_op, a, op0, b, not1=not1, not2=not2, count=count, $ 
    197200              empty1=empty1, empty2=empty2, maxarray=ma, index=index 
    198201; 
  • trunk/SRC/Matrix/inter.pro

    r232 r237  
    77; Calculation 
    88; 
    9 ; @param a {in}{required} arrays of positive integers, which need not to be 
     9; @param a {in}{required}  
     10; arrays of positive integers, which need not to be 
    1011; sorted. Duplicate elements are ignored, as they have no effect on the 
    1112; result 
    1213; 
    13 ; @param b {in}{required} see a 
     14; @param b {in}{required}  
     15; see a 
    1416; 
    15 ; @returns tableau 
     17; @returns 
     18; tableau 
    1619; 
    17 ; @restrictions The empty set is denoted by an array with the first element equal to 
     20; @restrictions  
     21; The empty set is denoted by an array with the first element equal to 
    1822; -1. 
    1923; 
    20 ; @restrictions These functions will not be efficient on sparse sets with wide 
    21 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 
     24; @restrictions  
     25; These functions will not be efficient on sparse sets with wide 
     26; ranges, as they trade memory for efficiency.  
     27; The <proidl>HISTOGRAM</proidl> function 
    2228; is used, which creates arrays of size equal to the range of the 
    2329; resulting set. 
  • trunk/SRC/Matrix/union.pro

    r232 r237  
    1212;               effect on the result 
    1313; 
    14 ; @param b {in}{required} see a 
     14; @param b {in}{required}  
     15; see a 
    1516; 
    1617; @returns 
     
    2021; The empty set is denoted by an array with the first element equal to -1. 
    2122; 
    22 ; @restrictions These functions will not be efficient on sparse sets with wide 
    23 ; ranges, as they trade memory for efficiency. The HISTOGRAM function 
     23; @restrictions  
     24; These functions will not be efficient on sparse sets with wide 
     25; ranges, as they trade memory for efficiency.  
     26; The <proidl>HISTOGRAM</proidl> function 
    2427; is used, which creates arrays of size equal to the range of the 
    2528; resulting set. 
  • trunk/SRC/Matrix/zero_one.pro

    r231 r237  
    11;+ 
    2 ; @file_comments  
     2; @file_comments 
    33; Send back a vector or a matrix constituted of 0 and 1 in alternation 
    44; 
    5 ; @categories  
     5; @categories 
    66; Function, Matrix 
    77; 
    8 ; @param n1 {in}{required} number of elements in the first dimension 
    9 ; @param n2 {in}{required} number of elements in the second dimension 
     8; @param n1 {in}{required} 
     9; number of elements in the first dimension 
    1010; 
    11 ; @returns result 
    12 ;  
    13 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
     11; @param n2 {in}{required} 
     12; number of elements in the second dimension 
     13; 
     14; @returns 
     15; result 
     16; 
     17; @history 
     18; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    1419;                       1/12/98 
    1520; 
    16 ; @version $Id$ 
     21; @version 
     22; $Id$ 
    1723; 
    1824;- 
    1925; 
    20 function zero_one, n1,n2 
     26FUNCTION zero_one, n1,n2 
    2127; 
    2228  compile_opt idl2, strictarrsubs 
     
    2430   CASE N_PARAMS() OF 
    2531      1:return, findgen(n1) mod 2 
    26       2:BEGIN  
     32      2:BEGIN 
    2733         if fix(n1/2) EQ n1/2. then BEGIN ;even number of columns 
    2834            res = findgen(n1+1,n2) mod 2 
     
    3137      END 
    3238      else: return,  report('bad number of arguments') 
    33    endcase             
     39   endcase 
    3440end 
  • trunk/SRC/Obsolete/jourdsmois.pro

    r232 r237  
    22; 
    33; @file_comments 
    4 ; used <pro>daysinmonth</pro> instead 
     4; use <pro>daysinmonth</pro> instead 
    55; 
    66; @obsolete 
  • trunk/SRC/ReadWrite/scanctl.pro

    r236 r237  
    9292   spawn, '\sed -n -e ''/^#/d'' -e ''/^[Xx][Dd][Ee][Ff]/,/^[Yy][Dd][Ee][Ff]/p'' '+filename, xdef 
    9393   if xdef[0] EQ '' then BEGIN 
    94       print, 'Bad definition of xdef or ydef' 
     94      ras = report('Bad definition of xdef or ydef') 
    9595      stop 
    9696   ENDIF 
     
    115115   spawn, '\sed -n -e ''/^#/d'' -e ''/^[Yy][Dd][Ee][Ff]/,/^[Zz][Dd][Ee][Ff]/p'' '+filename, ydef 
    116116   if ydef[0] EQ '' then BEGIN 
    117       print, 'Bad definition of ydef or zdef' 
     117      ras = report('Bad definition of ydef or zdef') 
    118118      stop 
    119119   ENDIF 
     
    130130      'LINEAR':yaxis = float(ydef[3])+findgen(jpj)*float(ydef[4]) 
    131131      'LEVELS':yaxis = float(ydef[3:n_elements(ydef)-1]) 
    132    'GAUST62':BEGIN & print, 'Not yet coded...' & stop & END 
    133    'GAUSR15':BEGIN & print, 'Not yet coded...' & stop & END 
    134    'GAUSR20':BEGIN & print, 'Not yet coded...' & stop & END 
    135    'GAUSR30':BEGIN & print, 'Not yet coded...' & stop & END 
    136    'GAUSR40':BEGIN & print, 'Not yet coded...' & stop & END 
    137    ELSE:BEGIN & print, 'Not yet coded...' & stop & END 
     132   'GAUST62':BEGIN & ras = report( 'Not yet coded...') & stop & END 
     133   'GAUSR15':BEGIN & ras = report( 'Not yet coded...') & stop & END 
     134   'GAUSR20':BEGIN & ras = report( 'Not yet coded...') & stop & END 
     135   'GAUSR30':BEGIN & ras = report( 'Not yet coded...') & stop & END 
     136   'GAUSR40':BEGIN & ras = report( 'Not yet coded...') & stop & END 
     137   ELSE:BEGIN & ras = report( 'Not yet coded...') & stop & END 
    138138   endcase 
    139139;------------------------ 
     
    144144   spawn, '\sed -n -e ''/^#/d'' -e ''/^[Zz][Dd][Ee][Ff]/,/^[Tt][Dd][Ee][Ff]/p'' '+filename, zdef 
    145145   if zdef[0] EQ '' then BEGIN 
    146       print, 'Bad definition of zdef or tdef' 
     146      ras = report( 'Bad definition of zdef or tdef') 
    147147      stop 
    148148   ENDIF 
     
    261261   littleendian = strpos(options, 'little_endian') NE -1 
    262262   cray = strpos(options, 'cray_32bit_ieee') NE -1 
    263 IF cray THEN BEGIN & print, 'cray_32bit_ieee; Not yet coded...' & stop & ENDIF 
     263IF cray THEN BEGIN & ras = report( 'cray_32bit_ieee; Not yet coded...') & stop & ENDIF 
    264264   cal365 = strpos(options, '365_day_calendar') NE -1 
    265 IF cal365 THEN BEGIN & print, '365_day_calenda; Not yet coded...' & stop & ENDIF 
     265IF cal365 THEN BEGIN & ras = report( '365_day_calenda; Not yet coded...') & stop & ENDIF 
    266266;------------------------ 
    267267;------------------------ 
     
    273273   files = strsplit(files,/extract) 
    274274   if n_elements(files) NE 2 then begin 
    275       print, 'Bad definition of the filename. There should be 2 elements:' 
    276       print, 'DEST and 1 filename (that may define many files)' 
     275      ras = report( 'Bad definition of the filename. There should be 2 elements:') 
     276      ras = report( 'DEST and 1 filename that may define many files') 
    277277      stop 
    278278   endif 
     
    418418   spawn, '\sed -n -e ''/^#/d'' -e ''/^[Vv][Aa][Rr][Ss]/,/^[Ee][Nn][Dd][Vv][Aa][Rr][Ss]/p'' '+filename, varlist 
    419419   if n_elements(varlist) LE 2  then begin 
    420       print, 'No lines between vars and endvars???' 
     420      ras = report( 'No lines between vars and endvars???') 
    421421      stop 
    422422   endif 
    423423   varlist = varlist[1:n_elements(varlist)-2] 
    424424   if n_elements(varlist) NE nvars  then begin 
    425       print, 'Number of variables indicated by VARS ('+strtrim(nvars, 1)+') differs from number of lines (without ''#'' at the beginning) located between VARS and ENDVARS: '+strtrim(n_elements(varlist), 1) 
     425      ras = report( 'Number of variables indicated by VARS ('+strtrim(nvars, 1)+') differs from number of lines (without ''#'' at the beginning) located between VARS and ENDVARS: '+strtrim(n_elements(varlist), 1)) 
    426426      stop 
    427427   ENDIF 
     
    435435         case long(strmid(tmp[2], 3, 2)) of 
    436436            10:BEGIN 
    437                print, 'Special data formats, units = -1,10... Not yet coded...' 
     437               ras = report( 'Special data formats, units = -1,10... Not yet coded...') 
    438438               stop 
    439439            END 
    440440            20:BEGIN 
    441                print, 'Special data formats, units = -1,20... Not yet coded...' 
     441               ras = report( 'Special data formats, units = -1,20... Not yet coded...') 
    442442               stop 
    443443            END 
    444444            30:BEGIN 
    445                print, 'Special data formats, units = -1,30... Not yet coded...' 
     445               ras = report( 'Special data formats, units = -1,30... Not yet coded...') 
    446446               stop 
    447447            END 
     
    453453                  4:varfmt = 'long' 
    454454                  ELSE:BEGIN 
    455                      print, 'Bad definition of the special data formats: ' 
    456                      print,long(strmid(tmp[2],6))+' should be equal to 1, 2, -2 or 4' 
     455                     ras = report( 'Bad definition of the special data formats: ') 
     456                     ras = report(long(strmid(tmp[2],6))+' should be equal to 1, 2, -2 or 4') 
    457457                     stop 
    458458                  END 
     
    460460            END 
    461461            ELSE:BEGIN 
    462                print, 'Special data formats, units = -1, ... Not yet coded...' 
     462               ras = report( 'Special data formats, units = -1, ... Not yet coded...') 
    463463               stop 
    464464            END 
  • trunk/SRC/Tests/TestsOld/tst_basic_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; figure 1: basics plots 
     
    78; Sebastien Masson may 2005 
    89; 
    9 ; @version $Id$ 
     10; @version 
     11; $Id$ 
     12; 
    1013;- 
    1114PRO tst_basic_old 
  • trunk/SRC/Tests/TestsOld/tst_initlev_index_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    812initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
  • trunk/SRC/Tests/TestsOld/tst_initlev_index_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    812initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
  • trunk/SRC/Tests/TestsOld/tst_initlev_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    812initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
  • trunk/SRC/Tests/TestsOld/tst_initlev_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    812initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
  • trunk/SRC/Tests/TestsOld/tst_initorca05_index_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; definition of the domain on ORCA2 but with i/j index instead of 
     
    56; 
    67; different possibilities are proposed 
     8; 
    79; @history 
    810; Sebastien Masson 
    911; 
    10 ; @version $Id$ 
     12; @version 
     13; $Id$ 
     14; 
    1115;- 
    1216; 
  • trunk/SRC/Tests/TestsOld/tst_initorca05_index_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; definition of the domain on ORCA2 but with i/j index instead of 
     
    910; Sebastien Masson 
    1011; 
    11 ; @version $Id$ 
     12; @version 
     13; $Id$ 
     14; 
    1215;- 
     16; 
    1317; 1) definition with a file 
    1418; 
  • trunk/SRC/Tests/TestsOld/tst_initorca05_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711@common 
    812@common 
  • trunk/SRC/Tests/TestsOld/tst_initorca05_short_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
    710file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
  • trunk/SRC/Tests/TestsOld/tst_initorca05_short_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    812initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $ 
  • trunk/SRC/Tests/TestsOld/tst_initorca05_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version; 
     7; $Id$ 
     8; 
    69;- 
    710; 
  • trunk/SRC/Tests/TestsOld/tst_initorca2_index_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; definition of the domain on ORCA2 but with i/j index instead of 
     
    56; 
    67; different possibilities are proposed 
     8; 
    79; @history 
    810; Sebastien Masson 
    911; 
    10 ; @version $Id$ 
     12; @version 
     13; $Id$ 
     14; 
    1115;- 
    1216; 
  • trunk/SRC/Tests/TestsOld/tst_initorca2_index_stride_old.pro

    r189 r237  
    1212; Sebastien Masson 
    1313; 
    14 ; @version $Id$ 
     14; @version 
     15; $Id$ 
     16; 
    1517;- 
    1618; 
  • trunk/SRC/Tests/TestsOld/tst_initorca2_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
    710; 
  • trunk/SRC/Tests/TestsOld/tst_initorca2_short_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 
    812initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ 
  • trunk/SRC/Tests/TestsOld/tst_initorca2_short_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
     10; 
    711file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 
    812initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ 
  • trunk/SRC/Tests/TestsOld/tst_initorca2_stride_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @history 
    34; Sebastien Masson 
    45; 
    5 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    69;- 
    710; 
  • trunk/SRC/Tests/TestsOld/tst_plt_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; 
    4 ; 
    55; @categories 
    6 ;  
    76;  
    87; @keyword IMAGE 
     
    1312; @version  
    1413; $Id$ 
     14; 
    1515;- 
     16; 
    1617PRO tst_plt_old, IMAGE = image 
    17 ; commons 
    1818; 
    1919  compile_opt idl2, strictarrsubs 
  • trunk/SRC/Tests/TestsOld/tst_pltt_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; 
    4 ; 
    55; @categories 
    6 ; 
    76; 
    87; @keyword IMAGE 
     
    1312; @version 
    1413; $Id$ 
     14; 
    1515;- 
     16; 
    1617PRO tst_pltt_old, IMAGE = image 
    17 ; commons 
    1818; 
    1919  compile_opt idl2, strictarrsubs 
  • trunk/SRC/Tests/TestsOld/tst_pltz_old.pro

    r189 r237  
    11;+ 
     2; 
    23; @file_comments 
    34; 
    4 ; 
    55; @categories 
    6 ; 
    76; 
    87; @keyword IMAGE 
     
    1312; @version 
    1413; $Id$ 
     14; 
    1515;- 
     16; 
    1617PRO tst_pltz_old, IMAGE = image 
    17 ; commons 
    1818; 
    1919  compile_opt idl2, strictarrsubs 
  • trunk/SRC/Tests/tst_basic.pro

    r232 r237  
    88; Sebastien Masson may 2005 
    99; 
    10 ; @version $Id$ 
     10; @version 
     11; $Id$ 
     12; 
    1113;- 
    1214; 
  • trunk/SRC/Tests/tst_initlev_index.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initlev_index_stride.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initlev_stride.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca05.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca05_index.pro

    r232 r237  
    66; 
    77; different possibilities are proposed 
     8; 
    89; @history 
    910; Sebastien Masson 
    1011; 
    11 ; @version $Id$ 
     12; @version 
     13; $Id$ 
     14; 
    1215;- 
    1316; 
  • trunk/SRC/Tests/tst_initorca05_index_stride.pro

    r232 r237  
    1010; Sebastien Masson 
    1111; 
    12 ; @version $Id$ 
     12; @version 
     13; $Id$ 
     14; 
    1315;- 
     16; 
    1417; 1) definition with a file 
    1518; 
  • trunk/SRC/Tests/tst_initorca05_short.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca05_short_stride.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca05_stride.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca2.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca2_index.pro

    r232 r237  
    66; 
    77; different possibilities are proposed 
     8; 
    89; @history 
    910; Sebastien Masson 
    1011; 
    11 ; @version $Id$ 
     12; @version 
     13; $Id$ 
     14; 
    1215;- 
    1316; 
  • trunk/SRC/Tests/tst_initorca2_index_stride.pro

    r163 r237  
    1212; Sebastien Masson 
    1313; 
    14 ; @version $Id$ 
     14; @version 
     15; $Id$ 
     16; 
    1517;- 
    1618; 
  • trunk/SRC/Tests/tst_initorca2_short.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca2_short_stride.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_initorca2_stride.pro

    r232 r237  
    44; Sebastien Masson 
    55; 
    6 ; @version $Id$ 
     6; @version 
     7; $Id$ 
     8; 
    79;- 
    810; 
  • trunk/SRC/Tests/tst_plt.pro

    r232 r237  
    44; 
    55; @categories 
    6 ;  
     6; 
    77; @keyword IMAGE 
    88; 
     
    1010; Sebastien Masson 
    1111; 
    12 ; @version  
     12; @version 
    1313; $Id$ 
     14; 
    1415;- 
    1516; 
    1617PRO tst_plt, IMAGE = image 
    17 ; commons 
    1818; 
    1919  compile_opt idl2, strictarrsubs 
  • trunk/SRC/Tests/tst_pltt.pro

    r232 r237  
    1212; @version 
    1313; $Id$ 
     14; 
    1415;- 
    1516; 
    1617PRO tst_pltt, IMAGE = image 
    17 ; commons 
    1818; 
    1919  compile_opt idl2, strictarrsubs 
  • trunk/SRC/Tests/tst_pltz.pro

    r232 r237  
    1212; @version 
    1313; $Id$ 
     14; 
    1415;- 
    1516; 
    1617PRO tst_pltz, IMAGE = image 
    17 ; commons 
    1818; 
    1919  compile_opt idl2, strictarrsubs 
  • trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro

    r232 r237  
    3333; 
    3434; @keyword NODOMDEF 
    35 ; We activate it if we do not want to pass in domdef even if the keyword 
    36 ; boxzoom is present (like when grossemoyenne is called via checkfield) 
     35; We activate it if we do not want to pass in <pro>domdef</pro> even if the  
     36; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called via  
     37; <pro>checkfield</pro>) 
    3738; 
    3839; @keyword INTEGRATION 
  • trunk/SRC/ToBeReviewed/CALCULS/moyenne.pro

    r232 r237  
    3131; 
    3232; @keyword NODOMDEF 
    33 ; We activate it if we do not want to pass in domdef even if the keyword boxzoom 
    34 ; is present (like when grossemoyenne is called via checkfield) 
     33; We activate it if we do not want to pass in <pro>domdef</pro> even if the  
     34; keyword boxzoom is present (like when <pro>grossemoyenne</pro> is called  
     35; via <pro>checkfield</pro>) 
    3536; 
    3637; @keyword INTEGRATION 
  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/sbar_plot.pro

    r232 r237  
    3131; 
    3232; @examples 
    33 ;      IDL> sbar_plot, indgen(10),small = [2,2,2],/rempli 
    34 ;      IDL> sbar_plot, indgen(10),small = [2,2,3],/noerase 
    35 ;      IDL> \@ps 
     33; IDL> sbar_plot, indgen(10),small = [2,2,2],/rempli 
     34; IDL> sbar_plot, indgen(10),small = [2,2,3],/noerase 
     35; IDL> \@ps 
    3636; 
    3737; @history 
  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

    r231 r237  
    1818; 
    1919; @examples 
    20 ;      IDL> z = dist(100) 
    21 ;      IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1 
    22 ;      IDL> \@ps 
     20; IDL> z = dist(100) 
     21; IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1 
     22; IDL> \@ps 
    2323; 
    2424; @history 
  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/splot.pro

    r231 r237  
    2222; 
    2323; @examples 
    24 ;      IDL> splot, indgen(10),ystyle=1,small=[1,2,1],/portrait 
    25 ;      IDL> splot, -indgen(10),ystyle=1,small=[1,2,2],/noerase 
    26 ;      IDL> \@ps 
     24; IDL> splot, indgen(10),ystyle=1,small=[1,2,1],/portrait 
     25; IDL> splot, -indgen(10),ystyle=1,small=[1,2,2],/noerase 
     26; IDL> \@ps 
    2727; 
    2828; @history 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/addaxe.pro

    r231 r237  
    22; 
    33; @file_comments 
    4 ; Add an axis when we do an oblique section in pltz, pltt 
    5 ; or plt1d 
     4; Add an axis when we do an oblique section in <pro>pltz</pro>,  
     5; <pro>pltt</pro> 
     6; or <pro>plt1d</pro> 
    67; 
    78; @categories 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/autoscale.pro

    r231 r237  
    88; Graphics 
    99; 
    10 ; @param MIN {in}{required} 
    11 ; A reel number specifying above what value we want to trace a contour 
     10; @param MIN {in}{required} {type=float} 
     11; above what value we want to trace a contour 
    1212; 
    13 ; @param MAX {in}{required} 
    14 ; A reel number specifying below what value we want to trace a contour 
     13; @param MAX {in}{required} {type=float} 
     14; below what value we want to trace a contour 
    1515; 
    16 ; @param CI. {out}{type=real} 
    17 ; It is a reel number giving the contour interval. Use it in CONTOUR with the keyword LEVEL. 
     16; @param CI {out} {type=real} 
     17; the contour interval. Use it in <proidl>CONTOUR</proidl> with the  
     18; keyword LEVEL. 
    1819; 
    1920; @restrictions 
    2021; CI is a multiple of the unity in unity log of 10. 
    21 ; It force the number of contour to be even. 
     22; It force the number of contours to be even. 
    2223; 
    2324; @history 
     
    3132PRO autoscale, min, max, ci 
    3233; 
    33 ;  Estimation of a first CI, notice the presence of the floor (Inferior round) 
    34 ; This CI is a multiple of the unity in unity log of 10. 
    35 ; 
    36 ; 
    3734  compile_opt idl2, strictarrsubs 
    3835; 
     36; Estimation of a first CI, notice the presence of the floor (Inferior round) 
     37; This CI is a multiple of the unity in unity log of 10. 
    3938    ci = (max-min)/20. 
    4039    ci = 10.^floor(alog10(ci)) 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro

    r232 r237  
    55; 
    66; @param MASK {in}{required} 
    7 ;  3d mask 
     7; 3d mask 
    88; 
    99; @param GLAM {in}{required} 
     
    1717; 
    1818; @keyword XXAXIS 
    19 ; to get the xaxis we need to use in pltbase 
     19; to get the xaxis we need to use in <pro>pltbase</pro> 
    2020; 
    2121; @keyword ZZAXIS 
    22 ; to get the yaxis we need to use in pltbase 
     22; to get the yaxis we need to use in <pro>pltbase</pro> 
    2323; 
    2424; @keyword SIN 
     
    3333; Used to pass keywords 
    3434; 
    35 ;  Others: see pltz 
    36 ; 
     35; Others: see pltz 
    3736; 
    3837; @history 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/barrecouleur.pro

    r232 r237  
    99; @param COLNUMB 
    1010; 
    11 ; 
    1211; @param CLBINF 
    13 ; 
    1412; 
    1513; @param CLBSUP 
    1614; 
    17 ; 
    1815; @param CLBDIV 
    19 ; 
    2016; 
    2117; @keyword NOCOLORBAR 
    2218; 
    23 ; 
    2419; @keyword CB_TITLE 
    25 ; 
    2620; 
    2721; @keyword NOFILL 
    2822; 
    29 ; 
    30 ; @keyword COLOR_c 
    31 ; 
     23; @keyword COLOR_C 
    3224; 
    3325; @keyword MIN 
     
    3931; @keyword DIVISIONS 
    4032; 
    41 ; 
    4233; @keyword CB_SUBTITLE 
    4334; 
    44 ; 
    4535; @keyword POST 
    46 ; 
    4736; 
    4837; @keyword _EXTRA 
     
    6150; @todo 
    6251; seb: mettre les keyword et les param 
     52; 
    6353;- 
    6454; 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro

    r232 r237  
    2929; @version 
    3030; $Id$ 
     31; 
    3132;- 
    3233; 
     
    6768; @version 
    6869; $Id$ 
     70; 
    6971;- 
    7072; 
     
    160162; 6 elements: The extraction is made on Boxzoom 
    161163; 
    162 ; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
     164; Where lon1, lon2,lat1,lat2 are global variables defined at the last  
     165; <pro>domdef</pro> ! 
    163166; 
    164167; @keyword WDEPTH 
     
    166169; depth (automatically activated if vargrid eq 'W') 
    167170; 
    168 ; @keyword VECTEUR{type=vetcor} 
     171; @keyword VECTEUR{type=vector} 
    169172; It is a structure composed by 2 elements containing the 2 fields U 
    170173; and V of values of the zonal and meridian component of the vector of the fields 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placecolor.pro

    r232 r237  
    33; @file_comments 
    44; allows to trace the independently from a graph 
    5 ; By default, trace a color bar of the same type than the one present in plt 
    6 ; and pltz. If max, min and divisions are not stipulated, then max=sup,min=inf 
     5; By default, trace a color bar of the same type than the one present in  
     6; <pro>plt</pro> 
     7; and <pro>pltz</pro>. 
     8; If max, min and divisions are not stipulated, then max=sup,min=inf 
    79; and divisions=div. 
    810; 
     
    2931; @version 
    3032; $Id$ 
     33; 
     34; @todo 
     35; reference to plein2dessin in restriction not understable : 
     36; plein2dessin does'nt exist. 
    3137; 
    3238;- 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/placedessin.pro

    r232 r237  
    88; 
    99; @param TYPEDESSIN {type=string} 
    10 ; It specify what procedure is called by PLACEDESSIN: 'plt', 'pltz' or 'pltt' 
     10; It specify what procedure is called by <pro>PLACEDESSIN</pro> :  
     11; 'plt', 'pltz' or 'pltt' 
    1112; 
    1213; @keyword LANDSCAPE 
     
    2223;     /MAP: In this case, map is automatically calculated have the value: 
    2324;          map = [0, (lon1+lon2)/2., 0] 
    24 ; Comment: A good way to choose the type of the projection we want to do is to have a look at IDL demo: 
     25; Comment 1: A good way to choose the type of the projection we want to do is to have a look at IDL demo: 
    2526; IDL> demo 
    2627; Then choose earth sciences and  mapping. 
    27 ; Comment2: By default it is a cylindrical projection which is effectuated (with or without the keyword map). 
     28; Comment 2: By default it is a cylindrical projection which is effectuated (with or without the keyword map). 
    2829; If we want an other projection, MAP must be activated and we have to add the keyword: /nom_projection. 
    2930; For example, for a polar projection centered on the south pole: 
     
    3435; We active it if we do not want the colorbar. 
    3536 
    36 ;; @keyword NOFILL 
     37; @keyword NOFILL 
    3738; We active it if we only want contours in black and white with a white background. 
    3839; 
     
    4546;     If there is 4 elements: 
    4647; then is constituted of coordinates (expressed in cm located from the up and 
    47 ; left corner of the page or the window (in portrait like in landscape)) of the bottom 
     48; left corner of the page or the window (in portrait like in landscape) of the bottom 
    4849; and left corner and of the up and right corner of the drawing zone. 
    4950;     If there is 3 elements: 
     
    5960; @keyword POST 
    6061; Make a postscript. Only works if we made one drawing on the page. 
    61 ; If we make several drawing, use \@ps. 
     62; If we make several drawing, use \@<pro>ps</pro>. 
    6263; 
    6364; @keyword REMPLI 
     
    7475; If we want to trace contours of a different field than the one 
    7576; whose we have the colored drawing (by example E-P in color and QSR in contours). 
    76 ; It must be a field respecting same characteristics than the argument number one of plt. 
     77; It must be a field respecting same characteristics than the argument number  
     78; one of <pro>plt</pro>. 
    7779; 
    7880; @keyword ENDPOINTS 
     
    219221; For the using of \@ps,\@oups et de \@vzoom 
    220222      if lmgr(/demo) EQ 0 then BEGIN ; Are we in the demo mode?? 
    221         if !journal NE 0 then journal ; We close te journal if it is open 
     223        if !journal NE 0 then journal ; We close the journal if it is open 
    222224        homedir = isadirectory(io = homedir, title = 'Bad definition of homedir') 
    223225        def_myuniquetmpdir 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/restoreatt.pro

    r231 r237  
    99; 
    1010; @param STRUCT {in}{required} 
    11 ; a structure like the one who read litchamp. 
     11; a structure like the one who read <pro>litchamp</pro>. 
    1212;        See IDL> xhelp,'litchamp' 
    1313; 
  • trunk/SRC/ToBeReviewed/PLOTS/DIVERS/terminedessin.pro

    r232 r237  
    99; @keyword POST 
    1010; Make a postscript. Only works if we made one drawing on the page. 
    11 ; If we make several drawing, use \@ps. 
     11; If we make several drawing, use \@<pro>ps</pro>. 
    1212; 
    1313; @keyword SMALL {type=vector} 
  • trunk/SRC/ToBeReviewed/STRING/getfile.pro

    r232 r237  
    3737; 
    3838;       S. Masson (smasson\@lodyc.jussieu.fr) 4 Feb 2002 
    39 ;       search te file in the all !path directories (use find.pro) 
    40 ;       when using /find keyword. Use spawn, 'cat...' for unix os. 
     39;       search the file in the all !path directories (use <pro>find</pro>) 
     40;       when using /find keyword. Use <proidl>spawn</proidl>, 'cat...' for  
     41;       unix os. 
    4142; 
    4243; Copyright (C) 1990, Johns Hopkins University/Applied Physics Laboratory 
     
    5152;- 
    5253; 
    53         function getfile, filein, error=err, help=hlp, quiet=quiet, lines=lines, find = find 
     54FUNCTION getfile, filein, error=err, help=hlp, quiet=quiet, lines=lines, find = find 
    5455; 
    5556  compile_opt idl2, strictarrsubs 
  • trunk/SRC/ToBeReviewed/TRIANGULATION/section.pro

    r232 r237  
    8080    6:localbox = [boxzoom2d, boxzoom[4:5]] 
    8181    Else:BEGIN 
    82       print, report('Bad definition of the box') 
     82      ras = report('Bad definition of the box') 
    8383      stop 
    8484    END 
  • trunk/SRC/ToBeReviewed/UTILITAIRE/oups.pro

    r229 r237  
    1111; 
    1212; @restrictions  
    13 ; compatible with \@ps \@vzoom text_box... 
     13; compatible with \@<pro>ps</pro>  
     14; \@<pro>vzoom</pro> text_box... 
    1415; 
    1516; @history  
    1617; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    17 ; 
    1818; 
    1919; @version  
     
    2424; 
    2525;- 
     26; 
    2627;------------------------------------------------------------ 
    2728; Close the journal! 
  • trunk/SRC/Utilities/isadirectory.pro

    r232 r237  
    1111; a proposed directory. If neither dirname 
    1212; input parameter of IODIRECTORY keyword are defined, 
    13 ; the ask the user to choose a directory. 
     13; we ask the user to choose a directory. 
    1414; 
    1515; @keyword IODIRECTORY 
     
    2020; 
    2121; @keyword _EXTRA 
    22 ; Used to pass keywords 
    23 ; 
    24 ; all dialog_pickfile keywords (like filter) can be used. 
     22; Used to pass keywords to <proidl>dialog_pickfile</proidl> 
    2523; 
    2624; @returns 
     
    4240; @version 
    4341; $Id$ 
     42; 
    4443;- 
    4544; 
    4645FUNCTION isadirectory, directoryin, TITLE = title, IODIRECTORY = iodirectory, _EXTRA = ex 
    47 ; 
    4846; 
    4947  compile_opt idl2, strictarrsubs 
  • trunk/SRC/Utilities/isafile.pro

    r232 r237  
    55; isafile calls dialog_pickfile, to ask the user to select a file. 
    66; 
    7 ; @categories  
     7; @categories 
    88; io 
    99; 
    1010; @param FILEIN {in}{optional} 
    1111; a proposed name. If neither filein input parameter of filename keyword are 
    12 ; defined, the ask the user to choose a file. 
     12; defined, we ask the user to choose a file. 
    1313; 
    1414; @keyword FILENAME 
     
    3636; 
    3737; @keyword _EXTRA 
    38 ; Used to pass keywords 
    39 ; 
    40 ; all find, file_search and dialog_pickfile keywords (like title) can be used 
     38; Used to pass keywords to <pro>find</pro>, 
     39; <proidl>file_search</proidl> and 
     40; <proidl>dialog_pickfile</proidl> 
    4141; 
    4242; @returns 
     
    6464; @version 
    6565; $Id$ 
     66; 
    6667;- 
    6768; 
  • trunk/SRC/buildinit.pro

    r232 r237  
    7777; slightly modified version of cw_field... 
    7878; 
    79 FUNCTION cw_field2, Parent, COLUMN=Column, ROW=Row, $ 
     79FUNCTION cw_field2, parent, COLUMN=column, ROW=row, $ 
    8080    EVENT_FUNC = efun, $ 
    8181    FLOATING=Float, INTEGER=Int, LONG=Long, STRING=String, $ 
     
    122122    ;   Build Widget 
    123123 
    124     Base    = WIDGET_BASE(Parent, ROW=Row, COLUMN=Column, UVALUE=UValue, $ 
     124    Base    = WIDGET_BASE(parent, ROW=row, COLUMN=column, UVALUE=uvalue, $ 
    125125            EVENT_FUNC='CW_FIELD_EVENT', $ 
    126126            PRO_SET_VALUE='CW_FIELD_SET', $ 
Note: See TracChangeset for help on using the changeset viewer.