|
Last change
on this file since 2 was
2,
checked in by opalod, 22 years ago
|
|
Initial revision
|
-
Property svn:eol-style set to
native
-
Property svn:executable set to
*
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
1.4 KB
|
| Line | |
|---|
| 1 | @common |
|---|
| 2 | ;--------------------------------------------------------- |
|---|
| 3 | ; bornes de la grille |
|---|
| 4 | ;---------------------------------------------------------- |
|---|
| 5 | jpi = 192l |
|---|
| 6 | ixminmesh =0l |
|---|
| 7 | ixmaxmesh =jpi-1l |
|---|
| 8 | ; |
|---|
| 9 | jpj = 94l |
|---|
| 10 | iyminmesh =0l |
|---|
| 11 | iymaxmesh =jpj-1l |
|---|
| 12 | ; |
|---|
| 13 | jpk = 1l |
|---|
| 14 | izminmesh =0l |
|---|
| 15 | izmaxmesh =jpk-1l |
|---|
| 16 | ; |
|---|
| 17 | jpt = 1l |
|---|
| 18 | time = 0l |
|---|
| 19 | ;------------------------------------------------------ |
|---|
| 20 | ; lecture de la grille |
|---|
| 21 | ;------------------------------------------------------ |
|---|
| 22 | iodir = '/usr1/antiope/smasson/DATA/' |
|---|
| 23 | key_shift = 0 |
|---|
| 24 | key_stride = [1, 1, 1] |
|---|
| 25 | ; |
|---|
| 26 | glamt = ncdf_lec('lsmask.19294.nc', iodir = iodir, var = 'lon') |
|---|
| 27 | glamt = glamt#replicate(1, jpj) |
|---|
| 28 | glamu = glamt |
|---|
| 29 | glamv = glamt |
|---|
| 30 | glamf = glamt+1.875/2. |
|---|
| 31 | gphit = ncdf_lec('lsmask.19294.nc', iodir = iodir, var = 'lat') |
|---|
| 32 | gphit = replicate(1, jpi)#gphit |
|---|
| 33 | gphiu = gphit |
|---|
| 34 | gphiv = gphit |
|---|
| 35 | gphif = gphit-1.90/2. |
|---|
| 36 | gdept = 5. |
|---|
| 37 | gdepw = 4. |
|---|
| 38 | ; |
|---|
| 39 | e1t = replicate(1, jpi, jpj) |
|---|
| 40 | e1u = e1t |
|---|
| 41 | e1v = e1t |
|---|
| 42 | e2t = replicate(1, jpi, jpj) |
|---|
| 43 | e2u = e2t |
|---|
| 44 | e2v = e2t |
|---|
| 45 | e2f = e2t |
|---|
| 46 | ; |
|---|
| 47 | e3t = 10. |
|---|
| 48 | e3w = 10. |
|---|
| 49 | ; |
|---|
| 50 | tmask = ncdf_lec('lsmask.19294.nc', iodir = iodir, var = 'lsmask') |
|---|
| 51 | tmask = 1+tmask |
|---|
| 52 | ;------------------------------------------------------------- |
|---|
| 53 | domdef |
|---|
| 54 | ; |
|---|
| 55 | key_periodique = 1 |
|---|
| 56 | triangles = triangule() |
|---|
| 57 | ;---------------------------------------------------------- |
|---|
| 58 | ; bornes pour la lecture des donnees |
|---|
| 59 | ;---------------------------------------------------------- |
|---|
| 60 | jpidta = jpiglo |
|---|
| 61 | jpjdta = jpjglo |
|---|
| 62 | jpkdta = jpkglo |
|---|
| 63 | ixmindta = 0 |
|---|
| 64 | ixmaxdta = jpidta-1 |
|---|
| 65 | iymindta = 0 |
|---|
| 66 | iymaxdta = jpjdta-1 |
|---|
| 67 | izmindta = 0 |
|---|
| 68 | izmaxdta = jpkdta-1 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
