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/Tests/TestsOld
Files:
19 edited

Legend:

Unmodified
Added
Removed

  • 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 $ 
Note: See TracChangeset for help on using the changeset viewer.