- Timestamp:
- 05/24/06 10:22:32 (18 years ago)
- Location:
- trunk/SRC
- Files:
-
- 20 deleted
- 42 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Documentation/idlwave_catalog
r76 r77 119 119 next; 120 120 } 121 $time=localtime();121 # $time=localtime(); 122 122 print CATALOG <<EOF; 123 123 ;; -
trunk/SRC/Documentation/xmldoc/firststeps.xml
r65 r77 435 435 </calloutlist> 436 436 </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>: 438 438 <screen format="linespecific"> 439 439 <prompt>&promptidl;</prompt> <userinput><command>tst_basic</command></userinput> <ulink url="figpng/tst_basic.png">&showfig;</ulink> … … 502 502 <computeroutput>% Compiled module: DEFINETRI.</computeroutput> 503 503 </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: 505 505 <itemizedlist> 506 506 <listitem><simpara>domain dimensions, stored in <varname>jpi, jpj and jpk</varname></simpara></listitem> … … 544 544 We provide other initialization methods/examples 545 545 <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> 557 557 </itemizedlist> 558 558 </para> … … 565 565 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. 566 566 <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> 575 575 </itemizedlist> 576 576 </para> … … 583 583 </title> 584 584 <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: 586 586 <screen format="linespecific"> 587 587 <prompt>&promptidl;</prompt> <userinput><command>tst_plt</command></userinput> … … 607 607 </title> 608 608 <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: 610 610 <screen format="linespecific"> 611 611 <prompt>&promptidl;</prompt> <userinput><command>tst_pltz</command></userinput> … … 631 631 </title> 632 632 <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: 634 634 <screen format="linespecific"> 635 635 <prompt>&promptidl;</prompt> <userinput><command>tst_pltt</command></userinput> -
trunk/SRC/Tests/TestsOld/tst_initlev_index_old.pro
r57 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 10 10 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 11 11 , yminmesh = 0, ymaxmesh = -1, /xyindex $ 12 , iodirectory = [iodir, homedir, !path], /recursive12 , /lookalldir 13 13 ; 14 14 ; 2) definition with the meshmask … … 18 18 ; , /xyindex, zaxisname = 'gdept' $ 19 19 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 20 ; , iodirectory = [iodir, homedir, !path], /recursive20 ; , /lookalldir 21 21 ; 22 22 ; 3) by calling directly computegrid … … 30 30 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 31 31 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 32 ; , iodirectory = [iodir, homedir, !path], /recursive32 ; , /lookalldir -
trunk/SRC/Tests/TestsOld/tst_initorca05_index_stride_old.pro
r57 r77 10 10 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 11 11 , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 1, 1] $ 12 , iodirectory = [iodir, homedir, !path], /recursive12 , /lookalldir 13 13 ; 14 14 ; 2) definition with the meshmask … … 18 18 ; , /xyindex, zaxisname = 'gdept', stride = [2, 1, 1] $ 19 19 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 20 ; , iodirectory = [iodir, homedir, !path], /recursive20 ; , /lookalldir 21 21 ; 22 22 ; 3) by calling directly computegrid … … 30 30 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 31 31 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 1, 1] $ 32 ; , iodirectory = [iodir, homedir, !path], /recursive32 ; , /lookalldir -
trunk/SRC/Tests/TestsOld/tst_initorca05_old.pro
r57 r77 21 21 ;------------------------------------------------------ 22 22 key_stride = [1, 1, 1] 23 ncdf_meshread, 'micromeshmaskORCA05.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA05.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/TestsOld/tst_initorca05_short_old.pro
r57 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 2 2 initncdf, 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 21 21 ;------------------------------------------------------ 22 22 key_stride = [2, 2, 1] 23 ncdf_meshread, 'micromeshmaskORCA05.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA05.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/TestsOld/tst_initorca2_index_old.pro
r57 r77 11 11 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 12 12 , yminmesh = 0, ymaxmesh = -1, /xyindex $ 13 , iodirectory = [iodir, homedir, !path], /recursive13 , /lookalldir 14 14 ; 15 15 ; 2) definition with the meshmask … … 19 19 ; , /xyindex, zaxisname = 'gdept' $ 20 20 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 21 ; , iodirectory = [iodir, homedir, !path], /recursive21 ; , /lookalldir 22 22 ; 23 23 ; 3) by calling directly computegrid … … 31 31 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 32 32 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 33 ; , iodirectory = [iodir, homedir, !path], /recursive33 ; , /lookalldir -
trunk/SRC/Tests/TestsOld/tst_initorca2_index_stride_old.pro
r57 r77 11 11 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 12 12 , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 2, 1] $ 13 , iodirectory = [iodir, homedir, !path], /recursive13 , /lookalldir 14 14 ; 15 15 ; 2) definition with the meshmask … … 19 19 ; , /xyindex, zaxisname = 'gdept', stride = [2, 2, 1] $ 20 20 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 21 ; , iodirectory = [iodir, homedir, !path], /recursive21 ; , /lookalldir 22 22 ; 23 23 ; 3) by calling directly computegrid … … 31 31 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 32 32 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 2, 1] $ 33 ; , iodirectory = [iodir, homedir, !path], /recursive33 ; , /lookalldir -
trunk/SRC/Tests/TestsOld/tst_initorca2_old.pro
r57 r77 21 21 ;------------------------------------------------------ 22 22 key_stride = [1, 1, 1] 23 ncdf_meshread, 'micromeshmaskORCA2.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA2.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/TestsOld/tst_initorca2_short_old.pro
r57 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 2 2 initncdf, 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 5 4 -
trunk/SRC/Tests/TestsOld/tst_initorca2_short_stride_old.pro
r57 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 2 2 initncdf, 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] 5 4 -
trunk/SRC/Tests/TestsOld/tst_initorca2_stride_old.pro
r57 r77 21 21 ;------------------------------------------------------ 22 22 key_stride = [2, 2, 1] 23 ncdf_meshread, 'micromeshmaskORCA2.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA2.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/TestsOld/tst_plt_old.pro
r57 r77 10 10 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 11 11 ENDCASE 12 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 13 , title = 'Where is '+file+' ?', /recursive) 12 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 14 13 IF size(file, /type) NE 7 THEN return 15 14 ; … … 19 18 domdef 20 19 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) 22 21 ; 23 22 plt, temp, /landscape … … 76 75 ; domdef, 150, 150 ; => warning message 77 76 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) 79 78 plt, temp, carte = 2*(key_onearth), /land 80 79 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 11 11 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 12 12 ENDCASE 13 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 14 , title = 'Where is '+file+' ?', /recursive) 13 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 15 14 IF size(file, /type) NE 7 THEN return 16 15 ; … … 23 22 ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, gdept[0] 24 23 ; 25 temp = read_ncdf('votemper', 10101, 11231, file = file)24 temp = read_ncdf('votemper', 00101, 01231, file = file) 26 25 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 27 26 help, jpt, time … … 57 56 , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], grille = 'T', /yindex 58 57 ENDELSE 59 temp = read_ncdf('votemper', 10101, 11231, file = file)58 temp = read_ncdf('votemper', 00101, 01231, file = file) 60 59 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 61 60 pltt, temp … … 74 73 ENDELSE 75 74 76 temp = read_ncdf('votemper', 10101, 11231, file = file)75 temp = read_ncdf('votemper', 00101, 01231, file = file) 77 76 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 78 77 pltt, temp -
trunk/SRC/Tests/TestsOld/tst_pltz_old.pro
r57 r77 13 13 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 14 14 ENDCASE 15 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 16 , title = 'Where is '+file+' ?', /recursive) 15 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 17 16 IF size(file, /type) NE 7 THEN return 18 17 ; … … 20 19 ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, max(gdept) 21 20 ; 22 temp = read_ncdf('votemper', 10101, 10131, file = file)21 temp = read_ncdf('votemper', 00101, 00131, file = file) 23 22 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 24 23 ; … … 73 72 ENDELSE 74 73 75 temp = read_ncdf('votemper', 10101, 11231, file = file)74 temp = read_ncdf('votemper', 00101, 01231, file = file) 76 75 pltz, temp, boite = [6000], zoom = 1000, ysurx = 2, hzsurht = .5 77 76 if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ … … 84 83 ELSE endpoints = [jpi/6, jpj/3, 5*jpi/6, 2*jpj/3] 85 84 domdef, endpoints = endpoints, type = 'pltz' 86 temp = read_ncdf('votemper', 10101, 10131, file = file)85 temp = read_ncdf('votemper', 00101, 00131, file = file) 87 86 pltz, temp, endpoints = endpoints 88 87 if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ … … 95 94 ELSE endpoints = [jpi/2+0.25, +0.25, jpi/2+0.25, jpj] 96 95 domdef, 6000, endpoints = endpoints, type = 'pltz' 97 temp = read_ncdf('votemper', 10101, 10131, file = file)96 temp = read_ncdf('votemper', 00101, 00131, file = file) 98 97 pltz, temp, endpoints = endpoints, boite = [6000] $ 99 98 , zoom = 1000, ysurx = 2, hzsurht = .5 ; , /showbuild … … 108 107 ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000] 109 108 domdef, box, grille = 'T' 110 temp = read_ncdf('votemper', 10101, 10131, file = file)109 temp = read_ncdf('votemper', 00101, 00131, file = file) 111 110 pltz, temp, boite = [6000], /portrait, petit = [1, 2, 1] $ 112 111 , zoom = 500, hzsurht = .5 … … 115 114 ELSE endpoints = [0, jpj/2, jpi-1, jpj/2] 116 115 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) 118 117 pltz, temp, endpoints = endpoints, boite = [6000] $ 119 118 , zoom = 500, hzsurht = .5 $ -
trunk/SRC/Tests/tst_initlev.pro
r58 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_1x1.nc' 2 2 initncdf, 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 21 21 ;------------------------------------------------------ 22 22 key_stride = [1, 1, 1] 23 ncdf_meshread, 'micromeshmaskORCA05.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA05.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/tst_initorca05_index.pro
r58 r77 10 10 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 11 11 , yminmesh = 0, ymaxmesh = -1, /xyindex $ 12 , iodirectory = [iodir, homedir, !path], /recursive12 , /lookalldir 13 13 ; 14 14 ; 2) definition with the meshmask … … 18 18 ; , /xyindex, zaxisname = 'gdept' $ 19 19 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 20 ; , iodirectory = [iodir, homedir, !path], /recursive20 ; , /lookalldir 21 21 ; 22 22 ; 3) by calling directly computegrid … … 30 30 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 31 31 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 32 ; , iodirectory = [iodir, homedir, !path], /recursive32 ; , /lookalldir -
trunk/SRC/Tests/tst_initorca05_index_stride.pro
r58 r77 10 10 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 11 11 , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 1, 1] $ 12 , iodirectory = [iodir, homedir, !path], /recursive12 , /lookalldir 13 13 ; 14 14 ; 2) definition with the meshmask … … 18 18 ; , /xyindex, zaxisname = 'gdept', stride = [2, 1, 1] $ 19 19 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 20 ; , iodirectory = [iodir, homedir, !path], /recursive20 ; , /lookalldir 21 21 ; 22 22 ; 3) by calling directly computegrid … … 30 30 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 31 31 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 1, 1] $ 32 ; , iodirectory = [iodir, homedir, !path], /recursive32 ; , /lookalldir -
trunk/SRC/Tests/tst_initorca05_short.pro
r58 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 2 2 initncdf, 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 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 2 2 initncdf, 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 21 21 ;------------------------------------------------------ 22 22 key_stride = [2, 2, 1] 23 ncdf_meshread, 'micromeshmaskORCA05.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA05.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/tst_initorca2.pro
r58 r77 21 21 ;------------------------------------------------------ 22 22 key_stride = [1, 1, 1] 23 ncdf_meshread, 'micromeshmaskORCA2.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA2.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/tst_initorca2_index.pro
r58 r77 11 11 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 12 12 , yminmesh = 0, ymaxmesh = -1, /xyindex $ 13 , iodirectory = [iodir, homedir, !path], /recursive13 , /lookalldir 14 14 ; 15 15 ; 2) definition with the meshmask … … 19 19 ; , /xyindex, zaxisname = 'gdept' $ 20 20 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 21 ; , iodirectory = [iodir, homedir, !path], /recursive21 ; , /lookalldir 22 22 ; 23 23 ; 3) by calling directly computegrid … … 31 31 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 32 32 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0 $ 33 ; , iodirectory = [iodir, homedir, !path], /recursive33 ; , /lookalldir -
trunk/SRC/Tests/tst_initorca2_index_stride.pro
r58 r77 11 11 initncdf, file, xminmesh = 1, xmaxmesh = -1 $ 12 12 , yminmesh = 0, ymaxmesh = -1, /xyindex, stride = [2, 2, 1] $ 13 , iodirectory = [iodir, homedir, !path], /recursive13 , /lookalldir 14 14 ; 15 15 ; 2) definition with the meshmask … … 19 19 ; , /xyindex, zaxisname = 'gdept', stride = [2, 2, 1] $ 20 20 ; , yminmesh = 0, ymaxmesh = -1, xminmesh = 1, xmaxmesh = -1 $ 21 ; , iodirectory = [iodir, homedir, !path], /recursive21 ; , /lookalldir 22 22 ; 23 23 ; 3) by calling directly computegrid … … 31 31 ; computegrid, 0, 0, 1, 1, jpiglo, jpjglo, xminmesh = 1, xmaxmesh = -1 $ 32 32 ; , yminmesh = 0, ymaxmesh = -1, onearth = 0, stride = [2, 2, 1] $ 33 ; , iodirectory = [iodir, homedir, !path], /recursive33 ; , /lookalldir -
trunk/SRC/Tests/tst_initorca2_short.pro
r58 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 2 2 initncdf, 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 5 4 -
trunk/SRC/Tests/tst_initorca2_short_stride.pro
r58 r77 1 1 file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA2.nc' 2 2 initncdf, 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] 5 4 -
trunk/SRC/Tests/tst_initorca2_stride.pro
r58 r77 21 21 ;------------------------------------------------------ 22 22 key_stride = [2, 2, 1] 23 ncdf_meshread, 'micromeshmaskORCA2.nc' , glamboundary = [20, 380]$24 , iodirectory = [iodir, homedir, !path], /recursive23 ncdf_meshread, 'micromeshmaskORCA2.nc' $ 24 , glamboundary = [20, 380], /lookalldir 25 25 ;------------------------------------------------------------- 26 26 domdef -
trunk/SRC/Tests/tst_plt.pro
r58 r77 10 10 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 11 11 ENDCASE 12 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 13 , title = 'Where is '+file+' ?', /recursive) 12 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 14 13 IF size(file, /type) NE 7 THEN return 15 14 ; … … 19 18 domdef 20 19 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) 22 21 ; 23 22 plt, temp, /landscape … … 76 75 ; domdef, 150, 150 ; => warning message 77 76 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) 79 78 plt, temp, realcont = 2*(key_onearth), /land 80 79 if keyword_set(image) then saveimage, 'tst_plt_'+image+'_'+string(cnt, format='(i2.2)')+'.png', /png -
trunk/SRC/Tests/tst_pltt.pro
r58 r77 11 11 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 12 12 ENDCASE 13 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 14 , title = 'Where is '+file+' ?', /recursive) 13 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 15 14 IF size(file, /type) NE 7 THEN return 16 15 ; … … 23 22 ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, gdept[0] 24 23 ; 25 temp = read_ncdf('votemper', 10101, 11231, file = file)24 temp = read_ncdf('votemper', 00101, 01231, file = file) 26 25 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 27 26 help, jpt, time … … 57 56 , gdept[10 < (jpk-1)], gdept[10 < (jpk-1)], gridtype = 'T', /yindex 58 57 ENDELSE 59 temp = read_ncdf('votemper', 10101, 11231, file = file)58 temp = read_ncdf('votemper', 00101, 01231, file = file) 60 59 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 61 60 pltt, temp … … 74 73 ENDELSE 75 74 76 temp = read_ncdf('votemper', 10101, 11231, file = file)75 temp = read_ncdf('votemper', 00101, 01231, file = file) 77 76 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 78 77 pltt, temp -
trunk/SRC/Tests/tst_pltz.pro
r58 r77 13 13 720+510:file = 'Levitus98_1m_01_12_Temperature_Pot_ORCA05.nc' 14 14 ENDCASE 15 file = isafile(file, iodirectory = [iodir, homedir, !path] $ 16 , title = 'Where is '+file+' ?', /recursive) 15 file = isafile(file, title = 'Where is '+file+' ?', /lookalldir) 17 16 IF size(file, /type) NE 7 THEN return 18 17 ; … … 20 19 ELSE domdef, min(glamt), max(glamf), jpj/2-1, jpj/2+1, 0, max(gdept) 21 20 ; 22 temp = read_ncdf('votemper', 10101, 10131, file = file)21 temp = read_ncdf('votemper', 00101, 00131, file = file) 23 22 IF key_forgetold THEN help, temp.arr ELSE help, temp.tab 24 23 ; … … 73 72 ENDELSE 74 73 75 temp = read_ncdf('votemper', 10101, 11231, file = file)74 temp = read_ncdf('votemper', 00101, 01231, file = file) 76 75 pltz, temp, boxzoom = [6000], zoom = 1000, yxaspect = 2, zratio = .5 77 76 if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ … … 84 83 ELSE endpoints = [jpi/6, jpj/3, 5*jpi/6, 2*jpj/3] 85 84 domdef, endpoints = endpoints, type = 'pltz' 86 temp = read_ncdf('votemper', 10101, 10131, file = file)85 temp = read_ncdf('votemper', 00101, 00131, file = file) 87 86 pltz, temp, endpoints = endpoints 88 87 if keyword_set(image) then saveimage, 'tst_pltz_'+image+'_'+string(cnt, format = '(i2.2)')+'.png', /png $ … … 95 94 ELSE endpoints = [jpi/2+0.25, +0.25, jpi/2+0.25, jpj] 96 95 domdef, 6000, endpoints = endpoints, type = 'pltz' 97 temp = read_ncdf('votemper', 10101, 10131, file = file)96 temp = read_ncdf('votemper', 00101, 00131, file = file) 98 97 pltz, temp, endpoints = endpoints, boxzoom = [6000] $ 99 98 , zoom = 1000, yxaspect = 2, zratio = .5 ; , /showbuild … … 108 107 ELSE box = [0, jpi-1, jpj/2, jpj/2, 0, 6000] 109 108 domdef, box, gridtype = 'T' 110 temp = read_ncdf('votemper', 10101, 10131, file = file)109 temp = read_ncdf('votemper', 00101, 00131, file = file) 111 110 pltz, temp, boxzoom = [6000], /portrait, small = [1, 2, 1] $ 112 111 , zoom = 500, zratio = .5 … … 115 114 ELSE endpoints = [0, jpj/2, jpi-1, jpj/2] 116 115 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) 118 117 pltz, temp, endpoints = endpoints, boxzoom = [6000] $ 119 118 , zoom = 500, zratio = .5 $ -
trunk/SRC/Utilities/.idlwave_catalog
r76 r77 10 10 ("def_myuniquetmpdir" pro nil (lib "def_myuniquetmpdir.pro" nil "saxo") "%s" (nil)) 11 11 ("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"))) 13 13 ("isadirectory" fun nil (lib "isadirectory.pro" nil "saxo") "Result = %s(directoryin)" (nil ("_extra") ("IODIRECTORY") ("TITLE"))) 14 14 ("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 23 23 ; KEYWORD PARAMETERS: 24 24 ; 25 ; FIRSTFOUND: activate this keyword to stop looking for the file as 26 ; soon as we found one. 27 ; 25 28 ; IODIRECTORY: A scalar or array variable of string type, containing 26 29 ; directories names where we are looking for the file. by defaut … … 31 34 ; keyword is not taken into account. 32 35 ; 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 35 45 ; 36 46 ; RECURSIVE: performs recursive searching of directory hierarchies. … … 40 50 ; 41 51 ; REPERTOIRE: obsolete. keep for compatibility, use directory keyword 42 ;43 ; NOPRO: activate to avoid the automatic search of filename44 ; completed with '.pro'45 ;46 ; ONLYPRO:force to look only at file ending with .pro47 ;48 ; ONLYNC:force to look only at file ending with .nc49 52 ; 50 53 ; UNIQUE: activate to make sure that each element of the output … … 102 105 , REPERTOIRE = repertoire, NOPRO = nopro, ONLYPRO = onlypro $ 103 106 , ONLYNC = onlync, UNIQUE = unique, FIRSTFOUND = firstfound $ 104 , _extra = ex 105 ; 107 , LOOKALLDIR = LOOKALLDIR, _extra = ex 106 108 ; define where we look for the file 107 109 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 108 117 keyword_set(iodirectory): dirnames = iodirectory 109 118 keyword_set(repertoire): dirnames = repertoire
Note: See TracChangeset
for help on using the changeset viewer.