source: trunk/src/init_pom.pro @ 3

Last change on this file since 3 was 3, checked in by pinsard, 14 years ago

ok for reading models files
  • Property svn:keywords set to Id
File size: 2.0 KB
Line 
1;+
2;
3; .. _init_pom.pro:
4;
5; ============
6; init_pom.pro
7; ============
8;
9; Define :
10; - ++
11; - ++
12; - ++
13;
14; Read :file:`${POMME_ID}/meshmak.nc`.
15;
16; :examples:
17;
18; ::
19;
20;   IDL> @init_pom
21;
22; :see also:
23;
24; SAXO
25;
26; :ref:`init.pro`
27;
28; :program:`pomme_profile.sh`
29;
30; :uses:
31;
32; :ref:`common.pro`
33; :func:`report`
34; :func:`isadirectory`
35;
36; :todo:
37;
38; header
39;
40; SAXO sans compatibility (common)
41;
42; add test if ${VARAMMA_ID} defined
43;
44; :history:
45;
46; - fplod 20101129T124507Z aedon.locean-ipsl.upmc.fr (Darwin)
47;
48;   * use ${POMME_ID} to define iodir
49;
50; - fplod 20101129T110610Z aedon.locean-ipsl.upmc.fr (Darwin)
51;
52;   * add ReST minimal header
53;
54; - marina ?
55;
56;   * creation
57;
58;-
59;
60@common
61;
62; check environnement
63;
64pomme_id_env=GETENV('POMME_ID')
65;
66iodir = isadirectory(pomme_id_env)
67;
68;---------------------------------------------------------
69; bornes de la grille
70;----------------------------------------------------------
71;domaine total
72ixminmesh  =-1
73ixmaxmesh  =-1
74iyminmesh  =-1
75iymaxmesh  =-1
76izminmesh  =-1
77izmaxmesh  =-1
78;
79; sans la zone de recirculation
80;    ixminmesh  = 6
81;    ixmaxmesh = 126
82;    iyminmesh = 6
83;    iymaxmesh  = 146
84;    izminmesh = 0
85;  izmaxmesh = 67
86;
87;sans la zone de recirculation ni la zone de rappel
88nbord = 12
89ixminmesh  = nbord
90ixmaxmesh = 193-nbord
91iyminmesh = nbord
92iymaxmesh  = 262-nbord
93izminmesh = 0
94izmaxmesh = 67
95;
96jpt = 1
97time = 0
98key_stride = [1, 1, 1]
99;
100;------------------------------------------------------
101; lecture de la grille
102;------------------------------------------------------
103langage = 'perso'
104varexp = 'NEW'
105varnum = '12'
106varunit = ''
107ncdf_meshlec, 'meshmask.nc'
108;-------------------------------------------------------------
109domdef
110key_periodique = 0
111triangles = -1
112;----------------------------------------------------------
113; bornes pour la lecture des donnees
114;----------------------------------------------------------
115;
116ixmindta = 0
117ixmaxdta = jpidta-1
118iymindta = 0
119iymaxdta = jpjdta-1
120izmindta = 0
121izmaxdta = jpkdta-1
Note: See TracBrowser for help on using the repository browser.