Changeset 77


Ignore:
Timestamp:
05/24/06 10:22:32 (18 years ago)
Author:
smasson
Message:

tests tst_* work again (brokken since DATA/SRC split)

Location:
trunk/SRC
Files:
20 deleted
42 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Documentation/idlwave_catalog

    r76 r77  
    119119    next; 
    120120  } 
    121   $time=localtime(); 
     121#  $time=localtime(); 
    122122  print CATALOG <<EOF; 
    123123;; 

  • trunk/SRC/Documentation/xmldoc/firststeps.xml

    r65 r77  
    435435        </calloutlist> 
    436436        </screenco> 
    437         <command>scontour</command> is compatible with the positioning method associated with the <computeroutput>small</computeroutput> keyword. See for example the test file <ulink url="idlfiles/tst_basic.pro"><filename>tst_basic.pro</filename></ulink>: 
     437        <command>scontour</command> is compatible with the positioning method associated with the <computeroutput>small</computeroutput> keyword. See for example the test file <ulink url="../../Tests/tst_basic.pro"><filename>tst_basic.pro</filename></ulink>: 
    438438        <screen format="linespecific"> 
    439439  <prompt>&promptidl;</prompt> <userinput><command>tst_basic</command></userinput> <ulink url="figpng/tst_basic.png">&showfig;</ulink> 
    … …  
    502502  <computeroutput>% Compiled module: DEFINETRI.</computeroutput> 
    503503          </screen> 
    504           This <ulink url="idlfiles/tst_initlev.pro"><command>@tst_initlev</command></ulink> command allows us to define: 
     504          This <ulink url="../../Tests/tst_initlev.pro"><command>@tst_initlev</command></ulink> command allows us to define: 
    505505          <itemizedlist> 
    506506            <listitem><simpara>domain dimensions, stored in <varname>jpi, jpj and jpk</varname></simpara></listitem> 
    … …  
    544544          We provide other initialization methods/examples 
    545545          <itemizedlist> 
    546             <listitem><simpara><ulink url="idlfiles/tst_initorca2_short.pro">@tst_initorca2_short</ulink> : ORCA2 example</simpara></listitem> 
    547             <listitem><simpara><ulink url="idlfiles/tst_initorca05_short.pro">@tst_initorca05_short</ulink> : ORCA05 example</simpara></listitem> 
    548             <listitem><simpara><ulink url="idlfiles/tst_initlev_stride.pro">@tst_initlev_stride</ulink> : same as @tst_initlev but we skip on point over 2 in x and y direction</simpara></listitem> 
    549             <listitem><simpara><ulink url="idlfiles/tst_initorca2_short_stride.pro">@tst_initorca2_short_stride</ulink> : ORCA2 with stride</simpara></listitem> 
    550             <listitem><simpara><ulink url="idlfiles/tst_initorca05_short_stride.pro">@tst_initorca05_short_stride</ulink> : ORCA05 with stride</simpara></listitem> 
    551             <listitem><simpara><ulink url="idlfiles/tst_initlev_index.pro">@tst_initlev_index</ulink> : in that case we load the grid using points index as axis instead of the longitude/latitude position</simpara></listitem> 
    552             <listitem><simpara><ulink url="idlfiles/tst_initorca2_index.pro">@tst_initorca2_index</ulink> : load ORCA2 as it see by the model</simpara></listitem> 
    553             <listitem><simpara><ulink url="idlfiles/tst_initorca05_index.pro">@tst_initorca05_index</ulink> : load ORCA05 as it see by the model</simpara></listitem> 
    554             <listitem><simpara><ulink url="idlfiles/tst_initlev_index_stride.pro">@tst_initlev_index_stride</ulink> : @tst_initlev_index with stride</simpara></listitem> 
    555             <listitem><simpara><ulink url="idlfiles/tst_initorca2_index_stride.pro">@tst_initorca2_index_stride</ulink> : ORCA2 in index with stride</simpara></listitem> 
    556             <listitem><simpara><ulink url="idlfiles/tst_initorca05_index_stride.pro">@tst_initorca05_index_stride</ulink> : ORCA05 in index with stride</simpara></listitem> 
     546            <listitem><simpara><ulink url="../../Tests/tst_initorca2_short.pro">@tst_initorca2_short</ulink> : ORCA2 example</simpara></listitem> 
     547            <listitem><simpara><ulink url="../../Tests/tst_initorca05_short.pro">@tst_initorca05_short</ulink> : ORCA05 example</simpara></listitem> 
     548            <listitem><simpara><ulink url="../../Tests/tst_initlev_stride.pro">@tst_initlev_stride</ulink> : same as @tst_initlev but we skip on point over 2 in x and y direction</simpara></listitem> 
     549            <listitem><simpara><ulink url="../../Tests/tst_initorca2_short_stride.pro">@tst_initorca2_short_stride</ulink> : ORCA2 with stride</simpara></listitem> 
     550            <listitem><simpara><ulink url="../../Tests/tst_initorca05_short_stride.pro">@tst_initorca05_short_stride</ulink> : ORCA05 with stride</simpara></listitem> 
     551            <listitem><simpara><ulink url="../../Tests/tst_initlev_index.pro">@tst_initlev_index</ulink> : in that case we load the grid using points index as axis instead of the longitude/latitude position</simpara></listitem> 
     552            <listitem><simpara><ulink url="../../Tests/tst_initorca2_index.pro">@tst_initorca2_index</ulink> : load ORCA2 as it see by the model</simpara></listitem> 
     553            <listitem><simpara><ulink url="../../Tests/tst_initorca05_index.pro">@tst_initorca05_index</ulink> : load ORCA05 as it see by the model</simpara></listitem> 
     554            <listitem><simpara><ulink url="../../Tests/tst_initlev_index_stride.pro">@tst_initlev_index_stride</ulink> : @tst_initlev_index with stride</simpara></listitem> 
     555            <listitem><simpara><ulink url="../../Tests/tst_initorca2_index_stride.pro">@tst_initorca2_index_stride</ulink> : ORCA2 in index with stride</simpara></listitem> 
     556            <listitem><simpara><ulink url="../../Tests/tst_initorca05_index_stride.pro">@tst_initorca05_index_stride</ulink> : ORCA05 in index with stride</simpara></listitem> 
    557557          </itemizedlist> 
    558558        </para> 
    … …  
    565565          When the grid is really irregular (its abscissa and ordinate cannot be descried by a vector), loading the grid directly from the data forces us to make an approximation when computing the grid corners position and the cells size. In that case, it can be preferable to load the grid from the meshmask file created by OPA. As OPA use a Arakawa-C discretization, loading the grid from the meshmask will also define all parameters related to the U, V and F grids (glam[uv],gphi[uv], e[12][uvf]). Note that, when using a simple <link linkend="load_fromdata">grid definition from the data itself</link> (with <filename>initncdf</filename> or <filename>computegrid</filename>), adding the keyword /FULLCGRID leads also to the definition of all U, V and F grids parameters. There is the examples to load ORCA grids from OPA meshmask. 
    566566          <itemizedlist> 
    567             <listitem><simpara><ulink url="idlfiles/tst_initorca2.pro">@tst_initorca2</ulink> : ORCA2</simpara></listitem> 
    568             <listitem><simpara><ulink url="idlfiles/tst_initorca05.pro">@tst_initorca05</ulink> : ORCA05</simpara></listitem> 
    569             <listitem><simpara><ulink url="idlfiles/tst_initorca2_stride.pro">@tst_initorca2_stride</ulink> : ORCA2 with stride</simpara></listitem> 
    570             <listitem><simpara><ulink url="idlfiles/tst_initorca05_stride.pro">@tst_initorca05_stride</ulink> : ORCA05 with stride</simpara></listitem> 
    571             <listitem><simpara><ulink url="idlfiles/tst_initorca2_index.pro">@tst_initorca2_index</ulink> : load ORCA2 as it see by the model</simpara></listitem> 
    572             <listitem><simpara><ulink url="idlfiles/tst_initorca05_index.pro">@tst_initorca05_index</ulink> : load ORCA05 as it see by the model</simpara></listitem> 
    573             <listitem><simpara><ulink url="idlfiles/tst_initorca2_index_stride.pro">@tst_initorca2_index_stride</ulink> : ORCA2 in index with stride</simpara></listitem> 
    574             <listitem><simpara><ulink url="idlfiles/tst_initorca05_index_stride.pro">@tst_initorca05_index_stride</ulink> : ORCA05 in index with stride</simpara></listitem> 
     567            <listitem><simpara><ulink url="../../Tests/tst_initorca2.pro">@tst_initorca2</ulink> : ORCA2</simpara></listitem> 
     568            <listitem><simpara><ulink url="../../Tests/tst_initorca05.pro">@tst_initorca05</ulink> : ORCA05</simpara></listitem> 
     569            <listitem><simpara><ulink url="../../Tests/tst_initorca2_stride.pro">@tst_initorca2_stride</ulink> : ORCA2 with stride</simpara></listitem> 
     570            <listitem><simpara><ulink url="../../Tests/tst_initorca05_stride.pro">@tst_initorca05_stride</ulink> : ORCA05 with stride</simpara></listitem> 
     571            <listitem><simpara><ulink url="../../Tests/tst_initorca2_index.pro">@tst_initorca2_index</ulink> : load ORCA2 as it see by the model</simpara></listitem> 
     572            <listitem><simpara><ulink url="../../Tests/tst_initorca05_index.pro">@tst_initorca05_index</ulink> : load ORCA05 as it see by the model</simpara></listitem> 
     573            <listitem><simpara><ulink url="../../Tests/tst_initorca2_index_stride.pro">@tst_initorca2_index_stride</ulink> : ORCA2 in index with stride</simpara></listitem> 
     574            <listitem><simpara><ulink url="../../Tests/tst_initorca05_index_stride.pro">@tst_initorca05_index_stride</ulink> : ORCA05 in index with stride</simpara></listitem> 
    575575          </itemizedlist> 
    576576        </para> 
    … …  
    583583      </title> 
    584584        <para> 
    585           A quick presentation of horizontal plots and maps is shown in <ulink url="idlfiles/tst_plt.pro">tst_plt</ulink>. After laoding any of the grid (for example with one of the <link linkend="load_grid">above examples</link>). Just try: 
     585          A quick presentation of horizontal plots and maps is shown in <ulink url="../../Tests/tst_plt.pro">tst_plt</ulink>. After laoding any of the grid (for example with one of the <link linkend="load_grid">above examples</link>). Just try: 
    586586          <screen format="linespecific"> 
    587587  <prompt>&promptidl;</prompt> <userinput><command>tst_plt</command></userinput> 
    … …  
    607607      </title> 
    608608        <para> 
    609           A quick presentation of vertical sections is shown in <ulink url="idlfiles/tst_pltz.pro">tst_pltz</ulink>. After laoding any of the grid (for example with one of the <link linkend="load_grid">above examples</link>). Just try: 
     609          A quick presentation of vertical sections is shown in <ulink url="../../Tests/tst_pltz.pro">tst_pltz</ulink>. After laoding any of the grid (for example with one of the <link linkend="load_grid">above examples</link>). Just try: 
    610610          <screen format="linespecific"> 
    611611  <prompt>&promptidl;</prompt> <userinput><command>tst_pltz</command></userinput> 
    … …  
    631631      </title> 
    632632        <para> 
    633           A quick presentation of hovmoellers and time series is shown in <ulink url="idlfiles/tst_pltt.pro">tst_pltt</ulink>. After laoding any of the grid (for example with one of the <link linkend="load_grid">above examples</link>). Just try: 
     633          A quick presentation of hovmoellers and time series is shown in <ulink url="../../Tests/tst_pltt.pro">tst_pltt</ulink>. After laoding any of the grid (for example with one of the <link linkend="load_grid">above examples</link>). Just try: 
    634634          <screen format="linespecific"> 
    635635  <prompt>&promptidl;</prompt> <userinput><command>tst_pltt</command></userinput> 

  • trunk/SRC/Tests/TestsOld/tst_initlev_index_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, /xyindex 
     3          , missing_value = 31.0720, /lookalldir, /xyindex 

  • trunk/SRC/Tests/TestsOld/tst_initlev_index_stride_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, /xyindex, stride = [2, 2, 1] 
     3          , missing_value = 31.0720, /lookalldir, /xyindex, stride = [2, 2, 1] 

  • trunk/SRC/Tests/TestsOld/tst_initlev_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive 
     3          , missing_value = 31.0720, /lookalldir 

  • trunk/SRC/Tests/TestsOld/tst_initlev_stride_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, stride = [2, 2, 1] 
     3          , missing_value = 31.0720, /lookalldir, stride = [2, 2, 1] 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_index_old.pro

    r57 r77  
    1010initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1111          , yminmesh = 0, ymaxmesh = -1, /xyindex $ 
    12           , iodirectory = [iodir, homedir, !path], /recursive 
     12          , /lookalldir 
    1313; 
    1414; 2) definition with the meshmask 
    … …  
    1818;           , /xyindex, zaxisname = 'gdept' $ 
    1919;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    20 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     20;           , /lookalldir 
    2121; 
    2222; 3) by calling directly computegrid 
    … …  
    3030; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3131;              , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 
    32 ;              , iodirectory = [iodir, homedir, !path], /recursive 
     32;              , /lookalldir 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_index_stride_old.pro

    r57 r77  
    1010initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1111          , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 1, 1] $ 
    12           , iodirectory = [iodir, homedir, !path], /recursive 
     12          , /lookalldir 
    1313; 
    1414; 2) definition with the meshmask 
    … …  
    1818;           , /xyindex, zaxisname = 'gdept', stride = [2, 1, 1] $ 
    1919;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    20 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     20;           , /lookalldir 
    2121; 
    2222; 3) by calling directly computegrid 
    … …  
    3030; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3131;           , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 1, 1] $ 
    32 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     32;           , /lookalldir 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_old.pro

    r57 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [1, 1, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA05.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA05.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_short_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $ 
    3           , yminmesh = 0, ymaxmesh = -1, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive 
     3          , yminmesh = 0, ymaxmesh = -1, /lookalldir 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_short_stride_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $ 
    3           , yminmesh = 0, ymaxmesh = -1, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, stride = [2, 2, 1] 
     3          , yminmesh = 0, ymaxmesh = -1, /lookalldir, stride = [2, 2, 1] 

  • trunk/SRC/Tests/TestsOld/tst_initorca05_stride_old.pro

    r57 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [2, 2, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA05.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA05.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/TestsOld/tst_initorca2_index_old.pro

    r57 r77  
    1111initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1212          , yminmesh = 0, ymaxmesh = -1, /xyindex $ 
    13           , iodirectory = [iodir, homedir, !path], /recursive 
     13          , /lookalldir 
    1414; 
    1515; 2) definition with the meshmask 
    … …  
    1919;           , /xyindex, zaxisname = 'gdept' $ 
    2020;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    21 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     21;           , /lookalldir 
    2222; 
    2323; 3) by calling directly computegrid 
    … …  
    3131; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3232;              , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 
    33 ;              , iodirectory = [iodir, homedir, !path], /recursive 
     33;              , /lookalldir 

  • trunk/SRC/Tests/TestsOld/tst_initorca2_index_stride_old.pro

    r57 r77  
    1111initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1212          , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 2, 1] $ 
    13           , iodirectory = [iodir, homedir, !path], /recursive 
     13          , /lookalldir 
    1414; 
    1515; 2) definition with the meshmask 
    … …  
    1919;           , /xyindex, zaxisname = 'gdept', stride = [2, 2, 1] $ 
    2020;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    21 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     21;           , /lookalldir 
    2222; 
    2323; 3) by calling directly computegrid 
    … …  
    3131; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3232;           , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 2, 1] $ 
    33 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     33;           , /lookalldir 

  • trunk/SRC/Tests/TestsOld/tst_initorca2_old.pro

    r57 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [1, 1, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA2.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA2.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/TestsOld/tst_initorca2_short_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ 
    3           , yminmesh = 0, ymaxmesh = 147, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive 
     3          , yminmesh = 0, ymaxmesh = 147, /lookalldir 
    54 

  • trunk/SRC/Tests/TestsOld/tst_initorca2_short_stride_old.pro

    r57 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ 
    3           , yminmesh = 0, ymaxmesh = 147, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, stride = [2, 2, 1] 
     3          , yminmesh = 0, ymaxmesh = 147, /lookalldir, stride = [2, 2, 1] 
    54 

  • trunk/SRC/Tests/TestsOld/tst_initorca2_stride_old.pro

    r57 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [2, 2, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA2.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA2.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/TestsOld/tst_plt_old.pro

    r57 r77  
    1010    720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    1111  ENDCASE 
    12   file = isafile(file, iodirectory = [iodir, homedir, !path] $ 
    13                  , title = 'Where is '+file+' ?', /recursive) 
     12  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 
    1413  IF size(file, /type) NE 7 THEN return 
    1514; 
    … …  
    1918  domdef 
    2019  domdef, gdept[0], gdept[0], grille = 'T' 
    21   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     20  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    2221; 
    2322  plt, temp, /landscape 
    … …  
    7675; domdef, 150, 150 ; => warning message 
    7776  domdef, gdept[jpk/2], gdept[jpk/2], grille = 'T' 
    78   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     77  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    7978  plt, temp, carte = 2*(key_onearth), /land 
    8079  if keyword_set(image) then saveimage, 'tst_plt_'+image+'_'+string(cnt, format='(i2.2)')+'.png', /png 

  • trunk/SRC/Tests/TestsOld/tst_pltt_old.pro

    r57 r77  
    1111    720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    1212  ENDCASE 
    13   file = isafile(file, iodirectory = [iodir, homedir, !path] $ 
    14                  , title = 'Where is '+file+' ?', /recursive) 
     13  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 
    1514  IF size(file, /type) NE 7 THEN return 
    1615; 
    … …  
    2322  ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, gdept[0] 
    2423; 
    25   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     24  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    2625  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    2726  help, jpt, time 
    … …  
    5756      , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], grille = 'T', /yindex 
    5857  ENDELSE  
    59   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     58  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    6059  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    6160  pltt, temp 
    … …  
    7473  ENDELSE  
    7574 
    76   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     75  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    7776  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    7877  pltt, temp 

  • trunk/SRC/Tests/TestsOld/tst_pltz_old.pro

    r57 r77  
    1313    720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    1414  ENDCASE 
    15   file = isafile(file, iodirectory = [iodir, homedir, !path] $ 
    16                  , title = 'Where is '+file+' ?', /recursive) 
     15  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 
    1716  IF size(file, /type) NE 7 THEN return 
    1817; 
    … …  
    2019  ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, max(gdept) 
    2120; 
    22   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     21  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    2322  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    2423;  
    … …  
    7372  ENDELSE  
    7473 
    75   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     74  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    7675  pltz, temp, boite = [6000], zoom = 1000, ysurx = 2, hzsurht = .5 
    7776  if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ 
    … …  
    8483  ELSE endpoints = [jpi/6, jpj/3, 5*jpi/6, 2*jpj/3] 
    8584  domdef, endpoints = endpoints, type = 'pltz' 
    86   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     85  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    8786  pltz, temp, endpoints = endpoints 
    8887  if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ 
    … …  
    9594  ELSE endpoints = [jpi/2+0.25, +0.25, jpi/2+0.25,  jpj] 
    9695  domdef, 6000, endpoints = endpoints, type = 'pltz' 
    97   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     96  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    9897  pltz, temp, endpoints = endpoints, boite = [6000] $ 
    9998        , zoom = 1000, ysurx = 2, hzsurht = .5 ; , /showbuild 
    … …  
    108107    ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000] 
    109108    domdef, box, grille = 'T' 
    110     temp = read_ncdf('votemper', 10101, 10131, file = file) 
     109    temp = read_ncdf('votemper', 00101, 00131, file = file) 
    111110    pltz, temp, boite = [6000], /portrait, petit = [1, 2, 1] $ 
    112111          , zoom = 500, hzsurht = .5 
    … …  
    115114    ELSE endpoints = [0, jpj/2, jpi-1, jpj/2] 
    116115    domdef, 6000, endpoints = endpoints, type = 'pltz', grille = 'T' 
    117     temp = read_ncdf('votemper', 10101, 10131, file = file) 
     116    temp = read_ncdf('votemper', 00101, 00131, file = file) 
    118117    pltz, temp, endpoints = endpoints, boite = [6000] $ 
    119118          , zoom = 500, hzsurht = .5 $ 

  • trunk/SRC/Tests/tst_initlev.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive 
     3          , missing_value = 31.0720, /lookalldir 

  • trunk/SRC/Tests/tst_initlev_index.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, /xyindex 
     3          , missing_value = 31.0720, /lookalldir, /xyindex 

  • trunk/SRC/Tests/tst_initlev_index_stride.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, /xyindex, stride = [2, 2, 1] 
     3          , missing_value = 31.0720, /lookalldir, /xyindex, stride = [2, 2, 1] 

  • trunk/SRC/Tests/tst_initlev_stride.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 
    22initncdf, file, glamboundary = [20, 380], useasmask = 'votemper' $ 
    3           , missing_value = 31.0720, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, stride = [2, 2, 1] 
     3          , missing_value = 31.0720, /lookalldir, stride = [2, 2, 1] 

  • trunk/SRC/Tests/tst_initorca05.pro

    r58 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [1, 1, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA05.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA05.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/tst_initorca05_index.pro

    r58 r77  
    1010initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1111          , yminmesh = 0, ymaxmesh = -1, /xyindex $ 
    12           , iodirectory = [iodir, homedir, !path], /recursive 
     12          , /lookalldir 
    1313; 
    1414; 2) definition with the meshmask 
    … …  
    1818;           , /xyindex, zaxisname = 'gdept' $ 
    1919;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    20 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     20;           , /lookalldir 
    2121; 
    2222; 3) by calling directly computegrid 
    … …  
    3030; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3131;              , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 
    32 ;              , iodirectory = [iodir, homedir, !path], /recursive 
     32;              , /lookalldir 

  • trunk/SRC/Tests/tst_initorca05_index_stride.pro

    r58 r77  
    1010initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1111          , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 1, 1] $ 
    12           , iodirectory = [iodir, homedir, !path], /recursive 
     12          , /lookalldir 
    1313; 
    1414; 2) definition with the meshmask 
    … …  
    1818;           , /xyindex, zaxisname = 'gdept', stride = [2, 1, 1] $ 
    1919;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    20 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     20;           , /lookalldir 
    2121; 
    2222; 3) by calling directly computegrid 
    … …  
    3030; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3131;           , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 1, 1] $ 
    32 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     32;           , /lookalldir 

  • trunk/SRC/Tests/tst_initorca05_short.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $ 
    3           , yminmesh = 0, ymaxmesh = -1, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive 
     3          , yminmesh = 0, ymaxmesh = -1, /lookalldir 

  • trunk/SRC/Tests/tst_initorca05_short_stride.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = -1 $ 
    3           , yminmesh = 0, ymaxmesh = -1, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, stride = [2, 2, 1] 
     3          , yminmesh = 0, ymaxmesh = -1, /lookalldir, stride = [2, 2, 1] 

  • trunk/SRC/Tests/tst_initorca05_stride.pro

    r58 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [2, 2, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA05.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA05.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/tst_initorca2.pro

    r58 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [1, 1, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA2.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA2.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/tst_initorca2_index.pro

    r58 r77  
    1111initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1212          , yminmesh = 0, ymaxmesh = -1, /xyindex $ 
    13           , iodirectory = [iodir, homedir, !path], /recursive 
     13          , /lookalldir 
    1414; 
    1515; 2) definition with the meshmask 
    … …  
    1919;           , /xyindex, zaxisname = 'gdept' $ 
    2020;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    21 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     21;           , /lookalldir 
    2222; 
    2323; 3) by calling directly computegrid 
    … …  
    3131; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3232;              , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 
    33 ;              , iodirectory = [iodir, homedir, !path], /recursive 
     33;              , /lookalldir 

  • trunk/SRC/Tests/tst_initorca2_index_stride.pro

    r58 r77  
    1111initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 
    1212          , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 2, 1] $ 
    13           , iodirectory = [iodir, homedir, !path], /recursive 
     13          , /lookalldir 
    1414; 
    1515; 2) definition with the meshmask 
    … …  
    1919;           , /xyindex, zaxisname = 'gdept', stride = [2, 2, 1] $ 
    2020;           , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 
    21 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     21;           , /lookalldir 
    2222; 
    2323; 3) by calling directly computegrid 
    … …  
    3131; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 
    3232;           , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 2, 1] $ 
    33 ;           , iodirectory = [iodir, homedir, !path], /recursive 
     33;           , /lookalldir 

  • trunk/SRC/Tests/tst_initorca2_short.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ 
    3           , yminmesh = 0, ymaxmesh = 147, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive 
     3          , yminmesh = 0, ymaxmesh = 147, /lookalldir 
    54 

  • trunk/SRC/Tests/tst_initorca2_short_stride.pro

    r58 r77  
    11file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 
    22initncdf, file, glamboundary = [20, 380], xminmesh = 1, xmaxmesh = 180 $ 
    3           , yminmesh = 0, ymaxmesh = 147, iodirectory = [iodir, homedir, !path] $ 
    4           , /recursive, stride = [2, 2, 1] 
     3          , yminmesh = 0, ymaxmesh = 147, /lookalldir, stride = [2, 2, 1] 
    54 

  • trunk/SRC/Tests/tst_initorca2_stride.pro

    r58 r77  
    2121;------------------------------------------------------ 
    2222key_stride = [2, 2, 1] 
    23 ncdf_meshread, 'micromeshmaskORCA2.nc', glamboundary = [20, 380] $ 
    24               , iodirectory = [iodir, homedir, !path], /recursive 
     23ncdf_meshread, 'micromeshmaskORCA2.nc' $ 
     24               , glamboundary = [20, 380], /lookalldir 
    2525;------------------------------------------------------------- 
    2626domdef 

  • trunk/SRC/Tests/tst_plt.pro

    r58 r77  
    1010    720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    1111  ENDCASE 
    12   file = isafile(file, iodirectory = [iodir, homedir, !path] $ 
    13                  , title = 'Where is '+file+' ?', /recursive) 
     12  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 
    1413  IF size(file, /type) NE 7 THEN return 
    1514; 
    … …  
    1918  domdef 
    2019  domdef, gdept[0], gdept[0], gridtype = 'T' 
    21   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     20  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    2221; 
    2322  plt, temp, /landscape 
    … …  
    7675; domdef, 150, 150 ; => warning message 
    7776  domdef, gdept[jpk/2], gdept[jpk/2], gridtype = 'T' 
    78   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     77  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    7978  plt, temp, realcont = 2*(key_onearth), /land 
    8079  if keyword_set(image) then saveimage, 'tst_plt_'+image+'_'+string(cnt, format='(i2.2)')+'.png', /png 

  • trunk/SRC/Tests/tst_pltt.pro

    r58 r77  
    1111    720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    1212  ENDCASE 
    13   file = isafile(file, iodirectory = [iodir, homedir, !path] $ 
    14                  , title = 'Where is '+file+' ?', /recursive) 
     13  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 
    1514  IF size(file, /type) NE 7 THEN return 
    1615; 
    … …  
    2322  ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, gdept[0] 
    2423; 
    25   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     24  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    2625  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    2726  help, jpt, time 
    … …  
    5756      , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], gridtype = 'T', /yindex 
    5857  ENDELSE  
    59   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     58  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    6059  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    6160  pltt, temp 
    … …  
    7473  ENDELSE  
    7574 
    76   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     75  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    7776  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    7877  pltt, temp 

  • trunk/SRC/Tests/tst_pltz.pro

    r58 r77  
    1313    720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 
    1414  ENDCASE 
    15   file = isafile(file, iodirectory = [iodir, homedir, !path] $ 
    16                  , title = 'Where is '+file+' ?', /recursive) 
     15  file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 
    1716  IF size(file, /type) NE 7 THEN return 
    1817; 
    … …  
    2019  ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, max(gdept) 
    2120; 
    22   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     21  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    2322  IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 
    2423;  
    … …  
    7372  ENDELSE  
    7473 
    75   temp = read_ncdf('votemper', 10101, 11231, file = file) 
     74  temp = read_ncdf('votemper', 00101, 01231, file = file) 
    7675  pltz, temp, boxzoom = [6000], zoom = 1000, yxaspect = 2, zratio = .5 
    7776  if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ 
    … …  
    8483  ELSE endpoints = [jpi/6, jpj/3, 5*jpi/6, 2*jpj/3] 
    8584  domdef, endpoints = endpoints, type = 'pltz' 
    86   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     85  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    8786  pltz, temp, endpoints = endpoints 
    8887  if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ 
    … …  
    9594  ELSE endpoints = [jpi/2+0.25, +0.25, jpi/2+0.25,  jpj] 
    9695  domdef, 6000, endpoints = endpoints, type = 'pltz' 
    97   temp = read_ncdf('votemper', 10101, 10131, file = file) 
     96  temp = read_ncdf('votemper', 00101, 00131, file = file) 
    9897  pltz, temp, endpoints = endpoints, boxzoom = [6000] $ 
    9998        , zoom = 1000, yxaspect = 2, zratio = .5 ; , /showbuild 
    … …  
    108107    ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000] 
    109108    domdef, box, gridtype = 'T' 
    110     temp = read_ncdf('votemper', 10101, 10131, file = file) 
     109    temp = read_ncdf('votemper', 00101, 00131, file = file) 
    111110    pltz, temp, boxzoom = [6000], /portrait, small = [1, 2, 1] $ 
    112111          , zoom = 500, zratio = .5 
    … …  
    115114    ELSE endpoints = [0, jpj/2, jpi-1, jpj/2] 
    116115    domdef, 6000, endpoints = endpoints, type = 'pltz', gridtype = 'T' 
    117     temp = read_ncdf('votemper', 10101, 10131, file = file) 
     116    temp = read_ncdf('votemper', 00101, 00131, file = file) 
    118117    pltz, temp, endpoints = endpoints, boxzoom = [6000] $ 
    119118          , zoom = 500, zratio = .5 $ 

  • trunk/SRC/Utilities/.idlwave_catalog

    r76 r77  
    1010   ("def_myuniquetmpdir" pro nil (lib "def_myuniquetmpdir.pro" nil "saxo") "%s" (nil)) 
    1111   ("demomode_compatibility" pro nil (lib "demomode_compatibility.pro" nil "saxo") "%s" (nil)) 
    12    ("find" fun nil (lib "find.pro" nil "saxo") "Result = %s(filein)" (nil ("_extra") ("FIRSTFOUND") ("IODIRECTORY") ("NOPRO") ("ONLYNC") ("ONLYPRO") ("RECURSIVE") ("REPERTOIRE") ("UNIQUE"))) 
     12   ("find" fun nil (lib "find.pro" nil "saxo") "Result = %s(filein)" (nil ("_extra") ("FIRSTFOUND") ("IODIRECTORY") ("LOOKALLDIR") ("NOPRO") ("ONLYNC") ("ONLYPRO") ("RECURSIVE") ("REPERTOIRE") ("UNIQUE"))) 
    1313   ("isadirectory" fun nil (lib "isadirectory.pro" nil "saxo") "Result = %s(directoryin)" (nil ("_extra") ("IODIRECTORY") ("TITLE"))) 
    1414   ("isafile" fun nil (lib "isafile.pro" nil "saxo") "Result = %s(filein)" (nil ("_extra") ("FILENAME") ("IODIRECTORY") ("NEW") ("ONLYNC") ("ONLYPRO") ("RECURSIVE"))) 

  • trunk/SRC/Utilities/find.pro

    r69 r77  
    2323; KEYWORD PARAMETERS: 
    2424; 
     25;     FIRSTFOUND: activate this keyword to stop looking for the file as 
     26;        soon as we found one. 
     27; 
    2528;     IODIRECTORY: A scalar or array variable of string type, containing 
    2629;        directories names where we are looking for the file. by defaut 
    … …  
    3134;        keyword is not taken into account. 
    3235; 
    33 ;     FIRSTFOUND: activate this keyword to stop looking for the file as 
    34 ;        soon as we found one. 
     36;     LOOKALLDIR:activate to look for the file with a recursive search 
     37;        in iodir, homedir, !path + the DATA:TestsData directory if it exists. 
     38; 
     39;     NOPRO: activate to avoid the automatic search of filename 
     40;        completed with '.pro' 
     41; 
     42;     ONLYPRO:force to look only at file ending with .pro 
     43; 
     44;     ONLYNC:force to look only at file ending with .nc 
    3545; 
    3646;     RECURSIVE: performs recursive searching of directory hierarchies. 
    … …  
    4050; 
    4151;     REPERTOIRE: obsolete. keep for compatibility, use directory keyword 
    42 ; 
    43 ;     NOPRO: activate to avoid the automatic search of filename 
    44 ;        completed with '.pro' 
    45 ; 
    46 ;     ONLYPRO:force to look only at file ending with .pro 
    47 ; 
    48 ;     ONLYNC:force to look only at file ending with .nc 
    4952; 
    5053;     UNIQUE: activate to make sure that each element of the output 
    … …  
    102105               , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO = onlypro $ 
    103106               , ONLYNC = onlync, UNIQUE = unique, FIRSTFOUND = firstfound $ 
    104                , _extra = ex 
    105 ; 
     107               , LOOKALLDIR = LOOKALLDIR, _extra = ex 
    106108; define where we look for the file 
    107109  CASE 1 OF 
     110    keyword_set(lookalldir):BEGIN  
     111@cm_general 
     112      dirnames = [iodir, homedir, !path] 
     113      tstdtadir= file_dirname(find('find', /onlypro), /mark_directory) 
     114      tstdtadir = (file_search(tstdtadir+'../../DATA/TestsData'))[0] 
     115      IF tstdtadir NE '' THEN dirnames = [tstdtadir, dirnames] 
     116    END 
    108117    keyword_set(iodirectory): dirnames = iodirectory 
    109118    keyword_set(repertoire): dirnames = repertoire 
Note: See TracChangeset for help on using the changeset viewer.