| Line | |
|---|
| 1 | ;+ |
|---|
| 2 | ; @history |
|---|
| 3 | ; Sebastien Masson |
|---|
| 4 | ; |
|---|
| 5 | ; @version $Id$ |
|---|
| 6 | ;- |
|---|
| 7 | ; |
|---|
| 8 | @cm_4mesh |
|---|
| 9 | @cm_4cal |
|---|
| 10 | @cm_4data |
|---|
| 11 | ;---------------------------------------------------------- |
|---|
| 12 | ; boundaries of the read grid regarding to the original grid |
|---|
| 13 | ;---------------------------------------------------------- |
|---|
| 14 | ixminmesh =1 |
|---|
| 15 | ixmaxmesh =720 |
|---|
| 16 | ; |
|---|
| 17 | iyminmesh =0 |
|---|
| 18 | iymaxmesh =509 |
|---|
| 19 | ; |
|---|
| 20 | izminmesh =-1 |
|---|
| 21 | izmaxmesh =-1 |
|---|
| 22 | ; |
|---|
| 23 | jpt=1 |
|---|
| 24 | time = 0 |
|---|
| 25 | ;------------------------------------------------------ |
|---|
| 26 | ; read the grid |
|---|
| 27 | ;------------------------------------------------------ |
|---|
| 28 | key_stride = [2, 2, 1] |
|---|
| 29 | ncdf_meshread, 'micromeshmaskORCA05.nc' $ |
|---|
| 30 | , glamboundary = [20, 380], /lookalldir |
|---|
| 31 | ;------------------------------------------------------------- |
|---|
| 32 | domdef |
|---|
| 33 | ; |
|---|
| 34 | triangles_list = triangule(/keep_cont) |
|---|
| 35 | ;---------------------------------------------------------- |
|---|
| 36 | ; boundaries of the data regarding to the original grid |
|---|
| 37 | ;---------------------------------------------------------- |
|---|
| 38 | jpidta = jpiglo |
|---|
| 39 | jpjdta = jpjglo |
|---|
| 40 | jpkdta = jpkglo |
|---|
| 41 | ixmindta = 0 |
|---|
| 42 | ixmaxdta = jpidta-1 |
|---|
| 43 | iymindta = 0 |
|---|
| 44 | iymaxdta = jpjdta-1 |
|---|
| 45 | izmindta = 0 |
|---|
| 46 | izmaxdta = jpkdta-1 |
|---|
| 47 | ;---------------------------------------------------------- |
|---|
| 48 | @updateold |
|---|
Note: See
TracBrowser
for help on using the repository browser.
