Context Navigation

source: LMDZ4/trunk/libf/phylmd/phys_output_write.h @ 952

Last change on this file since 952 was 951, checked in by lmdzadmin, 17 years ago
Correction petits bogues; on ecrit nouvelles variables sous flags appropries JG IM
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 37.5 KB

Line
1	itau_w = itau_phy + itap
2
3	DO iff=1,nfiles
4
5	IF (clef_files(iff)) THEN
6	ndex2d = 0
7	ndex3d = 0
8
9	!!! Champs 1D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10	IF (flag_phis(iff)<=lev_files(iff)) THEN
11	CALL histwrite_phy(nid_files(iff),
12	$ "phis",itau_w,pphis)
13	ENDIF
14
15	IF (flag_aire(iff)<=lev_files(iff)) THEN
16	CALL histwrite_phy(nid_files(iff),"aire",itau_w,airephy)
17	ENDIF
18
19	IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
20	zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)* 100.
21	CALL histwrite_phy(nid_files(iff),
22	$ "pourc_"//clnsurf(is_ter),itau_w,
23	$ zx_tmp_fi2d)
24	ENDIF
25
26	IF (flag_fract_sol(iff)<=lev_files(iff)) THEN
27	zx_tmp_fi2d(1 : klon) = pctsrf(1 : klon, is_ter)
28	CALL histwrite_phy(nid_files(iff),
29	$ "fract_"//clnsurf(is_ter),itau_w,
30	$ zx_tmp_fi2d)
31	ENDIF
32
33	IF (flag_contfracATM(iff)<=lev_files(iff)) THEN
34	DO i=1, klon
35	zx_tmp_fi2d(i)=pctsrf(i,is_ter)+pctsrf(i,is_lic)
36	ENDDO
37	CALL histwrite_phy(nid_files(iff),
38	$ "contfracATM",itau_w,zx_tmp_fi2d)
39	ENDIF
40
41	IF (flag_contfracOR(iff)<=lev_files(iff)) THEN
42	CALL histwrite_phy(nid_files(iff),"contfracOR",itau_w,
43	$ pctsrf_new(:,is_ter))
44	ENDIF
45
46	IF (flag_aireTER(iff)<=lev_files(iff)) THEN
47	CALL histwrite_phy(nid_files(iff),
48	$ "aireTER",itau_w,paire_ter)
49	ENDIF
50
51	!!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
52
53	IF (flag_flat(iff)<=lev_files(iff)) THEN
54	CALL histwrite_phy(nid_files(iff),"flat",itau_w,zxfluxlat)
55	ENDIF
56
57	IF (flag_slp(iff)<=lev_files(iff)) THEN
58	CALL histwrite_phy(nid_files(iff),"slp",itau_w,slp)
59	ENDIF
60
61	IF (flag_tsol(iff)<=lev_files(iff)) THEN
62	CALL histwrite_phy(nid_files(iff),"tsol",itau_w,zxtsol)
63	ENDIF
64
65	IF (flag_t2m(iff)<=lev_files(iff)) THEN
66	CALL histwrite_phy(nid_files(iff),"t2m",itau_w,zt2m)
67	ENDIF
68
69	IF (flag_t2m_min(iff)<=lev_files(iff)) THEN
70	CALL histwrite_phy(nid_files(iff),"t2m_min",itau_w,zt2m)
71	ENDIF
72
73	IF (flag_t2m_max(iff)<=lev_files(iff)) THEN
74	CALL histwrite_phy(nid_files(iff),"t2m_max",itau_w,zt2m)
75	ENDIF
76
77	IF (flag_wind10m(iff)<=lev_files(iff)) THEN
78	DO i=1, klon
79	zx_tmp_fi2d(i)=SQRT(zu10m(i)zu10m(i)+zv10m(i)zv10m(i))
80	ENDDO
81	CALL histwrite_phy(nid_files(iff),"wind10m",itau_w,zx_tmp_fi2d)
82	ENDIF
83
84	IF (flag_wind10max(iff)<=lev_files(iff)) THEN
85	DO i=1, klon
86	zx_tmp_fi2d(i)=SQRT(zu10m(i)zu10m(i)+zv10m(i)zv10m(i))
87	ENDDO
88	CALL histwrite_phy(nid_files(iff),"wind10max",
89	$ itau_w,zx_tmp_fi2d)
90	ENDIF
91
92	IF (flag_sicf(iff)<=lev_files(iff)) THEN
93	DO i = 1, klon
94	zx_tmp_fi2d(i) = pctsrf(i,is_sic)
95	ENDDO
96	CALL histwrite_phy(nid_files(iff),"sicf",itau_w,zx_tmp_fi2d)
97	ENDIF
98
99	IF (flag_q2m(iff)<=lev_files(iff)) THEN
100	CALL histwrite_phy(nid_files(iff),"q2m",itau_w,zq2m)
101	ENDIF
102
103	IF (flag_u10m(iff)<=lev_files(iff)) THEN
104	CALL histwrite_phy(nid_files(iff),"u10m",itau_w,zu10m)
105	ENDIF
106
107	IF (flag_v10m(iff)<=lev_files(iff)) THEN
108	CALL histwrite_phy(nid_files(iff),"v10m",itau_w,zv10m)
109	ENDIF
110
111	IF (flag_psol(iff)<=lev_files(iff)) THEN
112	DO i = 1, klon
113	zx_tmp_fi2d(i) = paprs(i,1)
114	ENDDO
115	CALL histwrite_phy(nid_files(iff),"psol",itau_w,zx_tmp_fi2d)
116	ENDIF
117
118	IF (flag_qsurf(iff)<=lev_files(iff)) THEN
119	CALL histwrite_phy(nid_files(iff),"qsurf",itau_w,zxqsurf)
120	ENDIF
121
122	if (.not. ok_veget) then
123	IF (flag_qsol(iff)<=lev_files(iff)) THEN
124	CALL histwrite_phy(nid_files(iff),"qsol",itau_w,qsol)
125	ENDIF
126	endif
127
128	IF (flag_precip(iff)<=lev_files(iff)) THEN
129	DO i = 1, klon
130	zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
131	ENDDO
132	CALL histwrite_phy(nid_files(iff),"precip",itau_w,zx_tmp_fi2d)
133	ENDIF
134
135	IF (flag_ndayrain(iff)<=lev_files(iff)) THEN
136	CALL histwrite_phy(nid_files(iff),"ndayrain",itau_w,nday_rain)
137	ENDIF
138
139	IF (flag_plul(iff)<=lev_files(iff)) THEN
140	DO i = 1, klon
141	zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
142	ENDDO
143	CALL histwrite_phy(nid_files(iff),"plul",itau_w,zx_tmp_fi2d)
144	ENDIF
145
146	IF (flag_pluc(iff)<=lev_files(iff)) THEN
147	DO i = 1, klon
148	zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
149	ENDDO
150	CALL histwrite_phy(nid_files(iff),"pluc",itau_w,zx_tmp_fi2d)
151	ENDIF
152
153	IF (flag_snow(iff)<=lev_files(iff)) THEN
154	CALL histwrite_phy(nid_files(iff),"snow",itau_w,snow_fall)
155	ENDIF
156
157	IF (flag_evap(iff)<=lev_files(iff)) THEN
158	CALL histwrite_phy(nid_files(iff),"evap",itau_w,evap)
159	ENDIF
160
161	IF (flag_tops(iff)<=lev_files(iff)) THEN
162	CALL histwrite_phy(nid_files(iff),"tops",itau_w,topsw)
163	ENDIF
164
165	IF (flag_tops0(iff)<=lev_files(iff)) THEN
166	CALL histwrite_phy(nid_files(iff),"tops0",itau_w,topsw0)
167	ENDIF
168
169	IF (flag_topl(iff)<=lev_files(iff)) THEN
170	CALL histwrite_phy(nid_files(iff),"topl",itau_w,toplw)
171	ENDIF
172
173	IF (flag_topl0(iff)<=lev_files(iff)) THEN
174	CALL histwrite_phy(nid_files(iff),"topl0",itau_w,toplw0)
175	ENDIF
176
177	IF (flag_SWupTOA(iff)<=lev_files(iff)) THEN
178	zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 )
179	CALL histwrite_phy(nid_files(iff), "SWupTOA",itau_w,zx_tmp_fi2d)
180	ENDIF
181
182	IF (flag_SWupTOAclr(iff)<=lev_files(iff)) THEN
183	zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, klevp1 )
184	CALL histwrite_phy(nid_files(iff),
185	$ "SWupTOAclr",itau_w,zx_tmp_fi2d)
186	ENDIF
187
188	IF (flag_SWdnTOA(iff)<=lev_files(iff)) THEN
189	zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 )
190	CALL histwrite_phy(nid_files(iff), "SWdnTOA",itau_w,zx_tmp_fi2d)
191	ENDIF
192
193	IF (flag_SWdnTOAclr(iff)<=lev_files(iff)) THEN
194	zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, klevp1 )
195	CALL histwrite_phy(nid_files(iff),
196	$ "SWdnTOAclr",itau_w,zx_tmp_fi2d)
197	ENDIF
198
199	IF (flag_SWup200(iff)<=lev_files(iff)) THEN
200	CALL histwrite_phy(nid_files(iff),"SWup200",itau_w,SWup200)
201	ENDIF
202
203	IF (flag_SWup200clr(iff)<=lev_files(iff)) THEN
204	CALL histwrite_phy(nid_files(iff),"SWup200clr",itau_w,SWup200clr)
205	ENDIF
206
207	IF (flag_SWdn200(iff)<=lev_files(iff)) THEN
208	CALL histwrite_phy(nid_files(iff),"SWdn200",itau_w,SWdn200)
209	ENDIF
210
211	IF (flag_SWdn200clr(iff)<=lev_files(iff)) THEN
212	CALL histwrite_phy(nid_files(iff),"SWdn200clr",itau_w,SWdn200clr)
213	ENDIF
214
215	IF (flag_LWup200(iff)<=lev_files(iff)) THEN
216	CALL histwrite_phy(nid_files(iff),"LWup200",itau_w,LWup200)
217	ENDIF
218
219	IF (flag_LWup200clr(iff)<=lev_files(iff)) THEN
220	CALL histwrite_phy(nid_files(iff),"LWup200clr",itau_w,LWup200clr)
221	ENDIF
222
223	IF (flag_LWdn200(iff)<=lev_files(iff)) THEN
224	CALL histwrite_phy(nid_files(iff),"LWdn200",itau_w,zx_tmp_fi2d)
225	ENDIF
226
227	IF (flag_LWdn200clr(iff)<=lev_files(iff)) THEN
228	CALL histwrite_phy(nid_files(iff),"LWdn200clr",itau_w,zx_tmp_fi2d)
229	ENDIF
230
231	IF (flag_sols(iff)<=lev_files(iff)) THEN
232	CALL histwrite_phy(nid_files(iff),"sols",itau_w,solsw)
233	ENDIF
234
235	IF (flag_sols0(iff)<=lev_files(iff)) THEN
236	CALL histwrite_phy(nid_files(iff),"sols0",itau_w,solsw0)
237	ENDIF
238
239	IF (flag_soll(iff)<=lev_files(iff)) THEN
240	CALL histwrite_phy(nid_files(iff),"soll",itau_w,sollw)
241	ENDIF
242
243	IF (flag_radsol(iff)<=lev_files(iff)) THEN
244	CALL histwrite_phy(nid_files(iff),"radsol",itau_w,radsol)
245	ENDIF
246
247	IF (flag_soll0(iff)<=lev_files(iff)) THEN
248	CALL histwrite_phy(nid_files(iff),"soll0",itau_w,sollw0)
249	ENDIF
250
251	IF (flag_SWupSFC(iff)<=lev_files(iff)) THEN
252	zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 )
253	CALL histwrite_phy(nid_files(iff), "SWupSFC",itau_w,zx_tmp_fi2d)
254	ENDIF
255
256	IF (flag_SWupSFCclr(iff)<=lev_files(iff)) THEN
257	zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 )
258	CALL histwrite_phy(nid_files(iff),
259	$ "SWupSFCclr",itau_w,zx_tmp_fi2d)
260	ENDIF
261
262	IF (flag_SWdnSFC(iff)<=lev_files(iff)) THEN
263	zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 )
264	CALL histwrite_phy(nid_files(iff),
265	$ "SWdnSFC",itau_w,zx_tmp_fi2d)
266	ENDIF
267
268	IF (flag_SWdnSFCclr(iff)<=lev_files(iff)) THEN
269	zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 )
270	CALL histwrite_phy(nid_files(iff),
271	$ "SWdnSFCclr",itau_w,zx_tmp_fi2d)
272	ENDIF
273
274	IF (flag_LWupSFC(iff)<=lev_files(iff)) THEN
275	zx_tmp_fi2d(1:klon)=sollwdown(1:klon)-sollw(1:klon)
276	CALL histwrite_phy(nid_files(iff),
277	$ "LWupSFC",itau_w,zx_tmp_fi2d)
278	ENDIF
279
280	IF (flag_LWdnSFC(iff)<=lev_files(iff)) THEN
281	CALL histwrite_phy(nid_files(iff),
282	$ "LWdnSFC",itau_w,sollwdown)
283	ENDIF
284
285	IF (flag_LWupSFCclr(iff)<=lev_files(iff)) THEN
286	zx_tmp_fi2d(1:klon)=sollwdownclr(1:klon)-sollw0(1:klon)
287	CALL histwrite_phy(nid_files(iff),
288	$ "LWupSFCclr",itau_w,zx_tmp_fi2d)
289	ENDIF
290
291	IF (flag_LWdnSFCclr(iff)<=lev_files(iff)) THEN
292	CALL histwrite_phy(nid_files(iff),
293	$ "LWdnSFCclr",itau_w,sollwdownclr)
294	ENDIF
295
296	IF (flag_bils(iff)<=lev_files(iff)) THEN
297	CALL histwrite_phy(nid_files(iff),"bils",itau_w,bils)
298	ENDIF
299
300	IF (flag_sens(iff)<=lev_files(iff)) THEN
301	zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
302	CALL histwrite_phy(nid_files(iff),"sens",itau_w,zx_tmp_fi2d)
303	ENDIF
304
305	IF (flag_fder(iff)<=lev_files(iff)) THEN
306	CALL histwrite_phy(nid_files(iff),"fder",itau_w,fder)
307	ENDIF
308
309	IF (flag_ffonte(iff)<=lev_files(iff)) THEN
310	CALL histwrite_phy(nid_files(iff),"ffonte",itau_w,zxffonte)
311	ENDIF
312
313	IF (flag_fqcalving(iff)<=lev_files(iff)) THEN
314	CALL histwrite_phy(nid_files(iff),
315	$ "fqcalving",itau_w,zxfqcalving)
316	ENDIF
317
318	IF (flag_fqfonte(iff)<=lev_files(iff)) THEN
319	CALL histwrite_phy(nid_files(iff),
320	$ "fqfonte",itau_w,zxfqfonte)
321	ENDIF
322
323	DO nsrf = 1, nbsrf
324	IF(nsrf.GT.2) THEN
325	IF (flag_pourc_sol(iff)<=lev_files(iff)) THEN
326	zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
327	CALL histwrite_phy(nid_files(iff),
328	$ "pourc_"//clnsurf(nsrf),itau_w,
329	$ zx_tmp_fi2d)
330	ENDIF
331
332	IF (flag_fract_sol(iff)<=lev_files(iff)) THEN
333	zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
334	CALL histwrite_phy(nid_files(iff),
335	$ "fract_"//clnsurf(nsrf),itau_w,
336	$ zx_tmp_fi2d)
337	ENDIF
338	ENDIF !nsrf.GT.2
339
340	IF (flag_taux_sol(iff)<=lev_files(iff)) THEN
341	zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
342	CALL histwrite_phy(nid_files(iff),
343	$ "taux_"//clnsurf(nsrf),itau_w,
344	$ zx_tmp_fi2d)
345	ENDIF
346
347	IF (flag_tauy_sol(iff)<=lev_files(iff)) THEN
348	zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
349	CALL histwrite_phy(nid_files(iff),
350	$ "tauy_"//clnsurf(nsrf),itau_w,
351	$ zx_tmp_fi2d)
352	ENDIF
353
354	IF (flag_tsol_sol(iff)<=lev_files(iff)) THEN
355	zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
356	CALL histwrite_phy(nid_files(iff),
357	$ "tsol_"//clnsurf(nsrf),itau_w,
358	$ zx_tmp_fi2d)
359	ENDIF
360
361	IF (flag_u10m_sol(iff)<=lev_files(iff)) THEN
362	zx_tmp_fi2d(1 : klon) = u10m(1 : klon, nsrf)
363	CALL histwrite_phy(nid_files(iff),"u10m_"//clnsurf(nsrf),
364	$ itau_w,zx_tmp_fi2d)
365	ENDIF
366
367	IF (flag_v10m_sol(iff)<=lev_files(iff)) THEN
368	zx_tmp_fi2d(1 : klon) = v10m(1 : klon, nsrf)
369	CALL histwrite_phy(nid_files(iff),"v10m_"//clnsurf(nsrf),
370	$ itau_w,zx_tmp_fi2d)
371	ENDIF
372
373	IF (flag_t2m_sol(iff)<=lev_files(iff)) THEN
374	zx_tmp_fi2d(1 : klon) = t2m(1 : klon, nsrf)
375	CALL histwrite_phy(nid_files(iff),"t2m_"//clnsurf(nsrf),
376	$ itau_w,zx_tmp_fi2d)
377	ENDIF
378
379	IF (flag_sens_sol(iff)<=lev_files(iff)) THEN
380	zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
381	CALL histwrite_phy(nid_files(iff),
382	$ "sens_"//clnsurf(nsrf),itau_w,
383	$ zx_tmp_fi2d)
384	ENDIF
385
386	IF (flag_lat_sol(iff)<=lev_files(iff)) THEN
387	zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
388	CALL histwrite_phy(nid_files(iff),
389	$ "lat_"//clnsurf(nsrf),itau_w,
390	$ zx_tmp_fi2d)
391	ENDIF
392
393	IF (flag_flw_sol(iff)<=lev_files(iff)) THEN
394	zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf)
395	CALL histwrite_phy(nid_files(iff),
396	$ "flw_"//clnsurf(nsrf),itau_w,
397	$ zx_tmp_fi2d)
398	ENDIF
399
400	IF (flag_fsw_sol(iff)<=lev_files(iff)) THEN
401	zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf)
402	CALL histwrite_phy(nid_files(iff),
403	$ "fsw_"//clnsurf(nsrf),itau_w,
404	$ zx_tmp_fi2d)
405	ENDIF
406
407	IF (flag_wbils_sol(iff)<=lev_files(iff)) THEN
408	zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf)
409	CALL histwrite_phy(nid_files(iff),
410	$ "wbils_"//clnsurf(nsrf),itau_w,
411	$ zx_tmp_fi2d)
412	ENDIF
413
414	IF (flag_wbilo_sol(iff)<=lev_files(iff)) THEN
415	zx_tmp_fi2d(1 : klon) = wfbilo( 1 : klon, nsrf)
416	CALL histwrite_phy(nid_files(iff),
417	$ "wbilo_"//clnsurf(nsrf),itau_w,
418	$ zx_tmp_fi2d)
419	ENDIF
420
421	if (iflag_pbl>1 .and. lev_histday.gt.10 ) then
422	IF (flag_tke_sol(iff)<=lev_files(iff)) THEN
423	CALL histwrite_phy(nid_files(iff),
424	$ "tke_"//clnsurf(nsrf),itau_w,
425	$ pbl_tke(:,1:klev,nsrf))
426	ENDIF
427
428	IF (flag_tke_max_sol(iff)<=lev_files(iff)) THEN
429	CALL histwrite_phy(nid_files(iff),
430	$ "tke_max_"//clnsurf(nsrf),itau_w,
431	$ pbl_tke(:,1:klev,nsrf))
432	ENDIF
433	endif
434	ENDDO
435
436	IF (flag_cdrm(iff)<=lev_files(iff)) THEN
437	CALL histwrite_phy(nid_files(iff),"cdrm",itau_w,cdragm)
438	ENDIF
439
440	IF (flag_cdrh(iff)<=lev_files(iff)) THEN
441	CALL histwrite_phy(nid_files(iff),"cdrh",itau_w,cdragh)
442	ENDIF
443
444	IF (flag_cldl(iff)<=lev_files(iff)) THEN
445	CALL histwrite_phy(nid_files(iff),"cldl",itau_w,cldl)
446	ENDIF
447
448	IF (flag_cldm(iff)<=lev_files(iff)) THEN
449	CALL histwrite_phy(nid_files(iff),"cldm",itau_w,cldm)
450	ENDIF
451
452	IF (flag_cldh(iff)<=lev_files(iff)) THEN
453	CALL histwrite_phy(nid_files(iff),"cldh",itau_w,cldh)
454	ENDIF
455
456	IF (flag_cldt(iff)<=lev_files(iff)) THEN
457	CALL histwrite_phy(nid_files(iff),"cldt",
458	& itau_w,cldt*100)
459	ENDIF
460
461	IF (flag_cldq(iff)<=lev_files(iff)) THEN
462	CALL histwrite_phy(nid_files(iff),"cldq",itau_w,cldq)
463	ENDIF
464
465	IF (flag_lwp(iff)<=lev_files(iff)) THEN
466	zx_tmp_fi2d(1:klon) = flwp(1:klon)
467	CALL histwrite_phy(nid_files(iff),"lwp",itau_w,zx_tmp_fi2d)
468	ENDIF
469
470	IF (flag_iwp(iff)<=lev_files(iff)) THEN
471	zx_tmp_fi2d(1:klon) = fiwp(1:klon)
472	CALL histwrite_phy(nid_files(iff),"iwp",itau_w,zx_tmp_fi2d)
473	ENDIF
474
475	IF (flag_ue(iff)<=lev_files(iff)) THEN
476	CALL histwrite_phy(nid_files(iff),"ue",itau_w,ue)
477	ENDIF
478
479	IF (flag_ve(iff)<=lev_files(iff)) THEN
480	CALL histwrite_phy(nid_files(iff),"ve",itau_w,ve)
481	ENDIF
482
483	IF (flag_uq(iff)<=lev_files(iff)) THEN
484	CALL histwrite_phy(nid_files(iff),"uq",itau_w,uq)
485	ENDIF
486
487	IF (flag_vq(iff)<=lev_files(iff)) THEN
488	CALL histwrite_phy(nid_files(iff),"vq",itau_w,vq)
489	ENDIF
490
491	IF(iflag_con.GE.3) THEN ! sb
492	IF (flag_cape(iff)<=lev_files(iff)) THEN
493	CALL histwrite_phy(nid_files(iff),"cape",itau_w,cape)
494	ENDIF
495
496	IF (flag_pbase(iff)<=lev_files(iff)) THEN
497	CALL histwrite_phy(nid_files(iff),"pbase",itau_w,pbase)
498	ENDIF
499
500	IF (flag_ptop(iff)<=lev_files(iff)) THEN
501	CALL histwrite_phy(nid_files(iff),"ptop",itau_w,ema_pct)
502	ENDIF
503
504	IF (flag_fbase(iff)<=lev_files(iff)) THEN
505	CALL histwrite_phy(nid_files(iff),"fbase",itau_w,ema_cbmf)
506	ENDIF
507
508	IF (flag_prw(iff)<=lev_files(iff)) THEN
509	CALL histwrite_phy(nid_files(iff),"prw",itau_w,prw)
510	ENDIF
511	ENDIF !iflag_con .GE. 3
512
513	IF (flag_s_pblh(iff)<=lev_files(iff)) THEN
514	CALL histwrite_phy(nid_files(iff),"s_pblh",itau_w,s_pblh)
515	ENDIF
516
517	IF (flag_s_pblt(iff)<=lev_files(iff)) THEN
518	CALL histwrite_phy(nid_files(iff),"s_pblt",itau_w,s_pblt)
519	ENDIF
520
521	IF (flag_s_lcl(iff)<=lev_files(iff)) THEN
522	CALL histwrite_phy(nid_files(iff),"s_lcl",itau_w,s_lcl)
523	ENDIF
524
525	IF (flag_s_capCL(iff)<=lev_files(iff)) THEN
526	CALL histwrite_phy(nid_files(iff),"s_capCL",itau_w,s_capCL)
527	ENDIF
528
529	IF (flag_s_oliqCL(iff)<=lev_files(iff)) THEN
530	CALL histwrite_phy(nid_files(iff),"s_oliqCL",itau_w,s_oliqCL)
531	ENDIF
532
533	IF (flag_s_cteiCL(iff)<=lev_files(iff)) THEN
534	CALL histwrite_phy(nid_files(iff),"s_cteiCL",itau_w,s_cteiCL)
535	ENDIF
536
537	IF (flag_s_therm(iff)<=lev_files(iff)) THEN
538	CALL histwrite_phy(nid_files(iff),"s_therm",itau_w,s_therm)
539	ENDIF
540
541	IF (flag_s_trmb1(iff)<=lev_files(iff)) THEN
542	CALL histwrite_phy(nid_files(iff),"s_trmb1",itau_w,s_trmb1)
543	ENDIF
544
545	IF (flag_s_trmb2(iff)<=lev_files(iff)) THEN
546	CALL histwrite_phy(nid_files(iff),"s_trmb2",itau_w,s_trmb2)
547	ENDIF
548
549	IF (flag_s_trmb3(iff)<=lev_files(iff)) THEN
550	CALL histwrite_phy(nid_files(iff),"s_trmb3",itau_w,s_trmb3)
551	ENDIF
552
553	! Champs interpolles sur des niveaux de pression
554	! if=1 on ecrit u v w phi sur 850 700 500 200 au niv 1
555	! if=2 on ecrit w et ph 500 seulement au niv 1
556	! et u v sur 850 700 500 200
557	! if=3 on ecrit ph a 500 seulement au niv 1
558	! on ecrit u v t q a 850 700 500 200 au niv 3
559
560	DO k=1, nlevSTD
561	IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
562	IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
563	IF(bb2.EQ."850".OR.bb2.EQ."700".OR.
564	$ bb2.EQ."500".OR.bb2.EQ."200") THEN
565
566	! a refaire correctement !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
567	IF (flag_ulevsSTD(iff)<=lev_files(iff)) THEN
568	CALL histwrite_phy(nid_files(iff),"u"//bb2,
569	& itau_w,ulevSTD(:,k))
570	ENDIF
571
572	IF (flag_vlevsSTD(iff)<=lev_files(iff)) THEN
573	CALL histwrite_phy(nid_files(iff),"v"//bb2,
574	& itau_w,vlevSTD(:,k))
575	ENDIF
576
577	IF (flag_wlevsSTD(iff)<=lev_files(iff)) THEN
578	CALL histwrite_phy(nid_files(iff),"w"//bb2,
579	& itau_w,wlevSTD(:,k))
580	ENDIF
581
582	IF (flag_philevsSTD(iff)<=lev_files(iff)) THEN
583	CALL histwrite_phy(nid_files(iff),
584	$ "phi"//bb2,
585	& itau_w,philevSTD(:,k))
586	ENDIF
587
588	IF (flag_qlevsSTD(iff)<=lev_files(iff)) THEN
589	CALL histwrite_phy(nid_files(iff),"q"//bb2,
590	& itau_w, qlevSTD(:,k))
591	ENDIF
592
593	IF (flag_tlevsSTD(iff)<=lev_files(iff)) THEN
594	CALL histwrite_phy(nid_files(iff),"t"//bb2,
595	& itau_w, tlevSTD(:,k))
596	ENDIF
597
598	ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.
599	ENDDO
600
601	!IM diagnostiques flux ocean-atm ou ocean-glace de mer
602	!IM pour utilisation dans un modele de "slab" ocean
603
604	IF (flag_fluxo(iff)<=lev_files(iff)) THEN
605	DO i=1, klon
606	IF (pctsrf(i,is_oce).GT.epsfra) THEN
607	zx_tmp_fi2d(i) = fluxo(i)
608	ELSE
609	zx_tmp_fi2d(i) = 0.
610	ENDIF
611	ENDDO
612	CALL histwrite_phy(nid_files(iff),"fluxo",itau_w,zx_tmp_fi2d)
613	ENDIF
614
615	IF (flag_fluxg(iff)<=lev_files(iff)) THEN
616	DO i=1, klon
617	IF (pctsrf(i,is_sic).GT.epsfra) THEN
618	zx_tmp_fi2d(i) = fluxg(i)
619	ELSE
620	zx_tmp_fi2d(i) = 0.
621	ENDIF
622	ENDDO
623	CALL histwrite_phy(nid_files(iff),"fluxg",itau_w,zx_tmp_fi2d)
624	ENDIF
625
626	IF (flag_t_oce_sic(iff)<=lev_files(iff)) THEN
627	DO i=1, klon
628	IF (pctsrf(i,is_oce).GT.epsfra.OR.
629	$ pctsrf(i,is_sic).GT.epsfra) THEN
630	zx_tmp_fi2d(i) = (ftsol(i, is_oce) * pctsrf(i,is_oce)+
631	$ ftsol(i, is_sic) * pctsrf(i,is_sic))/
632	$ (pctsrf(i,is_oce)+pctsrf(i,is_sic))
633	ELSE
634	zx_tmp_fi2d(i) = 273.15
635	ENDIF
636	ENDDO
637	CALL histwrite_phy(nid_files(iff),"t_oce_sic",itau_w,zx_tmp_fi2d)
638	ENDIF
639
640	IF (OCEAN.EQ.'force ') THEN
641	IF (flag_lmt_bils(iff)<=lev_files(iff)) THEN
642	DO i=1, klon
643	IF((pctsrf(i,is_oce).GT.epsfra).OR.
644	$ (pctsrf(i,is_sic).GT.epsfra)) THEN
645	zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+
646	$ fluxg(i)*pctsrf(i,is_sic)
647	ELSE
648	zx_tmp_fi2d(i) = 1.E+20
649	ENDIF
650	ENDDO
651	CALL histwrite_phy(nid_files(iff),"lmt_bils",itau_w,zx_tmp_fi2d)
652	ENDIF
653
654	IF (iflag_coupl.EQ.1) THEN
655	IF (flag_ale_bl(iff)<=lev_files(iff)) THEN
656	CALL histwrite_phy(nid_files(iff),"ale_bl",itau_w,ale_bl)
657	ENDIF
658	IF (flag_alp_bl(iff)<=lev_files(iff)) THEN
659	CALL histwrite_phy(nid_files(iff),"alp_bl",itau_w,alp_bl)
660	ENDIF
661	ENDIF !iflag_coupl.EQ.1
662
663	IF (iflag_wake.EQ.1) THEN
664	IF (flag_ale_wk(iff)<=lev_files(iff)) THEN
665	CALL histwrite_phy(nid_files(iff),"ale_wk",itau_w,ale_wake)
666	ENDIF
667	IF (flag_alp_wk(iff)<=lev_files(iff)) THEN
668	CALL histwrite_phy(nid_files(iff),"alp_wk",itau_w,alp_wake)
669	ENDIF
670	ENDIF
671
672	ELSE IF (OCEAN.EQ.'slab ') THEN
673
674	IF (flag_slab_bils(iff)<=lev_files(iff)) THEN
675	DO i=1, klon
676	IF((pctsrf(i,is_oce).GT.epsfra).OR.
677	$ (pctsrf(i,is_sic).GT.epsfra)) THEN
678	zx_tmp_fi2d(i) = (radsol(i) + fluxo(i))*pctsrf(i,is_oce)+
679	$ fluxg(i)*pctsrf(i,is_sic)
680	ELSE
681	zx_tmp_fi2d(i) = 1.E+20
682	ENDIF
683	ENDDO
684	CALL histwrite_phy(nid_files(iff),"slab_bils",itau_w,zx_tmp_fi2d)
685	ENDIF
686
687	IF (flag_tslab(iff)<=lev_files(iff)) THEN
688	DO i=1, klon
689	IF(pctsrf(i,is_oce).GT.epsfra.OR.
690	$ pctsrf(i,is_sic).GT.epsfra) THEN
691	zx_tmp_fi2d(i)=tslab(i)
692	ELSE
693	zx_tmp_fi2d(i) = 1.E+20
694	ENDIF
695	ENDDO !i=1, klon
696	CALL histwrite_phy(nid_files(iff),"tslab",itau_w,zx_tmp_fi2d)
697	ENDIF
698
699	IF (flag_seaice(iff)<=lev_files(iff)) THEN
700	CALL histwrite_phy(nid_files(iff),"seaice",itau_w,seaice)
701	ENDIF
702
703	IF (flag_siceh(iff)<=lev_files(iff)) THEN
704	CALL histwrite_phy(nid_files(iff),"siceh",itau_w, seaice/1000.)
705	ENDIF
706	ENDIF !OCEAN.EQ.force/slab
707
708	IF (flag_weakinv(iff)<=lev_files(iff)) THEN
709	CALL histwrite_phy(nid_files(iff),"weakinv",itau_w,weak_inversion)
710	ENDIF
711
712	IF (flag_dthmin(iff)<=lev_files(iff)) THEN
713	CALL histwrite_phy(nid_files(iff),"dthmin",itau_w,dthmin)
714	ENDIF
715
716	#ifdef histISCCP
717	IF(ok_isccp) THEN
718	IF (flag_meantaucld(iff)<=lev_files(iff)) THEN
719	CALL histwrite_phy(nid_files(iff),"meantaucld",itau_w,meantaucld)
720	ENDIF
721	ENDIF !(ok_isccp)
722	#endif
723
724	IF (flag_cldtau(iff)<=lev_files(iff)) THEN
725	CALL histwrite_phy(nid_files(iff),"cldtau",itau_w,cldtau)
726	ENDIF
727
728	IF (flag_cldemi(iff)<=lev_files(iff)) THEN
729	CALL histwrite_phy(nid_files(iff),"cldemi",itau_w,cldemi)
730	ENDIF
731
732	IF (flag_pr_con_l(iff)<=lev_files(iff)) THEN
733	CALL histwrite_phy(nid_files(iff),"pmflxr",itau_w,pmflxr)
734	ENDIF
735
736	IF (flag_pr_con_i(iff)<=lev_files(iff)) THEN
737	CALL histwrite_phy(nid_files(iff),"pmflxs",itau_w,pmflxs)
738	ENDIF
739
740	IF (flag_pr_lsc_l(iff)<=lev_files(iff)) THEN
741	CALL histwrite_phy(nid_files(iff),"prfl",itau_w,prfl)
742	ENDIF
743
744	IF (flag_pr_lsc_i(iff)<=lev_files(iff)) THEN
745	CALL histwrite_phy(nid_files(iff),"psfl",itau_w,psfl)
746	ENDIF
747
748	IF (flag_rh2m(iff)<=lev_files(iff)) THEN
749	DO i=1, klon
750	zx_tmp_fi2d(i)=MIN(100.,rh2m(i)*100.)
751	ENDDO
752	CALL histwrite_phy(nid_files(iff),"rh2m",itau_w,zx_tmp_fi2d)
753	ENDIF
754
755	IF (flag_qsat2m(iff)<=lev_files(iff)) THEN
756	CALL histwrite_phy(nid_files(iff),"qsat2m",itau_w,qsat2m)
757	ENDIF
758
759	IF (flag_tpot(iff)<=lev_files(iff)) THEN
760	CALL histwrite_phy(nid_files(iff),"tpot",itau_w,tpot)
761	ENDIF
762
763	IF (flag_tpote(iff)<=lev_files(iff)) THEN
764	CALL histwrite_phy(nid_files(iff),"tpote",itau_w,tpote)
765	ENDIF
766
767	IF (flag_SWnetOR(iff)<=lev_files(iff)) THEN
768	zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
769	CALL histwrite_phy(nid_files(iff),"SWnetOR",itau_w, zx_tmp_fi2d)
770	ENDIF
771
772	IF (flag_SWdownOR(iff)<=lev_files(iff)) THEN
773	zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol1(1:klon))
774	CALL histwrite_phy(nid_files(iff),"SWdownOR",itau_w, zx_tmp_fi2d)
775	ENDIF
776
777	IF (flag_LWdownOR(iff)<=lev_files(iff)) THEN
778	CALL histwrite_phy(nid_files(iff),"LWdownOR",itau_w,sollwdown)
779	ENDIF
780
781	IF (flag_snowl(iff)<=lev_files(iff)) THEN
782	CALL histwrite_phy(nid_files(iff),"snowl",itau_w,snow_lsc)
783	ENDIF
784
785	IF (flag_cape_max(iff)<=lev_files(iff)) THEN
786	CALL histwrite_phy(nid_files(iff),"cape_max",itau_w,cape)
787	ENDIF
788
789	IF (flag_solldown(iff)<=lev_files(iff)) THEN
790	CALL histwrite_phy(nid_files(iff),"solldown",itau_w,sollwdown)
791	ENDIF
792
793	IF (flag_dtsvdfo(iff)<=lev_files(iff)) THEN
794	CALL histwrite_phy(nid_files(iff),"dtsvdfo",itau_w,d_ts(:,is_oce))
795	ENDIF
796
797	IF (flag_dtsvdft(iff)<=lev_files(iff)) THEN
798	CALL histwrite_phy(nid_files(iff),"dtsvdft",itau_w,d_ts(:,is_ter))
799	ENDIF
800
801	IF (flag_dtsvdfg(iff)<=lev_files(iff)) THEN
802	CALL histwrite_phy(nid_files(iff),
803	$ "dtsvdfg",itau_w, d_ts(:,is_lic))
804	ENDIF
805
806	IF (flag_dtsvdfi(iff)<=lev_files(iff)) THEN
807	CALL histwrite_phy(nid_files(iff),"dtsvdfi",itau_w,d_ts(:,is_sic))
808	ENDIF
809
810	IF (flag_rugs(iff)<=lev_files(iff)) THEN
811	CALL histwrite_phy(nid_files(iff),"rugs",itau_w,zxrugs)
812	ENDIF
813
814	! Champs 3D:
815	IF (flag_lwcon(iff)<=lev_files(iff)) THEN
816	CALL histwrite_phy(nid_files(iff),"lwcon",itau_w,flwc)
817	ENDIF
818
819	IF (flag_iwcon(iff)<=lev_files(iff)) THEN
820	CALL histwrite_phy(nid_files(iff),"iwcon",itau_w,fiwc)
821	ENDIF
822
823	IF (flag_temp(iff)<=lev_files(iff)) THEN
824	CALL histwrite_phy(nid_files(iff),"temp",itau_w,t_seri)
825	ENDIF
826
827	IF (flag_theta(iff)<=lev_files(iff)) THEN
828	CALL histwrite_phy(nid_files(iff),"theta",itau_w,theta)
829	ENDIF
830
831	IF (flag_ovap(iff)<=lev_files(iff)) THEN
832	CALL histwrite_phy(nid_files(iff),"ovap",itau_w,qx(:,:,ivap))
833	ENDIF
834
835	IF (flag_geop(iff)<=lev_files(iff)) THEN
836	CALL histwrite_phy(nid_files(iff),"geop",itau_w,zphi)
837	ENDIF
838
839	IF (flag_vitu(iff)<=lev_files(iff)) THEN
840	CALL histwrite_phy(nid_files(iff),"vitu",itau_w,u_seri)
841	ENDIF
842
843	IF (flag_vitv(iff)<=lev_files(iff)) THEN
844	CALL histwrite_phy(nid_files(iff),"vitv",itau_w,v_seri)
845	ENDIF
846
847	IF (flag_vitw(iff)<=lev_files(iff)) THEN
848	CALL histwrite_phy(nid_files(iff),"vitw",itau_w,omega)
849	ENDIF
850
851	IF (flag_pres(iff)<=lev_files(iff)) THEN
852	CALL histwrite_phy(nid_files(iff),"pres",itau_w,pplay)
853	ENDIF
854
855	IF (flag_rneb(iff)<=lev_files(iff)) THEN
856	CALL histwrite_phy(nid_files(iff),"rneb",itau_w,cldfra)
857	ENDIF
858
859	IF (flag_rnebcon(iff)<=lev_files(iff)) THEN
860	CALL histwrite_phy(nid_files(iff),"rnebcon",itau_w,rnebcon)
861	ENDIF
862
863	IF (flag_rhum(iff)<=lev_files(iff)) THEN
864	CALL histwrite_phy(nid_files(iff),"rhum",itau_w,zx_rh)
865	ENDIF
866
867	IF (flag_ozone(iff)<=lev_files(iff)) THEN
868	DO k=1, klev
869	DO i=1, klon
870	zx_tmp_fi3d(i,k)=wo(i,k)*RG/46.6968
871	$ /(paprs(i,k)-paprs(i,k+1))
872	$ *(paprs(i,1)/101325.0)
873	ENDDO !i
874	ENDDO !k
875	CALL histwrite_phy(nid_files(iff),"ozone",itau_w,zx_tmp_fi3d)
876	ENDIF
877
878	IF (flag_upwd(iff)<=lev_files(iff)) THEN
879	CALL histwrite_phy(nid_files(iff),"upwd",itau_w,upwd)
880	ENDIF
881
882	IF (flag_dtphy(iff)<=lev_files(iff)) THEN
883	CALL histwrite_phy(nid_files(iff),"dtphy",itau_w,d_t)
884	ENDIF
885
886	IF (flag_dqphy(iff)<=lev_files(iff)) THEN
887	CALL histwrite_phy(nid_files(iff),"dqphy",itau_w, d_qx(:,:,ivap))
888	ENDIF
889
890	DO nsrf=1, nbsrf
891	IF (flag_albe_sol(iff)<=lev_files(iff)) THEN
892	zx_tmp_fi2d(1 : klon) = falb1( 1 : klon, nsrf)
893	CALL histwrite_phy(nid_files(iff),"albe_"//clnsurf(nsrf),itau_w,
894	$ zx_tmp_fi2d)
895	ENDIF
896
897	IF (flag_rugs_sol(iff)<=lev_files(iff)) THEN
898	zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
899	CALL histwrite_phy(nid_files(iff),"rugs_"//clnsurf(nsrf),itau_w,
900	$ zx_tmp_fi2d)
901	ENDIF
902
903	IF (flag_ages_sol(iff)<=lev_files(iff)) THEN
904	zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf)
905	CALL histwrite_phy(nid_files(iff),"ages_"//clnsurf(nsrf),itau_w
906	$ ,zx_tmp_fi2d)
907	ENDIF
908	ENDDO !nsrf=1, nbsrf
909
910	IF (flag_albs(iff)<=lev_files(iff)) THEN
911	CALL histwrite_phy(nid_files(iff),"albs",itau_w,albsol1)
912	ENDIF
913
914	IF (flag_albslw(iff)<=lev_files(iff)) THEN
915	CALL histwrite_phy(nid_files(iff),"albslw",itau_w,albsol2)
916	ENDIF
917
918	!FH Sorties pour la couche limite
919	if (iflag_pbl>1) then
920	zx_tmp_fi3d=0.
921	do nsrf=1,nbsrf
922	do k=1,klev
923	zx_tmp_fi3d(:,k)=zx_tmp_fi3d(:,k)
924	$ +pctsrf(:,nsrf)*pbl_tke(:,k,nsrf)
925	enddo
926	enddo
927	IF (flag_tke(iff)<=lev_files(iff)) THEN
928	CALL histwrite_phy(nid_files(iff),"tke",itau_w,zx_tmp_fi3d)
929	ENDIF
930
931	IF (flag_tke_max(iff)<=lev_files(iff)) THEN
932	CALL histwrite_phy(nid_files(iff),"tke_max",itau_w,zx_tmp_fi3d)
933	ENDIF
934	endif
935
936	IF (flag_kz(iff)<=lev_files(iff)) THEN
937	CALL histwrite_phy(nid_files(iff),"kz",itau_w,ycoefh)
938	ENDIF
939
940	IF (flag_kz_max(iff)<=lev_files(iff)) THEN
941	CALL histwrite_phy(nid_files(iff),"kz_max",itau_w,ycoefh)
942	ENDIF
943
944	IF (flag_clwcon(iff)<=lev_files(iff)) THEN
945	CALL histwrite_phy(nid_files(iff),"clwcon",itau_w,clwcon0)
946	ENDIF
947
948	IF (flag_Ma(iff)<=lev_files(iff)) THEN
949	CALL histwrite_phy(nid_files(iff),"Ma",itau_w,Ma)
950	ENDIF
951
952	IF (flag_dnwd(iff)<=lev_files(iff)) THEN
953	CALL histwrite_phy(nid_files(iff),"dnwd",itau_w,dnwd)
954	ENDIF
955
956	IF (flag_dnwd0(iff)<=lev_files(iff)) THEN
957	CALL histwrite_phy(nid_files(iff),"dnwd0",itau_w,dnwd0)
958	ENDIF
959
960	IF (flag_dtdyn(iff)<=lev_files(iff)) THEN
961	CALL histwrite_phy(nid_files(iff),"dtdyn",itau_w,d_t_dyn)
962	ENDIF
963
964	IF (flag_dqdyn(iff)<=lev_files(iff)) THEN
965	CALL histwrite_phy(nid_files(iff),"dqdyn",itau_w,d_q_dyn)
966	ENDIF
967
968	IF (flag_dtcon(iff)<=lev_files(iff)) THEN
969	zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys
970	CALL histwrite_phy(nid_files(iff),"dtcon",itau_w,zx_tmp_fi3d)
971	ENDIF
972
973	IF (flag_ducon(iff)<=lev_files(iff)) THEN
974	zx_tmp_fi3d(1:klon,1:klev)=d_u_con(1:klon,1:klev)/pdtphys
975	CALL histwrite_phy(nid_files(iff),"ducon",itau_w,zx_tmp_fi3d)
976	ENDIF
977
978	IF (flag_dqcon(iff)<=lev_files(iff)) THEN
979	zx_tmp_fi3d(1:klon,1:klev)=d_q_con(1:klon,1:klev)/pdtphys
980	CALL histwrite_phy(nid_files(iff),"dqcon",itau_w,zx_tmp_fi3d)
981	ENDIF
982
983	IF (iflag_wake.ge.1) THEN
984	IF (flag_dtwak(iff)<=lev_files(iff)) THEN
985	zx_tmp_fi3d(1:klon,1:klev)=d_t_wake(1:klon,1:klev)/pdtphys
986	CALL histwrite_phy(nid_files(iff),"dtwak",itau_w,zx_tmp_fi3d)
987	ENDIF
988
989	IF (flag_dqwak(iff)<=lev_files(iff)) THEN
990	zx_tmp_fi3d(1:klon,1:klev)=d_q_wake(1:klon,1:klev)/pdtphys
991	CALL histwrite_phy(nid_files(iff),"dqwak",itau_w,zx_tmp_fi3d)
992	ENDIF
993	ENDIF
994
995	IF (flag_dtlsc(iff)<=lev_files(iff)) THEN
996	zx_tmp_fi3d(1:klon,1:klev)=d_t_lsc(1:klon,1:klev)/pdtphys
997	CALL histwrite_phy(nid_files(iff),"dtlsc",itau_w,zx_tmp_fi3d)
998	ENDIF
999
1000	IF (flag_dtlschr(iff)<=lev_files(iff)) THEN
1001	zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+
1002	$ d_t_eva(1:klon,1:klev))/pdtphys
1003	CALL histwrite_phy(nid_files(iff),"dtlschr",itau_w,zx_tmp_fi3d)
1004	ENDIF
1005
1006	IF (flag_dqlsc(iff)<=lev_files(iff)) THEN
1007	zx_tmp_fi3d(1:klon,1:klev)=d_q_lsc(1:klon,1:klev)/pdtphys
1008	CALL histwrite_phy(nid_files(iff),"dqlsc",itau_w,zx_tmp_fi3d)
1009	ENDIF
1010
1011	IF (flag_dtvdf(iff)<=lev_files(iff)) THEN
1012	zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys
1013	CALL histwrite_phy(nid_files(iff),"dtvdf",itau_w,zx_tmp_fi3d)
1014	ENDIF
1015
1016	IF (flag_dqvdf(iff)<=lev_files(iff)) THEN
1017	zx_tmp_fi3d(1:klon,1:klev)=d_q_vdf(1:klon,1:klev)/pdtphys
1018	CALL histwrite_phy(nid_files(iff),"dqvdf",itau_w,zx_tmp_fi3d)
1019	ENDIF
1020
1021	IF (flag_dteva(iff)<=lev_files(iff)) THEN
1022	zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys
1023	CALL histwrite_phy(nid_files(iff),"dteva",itau_w,zx_tmp_fi3d)
1024	ENDIF
1025
1026	IF (flag_dqeva(iff)<=lev_files(iff)) THEN
1027	zx_tmp_fi3d(1:klon,1:klev)=d_q_eva(1:klon,1:klev)/pdtphys
1028	CALL histwrite_phy(nid_files(iff),"dqeva",itau_w,zx_tmp_fi3d)
1029	ENDIF
1030
1031	IF (flag_ptconv(iff)<=lev_files(iff)) THEN
1032	zpt_conv = 0.
1033	where (ptconv) zpt_conv = 1.
1034	CALL histwrite_phy(nid_files(iff),"ptconv",itau_w,zpt_conv)
1035	ENDIF
1036
1037	IF (flag_ratqs(iff)<=lev_files(iff)) THEN
1038	CALL histwrite_phy(nid_files(iff),"ratqs",itau_w,ratqs)
1039	ENDIF
1040
1041	IF (flag_dtthe(iff)<=lev_files(iff)) THEN
1042	zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys
1043	CALL histwrite_phy(nid_files(iff),"dtthe",itau_w,zx_tmp_fi3d)
1044	ENDIF
1045
1046	IF (iflag_thermals.ge.1) THEN
1047	IF (flag_f_th(iff)<=lev_files(iff)) THEN
1048	CALL histwrite_phy(nid_files(iff),"f_th",itau_w,fm_therm)
1049	ENDIF
1050
1051	IF (flag_e_th(iff)<=lev_files(iff)) THEN
1052	CALL histwrite_phy(nid_files(iff),"e_th",itau_w,entr_therm)
1053	ENDIF
1054
1055	! IF (flag_d_th(iff)<=lev_files(iff)) THEN
1056	! CALL histwrite_phy(nid_files(iff),"d_th",itau_w,detr_therm)
1057	! ENDIF
1058	ENDIF !iflag_thermals
1059
1060	IF (flag_f0_th(iff)<=lev_files(iff)) THEN
1061	CALL histwrite_phy(nid_files(iff),"f0_th",itau_w,f0)
1062	ENDIF
1063
1064	IF (flag_f0_th(iff)<=lev_files(iff)) THEN
1065	CALL histwrite_phy(nid_files(iff),"zmax_th",itau_w,zmax0)
1066	ENDIF
1067
1068	IF (flag_dqthe(iff)<=lev_files(iff)) THEN
1069	zx_tmp_fi3d(1:klon,1:klev)=d_q_ajs(1:klon,1:klev)/pdtphys
1070	CALL histwrite_phy(nid_files(iff),"dqthe",itau_w,zx_tmp_fi3d)
1071	ENDIF
1072
1073	IF (flag_dtajs(iff)<=lev_files(iff)) THEN
1074	zx_tmp_fi3d(1:klon,1:klev)=d_t_ajsb(1:klon,1:klev)/pdtphys
1075	CALL histwrite_phy(nid_files(iff),"dtajs",itau_w,zx_tmp_fi3d)
1076	ENDIF
1077
1078	IF (flag_dqajs(iff)<=lev_files(iff)) THEN
1079	zx_tmp_fi3d(1:klon,1:klev)=d_q_ajsb(1:klon,1:klev)/pdtphys
1080	CALL histwrite_phy(nid_files(iff),"dqajs",itau_w,zx_tmp_fi3d)
1081	ENDIF
1082
1083	IF (flag_dtswr(iff)<=lev_files(iff)) THEN
1084	zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)/RDAY
1085	CALL histwrite_phy(nid_files(iff),"dtswr",itau_w,zx_tmp_fi3d)
1086	ENDIF
1087
1088	IF (flag_dtsw0(iff)<=lev_files(iff)) THEN
1089	zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)/RDAY
1090	CALL histwrite_phy(nid_files(iff),"dtsw0",itau_w,zx_tmp_fi3d)
1091	ENDIF
1092
1093	IF (flag_dtlwr(iff)<=lev_files(iff)) THEN
1094	zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)/RDAY
1095	CALL histwrite_phy(nid_files(iff),"dtlwr",itau_w,zx_tmp_fi3d)
1096	ENDIF
1097
1098	IF (flag_dtlw0(iff)<=lev_files(iff)) THEN
1099	zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)/RDAY
1100	CALL histwrite_phy(nid_files(iff),"dtlw0",itau_w,zx_tmp_fi3d)
1101	ENDIF
1102
1103	IF (flag_dtec(iff)<=lev_files(iff)) THEN
1104	zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev)
1105	CALL histwrite_phy(nid_files(iff),"dtec",itau_w,zx_tmp_fi3d)
1106	ENDIF
1107
1108	IF (flag_duvdf(iff)<=lev_files(iff)) THEN
1109	zx_tmp_fi3d(1:klon,1:klev)=d_u_vdf(1:klon,1:klev)/pdtphys
1110	CALL histwrite_phy(nid_files(iff),"duvdf",itau_w,zx_tmp_fi3d)
1111	ENDIF
1112
1113	IF (flag_dvvdf(iff)<=lev_files(iff)) THEN
1114	zx_tmp_fi3d(1:klon,1:klev)=d_v_vdf(1:klon,1:klev)/pdtphys
1115	CALL histwrite_phy(nid_files(iff),"dvvdf",itau_w,zx_tmp_fi3d)
1116	ENDIF
1117
1118	IF (ok_orodr) THEN
1119	IF (flag_duoro(iff)<=lev_files(iff)) THEN
1120	zx_tmp_fi3d(1:klon,1:klev)=d_u_oro(1:klon,1:klev)/pdtphys
1121	CALL histwrite_phy(nid_files(iff),"duoro",itau_w,zx_tmp_fi3d)
1122	ENDIF
1123
1124	IF (flag_dvoro(iff)<=lev_files(iff)) THEN
1125	zx_tmp_fi3d(1:klon,1:klev)=d_v_oro(1:klon,1:klev)/pdtphys
1126	CALL histwrite_phy(nid_files(iff),"dvoro",itau_w,zx_tmp_fi3d)
1127	ENDIF
1128	ENDIF
1129
1130	IF (ok_orolf) THEN
1131	IF (flag_dulif(iff)<=lev_files(iff)) THEN
1132	zx_tmp_fi3d(1:klon,1:klev)=d_u_lif(1:klon,1:klev)/pdtphys
1133	CALL histwrite_phy(nid_files(iff),"dulif",itau_w,zx_tmp_fi3d)
1134	ENDIF
1135
1136	IF (flag_dvlif(iff)<=lev_files(iff)) THEN
1137	zx_tmp_fi3d(1:klon,1:klev)=d_v_lif(1:klon,1:klev)/pdtphys
1138	CALL histwrite_phy(nid_files(iff),"dvlif",itau_w,zx_tmp_fi3d)
1139	ENDIF
1140	ENDIF
1141
1142	IF (flag_trac(iff)<=lev_files(iff)) THEN
1143	if (nqmax.GE.3) THEN
1144	DO iq=3,nqmax
1145	CALL histwrite_phy(nid_files(iff),tnom(iq),itau_w,qx(:,:,iq))
1146	ENDDO
1147	endif
1148
1149	ENDIF
1150	if (ok_sync) then
1151	c$OMP MASTER
1152	call histsync(nid_files(iff))
1153	c$OMP END MASTER
1154	endif
1155
1156	ENDIF ! clef_files
1157
1158	ENDDO ! iff=1,nfiles

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

Download in other formats: