Context Navigation

source: LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_bilKP_ave.h @ 1259

Last change on this file since 1259 was 766, checked in by Laurent Fairhead, 17 years ago
Merge entre la version V3_conv et le HEAD YM, JG, LF
Property svn:eol-style set to `native` Property svn:executable set to ``* Property svn:keywords set to `Author Date Id Revision`
File size: 8.9 KB

Line
1	c
2	c $Header$
3	c
4	IF (ok_journe) THEN
5	c
6	zsto = dtime
7	zout = ecrit_day
8	typeval=tave
9	c
10	idayref = day_ref
11	CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
12	c
13	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
14	cym DO i = 1, iim
15	cym zx_lon(i,1) = rlon(i+1)
16	cym zx_lon(i,jjmp1) = rlon(i+1)
17	cym ENDDO
18	DO ll=1,klev
19	znivsig(ll)=float(ll)
20	ENDDO
21	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
22	cym write(,)'zx_lon = ',zx_lon(:,1)
23	cym write(,)'zx_lat = ',zx_lat(1,:)
24	cym CALL histbeg("histbilKP_ave", iim,zx_lon(:,1), jjmp1,
25	cym . zx_lat(1,:),
26	cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
27	cym . nhori, nid_bilKPave)
28	CALL histbeg_phy("histbilKP_ave", itau_phy, zjulian, dtime,
29	. nhori, nid_bilKPave)
30
31	write(,)'Journee ', itau_phy, zjulian
32	CALL histvert(nid_bilKPave, "presnivs",
33	. "Vertical levels","mb",
34	. klev, presnivs/100., nvert)
35	c
36	c
37	c Champs 3D:
38	c
39	CALL histdef(nid_bilKPave,"ue",
40	. "Zonal energy transport","-",
41	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
42	. typeval, zsto,zout)
43	c
44	CALL histdef(nid_bilKPave,"ve",
45	. "Merid energy transport","-",
46	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
47	. typeval, zsto,zout)
48	c
49	CALL histdef(nid_bilKPave,"uq",
50	. "Zonal humidity transport","-",
51	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
52	. typeval, zsto,zout)
53	c
54	CALL histdef(nid_bilKPave,"vq",
55	. "Merid humidity transport","-",
56	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
57	. typeval, zsto,zout)
58	c
59	c Champs 3D:
60	c
61	CALL histdef(nid_bilKPave,"temp",
62	. "Air temperature","K",
63	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
64	. typeval, zsto,zout)
65	c
66	CALL histdef(nid_bilKPave,"ovap",
67	. "Specific humidity","Kg/Kg",
68	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
69	. typeval, zsto,zout)
70	c
71	CALL histdef(nid_bilKPave,"geop",
72	. "Geopotential height","m",
73	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
74	. typeval, zsto,zout)
75	c
76	CALL histdef(nid_bilKPave,"vitu",
77	. "Zonal wind","m/s",
78	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
79	. typeval, zsto,zout)
80	c
81	CALL histdef(nid_bilKPave,"vitv",
82	. "Meridional wind","m/s",
83	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
84	. typeval, zsto,zout)
85	c
86	CALL histdef(nid_bilKPave, "vitw",
87	. "Vertical wind", "m/s",
88	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
89	. typeval, zsto,zout)
90	c
91	CALL histdef(nid_bilKPave, "pres",
92	. "Inter-Layer Air pressure",
93	. "Pa",
94	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
95	. typeval, zsto,zout)
96	c
97	CALL histdef(nid_bilKPave, "play",
98	. "Mean-Layer Air pressure",
99	. "Pa",
100	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
101	. typeval, zsto,zout)
102	c
103	CALL histdef(nid_bilKPave, "oliq",
104	. "Liquid water content",
105	. "kg/kg",
106	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
107	. typeval, zsto,zout)
108	c
109	CALL histdef(nid_bilKPave, "dtdyn",
110	. "Dynamics dT", "K/s",
111	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
112	. typeval, zsto,zout)
113	c
114	CALL histdef(nid_bilKPave, "dqdyn",
115	. "Dynamics dQ", "Kg/Kg/s",
116	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
117	. typeval, zsto,zout)
118	c
119	CALL histdef(nid_bilKPave, "dtcon",
120	. "Convection dT", "K/s",
121	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
122	. typeval, zsto,zout)
123	c
124	CALL histdef(nid_bilKPave, "ducon",
125	. "Convection du", "m/s2",
126	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
127	. typeval, zsto,zout)
128	c
129	CALL histdef(nid_bilKPave, "dvcon",
130	. "Convection dv", "m/s2",
131	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
132	. typeval, zsto,zout)
133	c
134	CALL histdef(nid_bilKPave,"dqcon",
135	. "Convection dQ","Kg/Kg/s",
136	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
137	. typeval, zsto,zout)
138	c
139	CALL histdef(nid_bilKPave, "dtlsc",
140	. "Condensation dT", "K/s",
141	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
142	. typeval, zsto,zout)
143	c
144	CALL histdef(nid_bilKPave,"dqlsc",
145	. "Condensation dQ","Kg/Kg/s",
146	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
147	. typeval, zsto,zout)
148	c
149	CALL histdef(nid_bilKPave,"dtvdf",
150	. "Boundary-layer dT","K/s",
151	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
152	. typeval, zsto,zout)
153	c
154	CALL histdef(nid_bilKPave, "dqvdf",
155	. "Boundary-layer dQ",
156	. "Kg/Kg/s",
157	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
158	. typeval, zsto,zout)
159	c
160	CALL histdef(nid_bilKPave,"dtajs",
161	. "Ajustement sec dT","K/s",
162	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
163	. typeval, zsto,zout)
164	c
165	CALL histdef(nid_bilKPave, "dqajs",
166	. "Ajustement sec dQ",
167	. "Kg/Kg/s",
168	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
169	. typeval, zsto,zout)
170	c
171	CALL histdef(nid_bilKPave, "dteva",
172	. "Reevaporation dT", "K/s",
173	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
174	. typeval, zsto,zout)
175	c
176	CALL histdef(nid_bilKPave,"dqeva",
177	. "Reevaporation dQ",
178	. "Kg/Kg/s",
179	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
180	. typeval, zsto,zout)
181
182	c
183	CALL histdef(nid_bilKPave, "dtswr",
184	. "SW radiation dT", "K/s",
185	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
186	. typeval, zsto,zout)
187	c
188	CALL histdef(nid_bilKPave, "dtsw0",
189	. "SW radiation dT", "K/s",
190	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
191	. typeval, zsto,zout)
192	c
193	CALL histdef(nid_bilKPave, "dtlwr",
194	. "LW radiation dT", "K/s",
195	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
196	. typeval, zsto,zout)
197	c
198	CALL histdef(nid_bilKPave, "dtlw0",
199	. "LW radiation dT", "K/s",
200	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
201	. typeval, zsto,zout)
202	c
203	CALL histdef(nid_bilKPave,"duvdf",
204	. "Boundary-layer dU","m/s2",
205	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
206	. typeval, zsto,zout)
207	c
208	CALL histdef(nid_bilKPave,"dvvdf",
209	. "Boundary-layer dV","m/s2",
210	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
211	. typeval, zsto,zout)
212	c
213	IF (ok_orodr) THEN
214	IF (ok_orolf) THEN
215	CALL histdef(nid_bilKPave, "duoli",
216	. "Orography dU", "m/s2",
217	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
218	. typeval, zsto,zout)
219	c
220	CALL histdef(nid_bilKPave, "dvoli",
221	. "Orography dV", "m/s2",
222	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
223	. typeval, zsto,zout)
224	c
225	ENDIF
226	ENDIF
227	C
228	CALL histdef(nid_bilKPave, "duphy",
229	. "Physiq dU","-",
230	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
231	. typeval, zsto,zout)
232	C
233	CALL histdef(nid_bilKPave, "dvphy",
234	. "Physiq dV","-",
235	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
236	. typeval, zsto,zout)
237	C
238	CALL histdef(nid_bilKPave, "dtphy",
239	. "Physiq dT","-",
240	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
241	. typeval, zsto,zout)
242	C
243	CALL histdef(nid_bilKPave, "dqphy",
244	. "Physiq dQ","-",
245	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
246	. typeval, zsto,zout)
247	C
248	CALL histdef(nid_bilKPave, "dqlphy",
249	. "Physiq dQl","-",
250	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
251	. typeval, zsto,zout)
252	C
253	C
254	CALL histend(nid_bilKPave)
255	c
256	ndex2d = 0
257	ndex3d = 0
258	c
259	ENDIF ! fin de test sur ok_journe

Note: See TracBrowser for help on using the repository browser.

Download in other formats: