Context Navigation

source: LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_histday.h @ 892

Last change on this file since 892 was 892, checked in by Laurent Fairhead, 16 years ago
Mise sous flag ok_ISCCP d'une sortie d'une variable dependant du simulateur ISCCP Correction coquille sur des sorties sous-surfaces SD/LF
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 24.8 KB

Line
1	c
2	c $Header$
3	c
4	IF (ok_journe) THEN
5
6	c$OMP MASTER
7	c
8	zstophy = dtime
9	zstoday= ecrit_day
10	zout = ecrit_day
11	c
12	idayref = day_ref
13	CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
14	c
15	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
16	cym DO i = 1, iim
17	cym zx_lon(i,1) = rlon(i+1)
18	cym zx_lon(i,jjmp1) = rlon(i+1)
19	cym ENDDO
20	DO ll=1,klev
21	znivsig(ll)=float(ll)
22	ENDDO
23	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
24	cym CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
25	cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
26	cym . nhori, nid_day)
27
28	CALL histbeg_phy("histday",itau_phy, zjulian, dtime,
29	. nhori, nid_day)
30
31	write(,)'Journee ', itau_phy, zjulian
32	CALL histvert(nid_day, "presnivs", "Vertical levels", "mb",
33	. klev, presnivs/100., nvert)
34	c
35	IF(lev_histday.GE.1) THEN
36	c
37	CALL histdef(nid_day, "phis", "Surface geop. height", "m2/s2",
38	. iim,jj_nb,nhori, 1,1,1, -99, 32,
39	. "once", zstophy,zout)
40	c
41	CALL histdef(nid_day, "aire", "Grid area", "-",
42	. iim,jj_nb,nhori, 1,1,1, -99, 32,
43	. "once", zstophy,zout)
44	c
45	CALL histdef(nid_day, "contfracATM","% sfce ter+lic ","-",
46	. iim,jj_nb,nhori, 1,1,1, -99, 32,
47	. "once", zstophy,zout)
48	c
49	CALL histdef(nid_day, "contfracOR","% sfce terre OR", "-",
50	. iim,jj_nb,nhori, 1,1,1, -99, 32,
51	. "once", zstophy,zout)
52	c
53	c Champs 2D:
54	c
55	CALL histdef(nid_day, "tsol", "Surface Temperature", "K",
56	. iim,jj_nb,nhori, 1,1,1, -99, 32,
57	. "ave(X)", zstophy,zout)
58	c
59	CALL histdef(nid_day, "t2m", "Temperature 2m", "K",
60	. iim,jj_nb,nhori, 1,1,1, -99, 32,
61	. "ave(X)", zstophy,zout)
62	c
63	c Champs retires momentannement en attendant un hypothetique
64	c debugage
65
66	CALL histdef(nid_day, "t2m_min", "Temp. 2m min.",
67	. "K",
68	. iim,jj_nb,nhori, 1,1,1, -99, 32,
69	. t2mincels, zstophy,zout)
70	c
71	CALL histdef(nid_day, "t2m_max", "Temp. 2m max.",
72	. "K",
73	. iim,jj_nb,nhori, 1,1,1, -99, 32,
74	. t2maxcels, zstophy,zout)
75	c
76	CALL histdef(nid_day, "plul", "Large-scale Precip.",
77	. "kg/(s*m2)",
78	. iim,jj_nb,nhori, 1,1,1, -99, 32,
79	. "ave(X)", zstophy,zout)
80	c
81	CALL histdef(nid_day, "pluc", "Convective Precip.",
82	. "kg/(s*m2)",
83	. iim,jj_nb,nhori, 1,1,1, -99, 32,
84	. "ave(X)", zstophy,zout)
85	c
86	CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.",
87	. "kg/(m2*s)",
88	. iim,jj_nb,nhori, 1,1,1, -99, 32,
89	. "ave(X)", zstophy,zout)
90	c
91	IF(1.EQ.0) THEN !snowc=0.
92	CALL histdef(nid_day, "snowc", "Solid Convective Precip.",
93	. "kg/(m2*s)",
94	. iim,jj_nb,nhori, 1,1,1, -99, 32,
95	. "ave(X)", zstophy,zout)
96	ENDIF !snowc=0.
97	c
98	CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2",
99	. iim,jj_nb,nhori, 1,1,1, -99, 32,
100	. "ave(X)", zstophy,zout)
101	c
102	CALL histdef(nid_day, "sicf", "Sea-ice fraction", "-",
103	. iim,jj_nb,nhori, 1,1,1, -99, 32,
104	. "inst(X)", zstoday,zout)
105	c
106	CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg",
107	. iim,jj_nb,nhori, 1,1,1, -99, 32,
108	. "ave(X)", zstophy,zout)
109	c
110	CALL histdef(nid_day, "u10m", "Vent zonal 10m", "m/s",
111	. iim,jj_nb,nhori, 1,1,1, -99, 32,
112	. "ave(X)", zstophy,zout)
113	c
114	CALL histdef(nid_day, "v10m", "Vent meridien 10m", "m/s",
115	. iim,jj_nb,nhori, 1,1,1, -99, 32,
116	. "ave(X)", zstophy,zout)
117	c
118	CALL histdef(nid_day, "wind10m","10-m wind speed","m/s",
119	. iim,jj_nb,nhori, 1,1,1, -99, 32,
120	. "ave(X)", zstophy,zout)
121	c
122	CALL histdef(nid_day, "wind10max", "10-m wind speed max.",
123	. "m/s",
124	. iim,jj_nb,nhori, 1,1,1, -99, 32,
125	. t2maxcels, zstophy,zout)
126	c
127	CALL histdef(nid_day, "psol", "Surface Pressure", "Pa",
128	. iim,jj_nb,nhori, 1,1,1, -99, 32,
129	. "ave(X)", zstophy,zout)
130	c
131	CALL histdef(nid_day, "precip","Precipitation Totale liq+sol"
132	. , "kg/(s*m2)",
133	. iim,jj_nb,nhori, 1,1,1, -99, 32,
134	. "ave(X)", zstophy,zout)
135	c
136	CALL histdef(nid_day, "snowf", "Snow fall", "kg/(m2*s)",
137	. iim,jj_nb,nhori, 1,1,1, -99, 32,
138	. "ave(X)", zstophy,zout)
139	c
140	c CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2",
141	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
142	c . "ave(X)", zstophy,zout)
143	c
144	CALL histdef(nid_day, "evap", "Evaporation", "kg/(m2*s)",
145	. iim,jj_nb,nhori, 1,1,1, -99, 32,
146	. "ave(X)", zstophy,zout)
147	c
148	CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2",
149	. iim,jj_nb,nhori, 1,1,1, -99, 32,
150	. "ave(X)", zstophy,zout)
151	c
152	CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/m2",
153	. iim,jj_nb,nhori, 1,1,1, -99, 32,
154	. "ave(X)", zstophy,zout)
155	c
156	CALL histdef(nid_day, "sols", "Net Solar rad. at surf.",
157	. "W/m2",
158	. iim,jj_nb,nhori, 1,1,1, -99, 32,
159	. "ave(X)", zstophy,zout)
160	c
161	CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2",
162	. iim,jj_nb,nhori, 1,1,1, -99, 32,
163	. "ave(X)", zstophy,zout)
164	c
165	CALL histdef(nid_day, "radsol", "Rayonnement au sol", "W/m2",
166	. iim,jj_nb,nhori, 1,1,1, -99, 32,
167	. "ave(X)", zstophy,zout)
168	c
169	CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-",
170	. iim,jj_nb,nhori, 1,1,1, -99, 32,
171	. "ave(X)", zstophy,zout)
172	c
173	CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-",
174	. iim,jj_nb,nhori, 1,1,1, -99, 32,
175	. "ave(X)", zstophy,zout)
176	c
177	CALL histdef(nid_day, "cldh", "High-level cloudiness", "-",
178	. iim,jj_nb,nhori, 1,1,1, -99, 32,
179	. "ave(X)", zstophy,zout)
180	c
181	CALL histdef(nid_day, "cldt", "Total cloudiness", "-",
182	. iim,jj_nb,nhori, 1,1,1, -99, 32,
183	. "ave(X)", zstophy,zout)
184	c
185	CALL histdef(nid_day, "cldq", "Cloud liquid water path",
186	. "kg/m2",
187	. iim,jj_nb,nhori, 1,1,1, -99, 32,
188	. "ave(X)", zstophy,zout)
189	c
190	CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2",
191	. iim,jj_nb,nhori, 1,1,1, -99, 32,
192	. "ave(X)", zstophy,zout)
193	c
194	c Champs dynamiques sur niveaux de pression
195	c
196	c DO k=1, nlevENS
197	DO k=1, nlevSTD
198	c
199	c bb=clevSTD(k)
200	c
201	IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
202	IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
203	c aa=clevSTD(k)
204	c bb2=clevSTD(k)
205	c ENDIF
206	c
207	IF(bb2.EQ."850".OR.bb2.EQ."700"
208	. .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN
209	c
210	CALL histdef(nid_day, "u"//bb2,
211	. "Zonal wind "//bb2//"mb","m/s",
212	. iim,jj_nb,nhori, 1,1,1, -99, 32,
213	. "inst(X)", zout,zout)
214	c
215	CALL histdef(nid_day, "v"//bb2,
216	. "Meridional wind "//bb2//"mb","m/s",
217	. iim,jj_nb,nhori, 1,1,1, -99, 32,
218	. "inst(X)", zout,zout)
219	c
220	ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.bb2.EQ."500".OR.bb2.EQ."200") THEN
221	c
222	IF(bb2.EQ."500") THEN
223	c
224	CALL histdef(nid_day, "w"//bb2, "Vertical wind "//bb2//"mb",
225	. "m/s",
226	. iim,jj_nb,nhori, 1,1,1, -99, 32,
227	. "inst(X)", zout,zout)
228	c
229	CALL histdef(nid_day,"phi"//bb2, "Geopotential "//bb2//"mb",
230	. "m",
231	. iim,jj_nb,nhori, 1,1,1, -99, 32,
232	. "inst(X)", zout,zout)
233	c
234	ENDIF !(bb2.EQ."500")
235	c
236	ENDDO !nlevSTD
237	c
238	CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa",
239	. iim,jj_nb,nhori, 1,1,1, -99, 32,
240	. "ave(X)", zstophy,zout)
241	c
242	CALL histdef(nid_day, "cape_max", "CAPE max.",
243	. "J/kg",
244	. iim,jj_nb,nhori, 1,1,1, -99, 32,
245	. capemaxcels, zstophy,zout)
246	c
247	CALL histdef(nid_day, "solldown", "Down. IR rad. at surface",
248	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
249	. "ave(X)", zstophy,zout)
250	c
251	CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2",
252	. iim,jj_nb,nhori, 1,1,1, -99, 32,
253	. "ave(X)", zstophy,zout)
254	c
255	CALL histdef(nid_day, "SWdnSFC", "SWdn at surface","W/m2",
256	. iim,jj_nb,nhori, 1,1,1,-99,
257	. 32, "ave(X)", zstophy,zout)
258	c
259	cIM diagnostiques flux ocean-atm ou ocean-glace de mer
260	cIM pour utilisation dans un modele de "slab" ocean
261	c
262	IF (OCEAN.EQ.'force ') THEN
263	c
264	CALL histdef(nid_day, "lmt_bils",
265	. "Bilan au sol atmosphere forcee", "W/m2",
266	. iim,jj_nb,nhori, 1,1,1, -99, 32,
267	. "ave(X)", zstophy,zout)
268	c
269	ELSE IF (OCEAN.EQ.'slab ') THEN
270	c
271	CALL histdef(nid_day, "slab_bils",
272	. "Bilan au sol slab", "W/m2",
273	. iim,jj_nb,nhori, 1,1,1, -99, 32,
274	. "ave(X)", zstophy,zout)
275	c
276	CALL histdef(nid_day, "tslab", "Slab SST ", "K",
277	. iim,jj_nb,nhori, 1,1,1, -99, 32,
278	. "ave(X)", zstophy,zout)
279	c
280	CALL histdef(nid_day, "seaice", "Slab seaice", "kg/m2",
281	. iim,jj_nb,nhori, 1,1,1, -99, 32,
282	. "ave(X)", zstophy,zout)
283	c
284	CALL histdef(nid_day, "siceh", "Slab seaice height", "m",
285	. iim,jj_nb,nhori, 1,1,1, -99, 32,
286	. "ave(X)", zstophy,zout)
287	c
288	ENDIF !OCEAN.EQ.force/slab
289	c
290	CALL histdef(nid_day, "fluxo",
291	. "Flux turbulents ocean-atmosphere", "W/m2",
292	. iim,jj_nb,nhori, 1,1,1, -99, 32,
293	. "ave(X)", zstophy,zout)
294	c
295	CALL histdef(nid_day, "fluxg",
296	. "Flux ocean-glace de mer", "W/m2",
297	. iim,jj_nb,nhori, 1,1,1, -99, 32,
298	. "ave(X)", zstophy,zout)
299	c
300	ENDIF !lev_histday.GE.1
301	c
302	IF (lev_histday.GE.2) THEN
303	c
304	CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2",
305	. iim,jj_nb,nhori, 1,1,1, -99, 32,
306	. "ave(X)", zstophy,zout)
307	c
308	CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K",
309	. iim,jj_nb,nhori, 1,1,1, -99, 32,
310	. "ave(X)", zstophy,zout)
311	c
312	ENDIF !lev_histday.GE.2
313	c=================================================================
314	IF(lev_histday.GE.3) THEN
315	c=================================================================
316	c INITIALISATION DES CHAMPS 3D
317	c=================================================================
318	c=================================================================
319	c=================================================================
320	c Champs 3D:
321	c
322	CALL histdef(nid_day, "temp", "Air temperature", "K",
323	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
324	. "ave(X)", zstophy,zout)
325	c
326	CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg",
327	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
328	. "ave(X)", zstophy,zout)
329	c
330	CALL histdef(nid_day, "geop", "Geopotential height", "m2/s2",
331	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
332	. "ave(X)", zstophy,zout)
333	c
334	CALL histdef(nid_day, "vitu", "Zonal wind", "m/s",
335	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
336	. "ave(X)", zstophy,zout)
337	c
338	CALL histdef(nid_day, "vitv", "Meridional wind", "m/s",
339	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
340	. "ave(X)", zstophy,zout)
341	c
342	CALL histdef(nid_day, "vitw", "Vertical wind", "Pa/s",
343	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
344	. "ave(X)", zstophy,zout)
345	c
346	CALL histdef(nid_day, "pres", "Air pressure", "Pa",
347	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
348	. "ave(X)", zstophy,zout)
349	c
350	c=================================================================
351	c FIN INITIALISATION DES CHAMPS 3D
352	c=================================================================
353	ENDIF ! lev_histday.GE.3
354	c
355	IF (lev_histday.GE.4) THEN
356	c=================================================================
357	c
358	c INITIALISATION DES CHAMPS SUR LES SOUS SURFACES
359	c
360	c=================================================================
361	c
362	CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2",
363	. iim,jj_nb,nhori, 1,1,1,-99,
364	. 32, "ave(X)", zstophy,zout)
365	c
366	CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2",
367	. iim,jj_nb,nhori, 1,1,1,-99,
368	. 32, "ave(X)", zstophy,zout)
369	c
370	CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2",
371	. iim,jj_nb,nhori, 1,1,1,-99,
372	. 32, "ave(X)", zstophy,zout)
373	c
374	CALL histdef(nid_day, "SWupTOAclr",
375	. "SWup clear sky at TOA","W/m2",
376	. iim,jj_nb,nhori, 1,1,1,-99,
377	. 32, "ave(X)", zstophy,zout)
378
379	CALL histdef(nid_day, "SWupSFCclr",
380	. "SWup clear sky at surface","W/m2",
381	. iim,jj_nb,nhori, 1,1,1,-99,
382	. 32, "ave(X)", zstophy,zout)
383
384	CALL histdef(nid_day, "SWdnTOAclr",
385	. "SWdn clear sky at TOA","W/m2",
386	. iim,jj_nb,nhori, 1,1,1,-99,
387	. 32, "ave(X)", zstophy,zout)
388
389	CALL histdef(nid_day, "SWdnSFCclr",
390	. "SWdn clear sky at surface","W/m2",
391	. iim,jj_nb,nhori, 1,1,1,-99,
392	. 32, "ave(X)", zstophy,zout)
393	c
394	cIM AMMA-MIP
395	CALL histdef(nid_day, "LWdnSFC",
396	. "LW down at surface","W/m2",
397	. iim,jj_nb,nhori, 1,1,1,-99,
398	. 32, "ave(X)", zstophy,zout)
399	c
400	CALL histdef(nid_day, "LWupSFC",
401	. "LW down at surface","W/m2",
402	. iim,jj_nb,nhori, 1,1,1,-99,
403	. 32, "ave(X)", zstophy,zout)
404	c
405	cIM IF (iflag_con.GE.3) THEN
406	IF (ok_isccp) THEN
407	CALL histdef(nid_day, "ptop",
408	c . "Cld top pressure","mb",
409	. "Cld top pressure (cf ISCCP simulator)","Pa",
410	. iim,jj_nb,nhori, 1,1,1,-99,
411	. 32, "ave(X)", zstophy,zout)
412	ENDIF
413	cIM ENDIF !(iflag_con.GE.3) THEN
414	c
415	c=================================================================
416	c=================================================================
417	c=================================================================
418	c INITIALISATION DES CHAMPS SUR LES SOUS SURFACES
419	c=================================================================
420	c
421	CALL histdef(nid_day, "tter", "Surface Temperature ter", "K",
422	. iim,jj_nb,nhori, 1,1,1, -99, 32,
423	. "ave(X)", zstophy,zout)
424	c
425	CALL histdef(nid_day, "tlic", "Surface Temperature lic", "K",
426	. iim,jj_nb,nhori, 1,1,1, -99, 32,
427	. "ave(X)", zstophy,zout)
428	c
429	CALL histdef(nid_day, "toce", "Surface Temperature oce", "K",
430	. iim,jj_nb,nhori, 1,1,1, -99, 32,
431	. "ave(X)", zstophy,zout)
432	c
433	CALL histdef(nid_day, "tsic", "Surface Temperature sic", "K",
434	. iim,jj_nb,nhori, 1,1,1, -99, 32,
435	. "ave(X)", zstophy,zout)
436	c
437	CALL histdef(nid_day, "t2mter", "Temp.tere 2m", "K",
438	. iim,jj_nb,nhori, 1,1,1, -99, 32,
439	. "ave(X)", zstophy,zout)
440	c
441	CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K",
442	. iim,jj_nb,nhori, 1,1,1, -99, 32,
443	. "ave(X)", zstophy,zout)
444	c
445	CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K",
446	. iim,jj_nb,nhori, 1,1,1, -99, 32,
447	. "ave(X)", zstophy,zout)
448	c
449	CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K",
450	. iim,jj_nb,nhori, 1,1,1, -99, 32,
451	. "ave(X)", zstophy,zout)
452	c
453	CALL histdef(nid_day, "t2mter_min", "Temp.terre 2m min.",
454	. "K",
455	. iim,jj_nb,nhori, 1,1,1, -99, 32,
456	. t2mincels, zstophy,zout)
457	c
458	CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.",
459	. "K",
460	. iim,jj_nb,nhori, 1,1,1, -99, 32,
461	. t2maxcels, zstophy,zout)
462	c
463	CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s",
464	. iim,jj_nb,nhori, 1,1,1, -99, 32,
465	. "ave(X)", zstophy,zout)
466	c
467	CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s",
468	. iim,jj_nb,nhori, 1,1,1, -99, 32,
469	. "ave(X)", zstophy,zout)
470	c
471	CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s",
472	. iim,jj_nb,nhori, 1,1,1, -99, 32,
473	. "ave(X)", zstophy,zout)
474	c
475	CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m",
476	. "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
477	. "ave(X)", zstophy,zout)
478	c
479	CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m",
480	. "m/s", iim,jj_nb,nhori, 1,1,1, -99, 32,
481	. "ave(X)", zstophy,zout)
482	c
483	CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m",
484	. "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
485	. "ave(X)", zstophy,zout)
486	c
487	CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m",
488	. "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
489	. "ave(X)", zstophy,zout)
490	c
491	CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m",
492	. "m/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
493	. "ave(X)", zstophy,zout)
494	c
495	DO nsrf = 1, nbsrf
496	C
497	call histdef(nid_day, "pourc_"//clnsurf(nsrf),
498	$ "% "//clnsurf(nsrf), "%",
499	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
500	$ "ave(X)", zstophy,zout)
501	C
502	call histdef(nid_day, "fract_"//clnsurf(nsrf),
503	$ "Fraction "//clnsurf(nsrf), "1",
504	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
505	$ "ave(X)", zstophy,zout)
506	C
507	call histdef(nid_day, "tsol_"//clnsurf(nsrf),
508	$ "Temperature "//clnsurf(nsrf), "K",
509	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
510	$ "ave(X)", zstophy,zout)
511	C
512	call histdef(nid_day, "sens_"//clnsurf(nsrf),
513	$ "Sensible heat flux "//clnsurf(nsrf), "W/m2",
514	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
515	$ "ave(X)", zstophy,zout)
516	c
517	call histdef(nid_day, "lat_"//clnsurf(nsrf),
518	$ "Latent heat flux "//clnsurf(nsrf), "W/m2",
519	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
520	$ "ave(X)", zstophy,zout)
521	C
522	call histdef(nid_day, "taux_"//clnsurf(nsrf),
523	$ "Zonal wind stress "//clnsurf(nsrf),"Pa",
524	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
525	$ "ave(X)", zstophy,zout)
526
527	call histdef(nid_day, "tauy_"//clnsurf(nsrf),
528	$ "Meridional wind stress "//clnsurf(nsrf), "Pa",
529	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
530	$ "ave(X)", zstophy,zout)
531	C
532	call histdef(nid_day, "albe_"//clnsurf(nsrf),
533	$ "Albedo surf. "//clnsurf(nsrf), "-",
534	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
535	$ "ave(X)", zstophy,zout)
536	C
537	call histdef(nid_day, "rugs_"//clnsurf(nsrf),
538	$ "Rugosite "//clnsurf(nsrf), "m",
539	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
540	$ "ave(X)", zstophy,zout)
541	C
542	END DO
543	C
544	c=================================================================
545	c
546	c FIN INITIALISATION DES CHAMPS SUR LES SOUS SURFACES
547	c
548	c=================================================================
549	ENDIF !lev_histday.GE.4
550	c
551	IF(lev_histday.GE.5) THEN !lev_histday.GE.5
552	c
553	c rajout sorties F. Aires
554	CALL histdef(nid_day, "tops0", "CS Solar rad. at TOA",
555	. "W/m2",
556	. iim,jj_nb,nhori, 1,1,1, -99, 32,
557	. "ave(X)", zstophy,zout)
558	c
559	CALL histdef(nid_day, "topl0", "CS IR rad. at TOA",
560	. "W/m2",
561	. iim,jj_nb,nhori, 1,1,1, -99, 32,
562	. "ave(X)", zstophy,zout)
563	c
564	CALL histdef(nid_day, "sols0", "CS Net Solar rad. at surf.",
565	. "W/m2",
566	. iim,jj_nb,nhori, 1,1,1, -99, 32,
567	. "ave(X)", zstophy,zout)
568	c
569	CALL histdef(nid_day, "soll0", "CS Net IR rad. at surface",
570	. "W/m2",
571	. iim,jj_nb,nhori, 1,1,1, -99, 32,
572	. "ave(X)", zstophy,zout)
573	c
574	CALL histdef(nid_day, "rneb", "Cloud fraction", "-",
575	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
576	. "ave(X)", zstophy,zout)
577	c
578	CALL histdef(nid_day, "rnebcon", "Convective Cloud Fraction"
579	. , "-",
580	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
581	. "ave(X)", zstophy,zout)
582	c
583	CALL histdef(nid_day,"lwcon","Cloud liquid water content",
584	. "kg/kg",
585	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
586	. "ave(X)", zstophy,zout)
587	c
588	CALL histdef(nid_day,"iwcon","Cloud ice water content","kg/kg",
589	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
590	. "ave(X)", zstophy,zout)
591	c
592	CALL histdef(nid_day,"lwp","Cloud water path","kg/m2",
593	. iim,jj_nb,nhori, 1,1,1, -99, 32,
594	. "ave(X)", zstophy,zout)
595	c
596	CALL histdef(nid_day,"iwp","Cloud ice water path","kg/m2",
597	. iim,jj_nb,nhori, 1,1,1, -99, 32,
598	. "ave(X)", zstophy,zout)
599	c
600	CALL histdef(nid_day,"meantaucld",
601	. "ISCCP mean cloud optical thickness","1",
602	. iim,jj_nb,nhori, 1,1,1, -99, 32,
603	. "ave(X)", zstophy,zout)
604	c
605	CALL histdef(nid_day,"cldtau","Cloud optical thickness","1",
606	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
607	. "ave(X)", zstophy,zout)
608	c
609	CALL histdef(nid_day,"cldemi","Cloud optical emissivity","1",
610	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
611	. "ave(X)", zstophy,zout)
612	c
613	cIM rajout AMMA-MIP
614	c
615	CALL histdef(nid_day, "dtcon", "Convection dT", "K/s",
616	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
617	. "ave(X)", zstophy,zout)
618	c
619	CALL histdef(nid_day, "dqcon", "Convection dQ", "(kg/kg)/s",
620	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
621	. "ave(X)", zstophy,zout)
622	c
623	CALL histdef(nid_day, "rh2m", "Relative humidity at 2m", "%",
624	. iim,jj_nb,nhori, 1,1,1, -99, 32,
625	. "ave(X)", zstophy,zout)
626	c
627	CALL histdef(nid_day, "qsat2m", "Saturant humidity at 2m", "%",
628	. iim,jj_nb,nhori, 1,1,1, -99, 32,
629	. "ave(X)", zstophy,zout)
630	c
631	CALL histdef(nid_day, "tpot",
632	. "Surface air potential temperature", "K",
633	. iim,jj_nb,nhori, 1,1,1, -99, 32,
634	. "ave(X)", zstophy,zout)
635	c
636	CALL histdef(nid_day, "tpote",
637	. "Surface air equivalent potential temperature", "K",
638	. iim,jj_nb,nhori, 1,1,1, -99, 32,
639	. "ave(X)", zstophy,zout)
640	c
641	ENDIF !lev_histday.GE.5
642	c=================================================================
643	c
644	CALL histend(nid_day)
645	c
646	ndex2d = 0
647	ndex3d = 0
648	c
649	c=================================================================
650	c$OMP END MASTER
651	ENDIF ! fin de test sur ok_journe

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

Download in other formats: