source: trunk/src/init_pom.pro @ 5

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

draft of output 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')
65pomme_od_env=GETENV('POMME_OD')
66;
67iodir = isadirectory(pomme_id_env)
68;
69;---------------------------------------------------------
70; bornes de la grille
71;----------------------------------------------------------
72;domaine total
73ixminmesh  =-1
74ixmaxmesh  =-1
75iyminmesh  =-1
76iymaxmesh  =-1
77izminmesh  =-1
78izmaxmesh  =-1
79;
80; sans la zone de recirculation
81;    ixminmesh  = 6
82;    ixmaxmesh = 126
83;    iyminmesh = 6
84;    iymaxmesh  = 146
85;    izminmesh = 0
86;  izmaxmesh = 67
87;
88;sans la zone de recirculation ni la zone de rappel
89nbord = 12
90ixminmesh  = nbord
91ixmaxmesh = 193-nbord
92iyminmesh = nbord
93iymaxmesh  = 262-nbord
94izminmesh = 0
95izmaxmesh = 67
96;
97jpt = 1
98time = 0
99key_stride = [1, 1, 1]
100;
101;------------------------------------------------------
102; lecture de la grille
103;------------------------------------------------------
104langage = 'perso'
105varexp = 'NEW'
106varnum = '12'
107varunit = ''
108ncdf_meshlec, 'meshmask.nc'
109;-------------------------------------------------------------
110domdef
111key_periodique = 0
112triangles = -1
113;----------------------------------------------------------
114; bornes pour la lecture des donnees
115;----------------------------------------------------------
116;
117ixmindta = 0
118ixmaxdta = jpidta-1
119iymindta = 0
120iymaxdta = jpjdta-1
121izmindta = 0
122izmaxdta = jpkdta-1
Note: See TracBrowser for help on using the repository browser.