|
Last change
on this file since 77 was
77,
checked in by smasson, 18 years ago
|
|
tests tst_* work again (brokken since DATA/SRC split)
|
-
Property svn:executable set to
*
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | ; |
|---|
| 2 | @common |
|---|
| 3 | @common |
|---|
| 4 | @common |
|---|
| 5 | ;---------------------------------------------------------- |
|---|
| 6 | ; boundaries of the read grid regarding to the original grid |
|---|
| 7 | ;---------------------------------------------------------- |
|---|
| 8 | ixminmesh =1 |
|---|
| 9 | ixmaxmesh =720 |
|---|
| 10 | ; |
|---|
| 11 | iyminmesh =0 |
|---|
| 12 | iymaxmesh =509 |
|---|
| 13 | ; |
|---|
| 14 | izminmesh =-1 |
|---|
| 15 | izmaxmesh =-1 |
|---|
| 16 | ; |
|---|
| 17 | jpt=1 |
|---|
| 18 | time = 0 |
|---|
| 19 | ;------------------------------------------------------ |
|---|
| 20 | ; read the grid |
|---|
| 21 | ;------------------------------------------------------ |
|---|
| 22 | key_stride = [2, 2, 1] |
|---|
| 23 | ncdf_meshread, 'micromeshmaskORCA05.nc' $ |
|---|
| 24 | , glamboundary = [20, 380], /lookalldir |
|---|
| 25 | ;------------------------------------------------------------- |
|---|
| 26 | domdef |
|---|
| 27 | ; |
|---|
| 28 | triangles = triangule(/keep_cont) |
|---|
| 29 | ;---------------------------------------------------------- |
|---|
| 30 | ; boundaries of the data regarding to the original grid |
|---|
| 31 | ;---------------------------------------------------------- |
|---|
| 32 | jpidta = jpiglo |
|---|
| 33 | jpjdta = jpjglo |
|---|
| 34 | jpkdta = jpkglo |
|---|
| 35 | ixmindta = 0 |
|---|
| 36 | ixmaxdta = jpidta-1 |
|---|
| 37 | iymindta = 0 |
|---|
| 38 | iymaxdta = jpjdta-1 |
|---|
| 39 | izmindta = 0 |
|---|
| 40 | izmaxdta = jpkdta-1 |
|---|
| 41 | ;---------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
