Context Navigation

source: LMDZ5/trunk/libf/phylmd/Dust/spla_output_write.h @ 2667

Last change on this file since 2667 was 2630, checked in by fhourdin, 8 years ago
Importation du modèle d'aérosols de Boucher, Escribano et al.
File size: 15.3 KB

Line
1	!! Output SPLA
2	! JE20141223
3	IF(ok_chimeredust) CALL histwrite_phy(o_m1dflux,m1dflux)
4	IF(ok_chimeredust) CALL histwrite_phy(o_m2dflux,m2dflux)
5	IF(ok_chimeredust) CALL histwrite_phy(o_m3dflux,m3dflux)
6	! traceur
7
8	CALL histwrite_phy( o_taue550 , diff_aod550_tot )
9	CALL histwrite_phy( o_taue670 , diag_aod670_tot )
10	CALL histwrite_phy( o_taue865 , diag_aod865_tot )
11	IF(id_fine>0) CALL histwrite_phy( o_taue550_tr2 , diff_aod550_tr2 )
12	IF(id_fine>0) CALL histwrite_phy( o_taue670_tr2 , diag_aod670_tr2 )
13	IF(id_fine>0) CALL histwrite_phy( o_taue865_tr2 , diag_aod865_tr2 )
14	IF(id_coss>0) CALL histwrite_phy( o_taue550_ss , diag_aod550_ss )
15	IF(id_coss>0) CALL histwrite_phy( o_taue670_ss , diag_aod670_ss )
16	IF(id_coss>0) CALL histwrite_phy( o_taue865_ss , diag_aod865_ss )
17	IF(id_codu>0) CALL histwrite_phy( o_taue550_dust , diag_aod550_dust )
18	IF(id_codu>0) CALL histwrite_phy( o_taue670_dust , diag_aod670_dust )
19	IF(id_codu>0) CALL histwrite_phy( o_taue865_dust , diag_aod865_dust )
20	IF(id_scdu>0) CALL histwrite_phy( o_taue550_dustsco , diag_aod550_dustsco )
21	IF(id_scdu>0) CALL histwrite_phy( o_taue670_dustsco , diag_aod670_dustsco )
22	IF(id_scdu>0) CALL histwrite_phy( o_taue865_dustsco , diag_aod865_dustsco )
23	CALL histwrite_phy( o_taue550_aqua , aod550_aqua )
24	CALL histwrite_phy( o_taue550_terra , aod550_terra )
25	CALL histwrite_phy( o_taue670_aqua , aod670_aqua )
26	CALL histwrite_phy( o_taue670_terra , aod670_terra )
27	CALL histwrite_phy( o_taue865_aqua , aod865_aqua )
28	CALL histwrite_phy( o_taue865_terra , aod865_terra )
29
30	IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_aqua ,aod550_tr2_aqua )
31	IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_aqua ,aod670_tr2_aqua )
32	IF(id_fine>0) CALL histwrite_phy( o_taue865_fine_aqua ,aod865_tr2_aqua )
33	IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_aqua ,aod550_ss_aqua )
34	IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_aqua ,aod670_ss_aqua )
35	IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_aqua ,aod865_ss_aqua )
36	IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_aqua ,aod550_dust_aqua )
37	IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_aqua ,aod670_dust_aqua )
38	IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_aqua ,aod865_dust_aqua )
39	IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_aqua ,aod670_dustsco_aqua )
40	IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_aqua ,aod550_dustsco_aqua )
41	IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_aqua ,aod865_dustsco_aqua )
42
43	IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_terra ,aod550_tr2_terra )
44	IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_terra ,aod670_tr2_terra )
45	IF(id_fine>0) CALL histwrite_phy( o_taue865_fine_terra ,aod865_tr2_terra )
46	IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_terra ,aod550_ss_terra )
47	IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_terra ,aod670_ss_terra )
48	IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_terra ,aod865_ss_terra )
49	IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_terra ,aod550_dust_terra )
50	IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_terra ,aod670_dust_terra )
51	IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_terra ,aod865_dust_terra )
52	IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_terra ,aod670_dustsco_terra )
53	IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_terra ,aod550_dustsco_terra )
54	IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_terra ,aod865_dustsco_terra )
55
56
57	IF(id_prec>0) CALL histwrite_phy( o_trm01 , trm01 )
58	IF(id_fine>0) CALL histwrite_phy( o_trm02 , trm02 )
59	IF(id_coss>0) CALL histwrite_phy( o_trm03 , trm03 )
60	IF(id_codu>0) CALL histwrite_phy( o_trm04 , trm04 )
61	IF(id_scdu>0) CALL histwrite_phy( o_trm05 , trm05 )
62	IF(id_prec>0) CALL histwrite_phy( o_sconc01 , sconc01 )
63	IF(id_fine>0) CALL histwrite_phy( o_sconc02 , sconc02 )
64	IF(id_coss>0) CALL histwrite_phy( o_sconc03 , sconc03 )
65	IF(id_codu>0) CALL histwrite_phy( o_sconc04 , sconc04 )
66	IF(id_scdu>0) CALL histwrite_phy( o_sconc05 , sconc05 )
67
68	! Lessivage
69
70	IF(id_prec>0) CALL histwrite_phy( o_flux01 , flux01 )
71	IF(id_fine>0) CALL histwrite_phy( o_flux02 , flux02 )
72	IF(id_coss>0) CALL histwrite_phy( o_flux03 , flux03 )
73	IF(id_codu>0) CALL histwrite_phy( o_flux04 , flux04 )
74	IF(id_scdu>0) CALL histwrite_phy( o_flux05 , flux05 )
75	IF(id_prec>0) CALL histwrite_phy( o_ds01 , ds01 )
76	IF(id_fine>0) CALL histwrite_phy( o_ds02 , ds02 )
77	IF(id_coss>0) CALL histwrite_phy( o_ds03 , ds03 )
78	IF(id_codu>0) CALL histwrite_phy( o_ds04 , ds04 )
79	IF(id_scdu>0) CALL histwrite_phy( o_ds05 , ds05 )
80	IF(id_prec>0) CALL histwrite_phy( o_dh01 , dh01 )
81	IF(id_fine>0) CALL histwrite_phy( o_dh02 , dh02 )
82	IF(id_coss>0) CALL histwrite_phy( o_dh03 , dh03 )
83	IF(id_codu>0) CALL histwrite_phy( o_dh04 , dh04 )
84	IF(id_scdu>0) CALL histwrite_phy( o_dh05 , dh05 )
85	IF(id_prec>0) CALL histwrite_phy( o_dtrconv01 , dtrconv01 )
86	IF(id_fine>0) CALL histwrite_phy( o_dtrconv02 , dtrconv02 )
87	IF(id_coss>0) CALL histwrite_phy( o_dtrconv03 , dtrconv03 )
88	IF(id_codu>0) CALL histwrite_phy( o_dtrconv04 , dtrconv04 )
89	IF(id_scdu>0) CALL histwrite_phy( o_dtrconv05 , dtrconv05 )
90	IF(id_prec>0) CALL histwrite_phy( o_dtherm01 , dtherm01 )
91	IF(id_fine>0) CALL histwrite_phy( o_dtherm02 , dtherm02 )
92	IF(id_coss>0) CALL histwrite_phy( o_dtherm03 , dtherm03 )
93	IF(id_codu>0) CALL histwrite_phy( o_dtherm04 , dtherm04 )
94	IF(id_scdu>0) CALL histwrite_phy( o_dtherm05 , dtherm05 )
95	IF(id_prec>0) CALL histwrite_phy( o_dhkecv01 , dhkecv01 )
96	IF(id_fine>0) CALL histwrite_phy( o_dhkecv02 , dhkecv02 )
97	IF(id_coss>0) CALL histwrite_phy( o_dhkecv03 , dhkecv03 )
98	IF(id_codu>0) CALL histwrite_phy( o_dhkecv04 , dhkecv04 )
99	IF(id_scdu>0) CALL histwrite_phy( o_dhkecv05 , dhkecv05 )
100	IF(id_prec>0) CALL histwrite_phy( o_d_tr_ds01 , d_tr_ds01 )
101	IF(id_fine>0) CALL histwrite_phy( o_d_tr_ds02 , d_tr_ds02 )
102	IF(id_coss>0) CALL histwrite_phy( o_d_tr_ds03 , d_tr_ds03 )
103	IF(id_codu>0) CALL histwrite_phy( o_d_tr_ds04 , d_tr_ds04 )
104	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ds05 , d_tr_ds05 )
105	IF(id_prec>0) CALL histwrite_phy( o_dhkelsc01 , dhkelsc01 )
106	IF(id_fine>0) CALL histwrite_phy( o_dhkelsc02 , dhkelsc02 )
107	IF(id_coss>0) CALL histwrite_phy( o_dhkelsc03 , dhkelsc03 )
108	IF(id_codu>0) CALL histwrite_phy( o_dhkelsc04 , dhkelsc04 )
109	IF(id_scdu>0) CALL histwrite_phy( o_dhkelsc05 , dhkelsc05 )
110	IF(id_prec>0) CALL histwrite_phy( o_d_tr_cv01 , d_tr_cv01 )
111	IF(id_fine>0) CALL histwrite_phy( o_d_tr_cv02 , d_tr_cv02 )
112	IF(id_coss>0) CALL histwrite_phy( o_d_tr_cv03 , d_tr_cv03 )
113	IF(id_codu>0) CALL histwrite_phy( o_d_tr_cv04 , d_tr_cv04 )
114	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cv05 , d_tr_cv05 )
115	IF(id_prec>0) CALL histwrite_phy( o_d_tr_trsp01 , d_tr_trsp01 )
116	IF(id_fine>0) CALL histwrite_phy( o_d_tr_trsp02 , d_tr_trsp02 )
117	IF(id_coss>0) CALL histwrite_phy( o_d_tr_trsp03 , d_tr_trsp03 )
118	IF(id_codu>0) CALL histwrite_phy( o_d_tr_trsp04 , d_tr_trsp04 )
119	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_trsp05 , d_tr_trsp05 )
120	IF(id_prec>0) CALL histwrite_phy( o_d_tr_sscav01 , d_tr_sscav01 )
121	IF(id_fine>0) CALL histwrite_phy( o_d_tr_sscav02 , d_tr_sscav02 )
122	IF(id_coss>0) CALL histwrite_phy( o_d_tr_sscav03 , d_tr_sscav03 )
123	IF(id_codu>0) CALL histwrite_phy( o_d_tr_sscav04 , d_tr_sscav04 )
124	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sscav05 , d_tr_sscav05 )
125	IF(id_prec>0) CALL histwrite_phy( o_d_tr_sat01 , d_tr_sat01 )
126	IF(id_fine>0) CALL histwrite_phy( o_d_tr_sat02 , d_tr_sat02 )
127	IF(id_coss>0) CALL histwrite_phy( o_d_tr_sat03 , d_tr_sat03 )
128	IF(id_codu>0) CALL histwrite_phy( o_d_tr_sat04 , d_tr_sat04 )
129	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sat05 , d_tr_sat05 )
130	IF(id_prec>0) CALL histwrite_phy( o_d_tr_uscav01 , d_tr_uscav01 )
131	IF(id_fine>0) CALL histwrite_phy( o_d_tr_uscav02 , d_tr_uscav02 )
132	IF(id_coss>0) CALL histwrite_phy( o_d_tr_uscav03 , d_tr_uscav03 )
133	IF(id_codu>0) CALL histwrite_phy( o_d_tr_uscav04 , d_tr_uscav04 )
134	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_uscav05 , d_tr_uscav05 )
135	IF(id_prec>0) CALL histwrite_phy( o_d_tr_insc01 , d_tr_insc01 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
136	IF(id_fine>0) CALL histwrite_phy( o_d_tr_insc02 , d_tr_insc02 )
137	IF(id_coss>0) CALL histwrite_phy( o_d_tr_insc03 , d_tr_insc03 )
138	IF(id_codu>0) CALL histwrite_phy( o_d_tr_insc04 , d_tr_insc04 )
139	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_insc05 , d_tr_insc05 )
140	IF(id_prec>0) CALL histwrite_phy( o_d_tr_bcscav01 , d_tr_bcscav01 )
141	IF(id_fine>0) CALL histwrite_phy( o_d_tr_bcscav02 , d_tr_bcscav02 )
142	IF(id_coss>0) CALL histwrite_phy( o_d_tr_bcscav03 , d_tr_bcscav03 )
143	IF(id_codu>0) CALL histwrite_phy( o_d_tr_bcscav04 , d_tr_bcscav04 )
144	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_bcscav05 , d_tr_bcscav05 )
145	IF(id_prec>0) CALL histwrite_phy( o_d_tr_evapls01 , d_tr_evapls01 )
146	IF(id_fine>0) CALL histwrite_phy( o_d_tr_evapls02 , d_tr_evapls02 )
147	IF(id_coss>0) CALL histwrite_phy( o_d_tr_evapls03 , d_tr_evapls03 )
148	IF(id_codu>0) CALL histwrite_phy( o_d_tr_evapls04 , d_tr_evapls04 )
149	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_evapls05 , d_tr_evapls05 )
150	IF(id_prec>0) CALL histwrite_phy( o_d_tr_ls01 , d_tr_ls01 )
151	IF(id_fine>0) CALL histwrite_phy( o_d_tr_ls02 , d_tr_ls02 )
152	IF(id_coss>0) CALL histwrite_phy( o_d_tr_ls03 , d_tr_ls03 )
153	IF(id_codu>0) CALL histwrite_phy( o_d_tr_ls04 , d_tr_ls04 )
154	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ls05 , d_tr_ls05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
155
156
157	IF(id_prec>0) CALL histwrite_phy( o_d_tr_dyn01 , d_tr_dyn01 )
158	IF(id_fine>0) CALL histwrite_phy( o_d_tr_dyn02 , d_tr_dyn02 )
159	IF(id_coss>0) CALL histwrite_phy( o_d_tr_dyn03 , d_tr_dyn03 )
160	IF(id_codu>0) CALL histwrite_phy( o_d_tr_dyn04 , d_tr_dyn04 )
161	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_dyn05 , d_tr_dyn05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
162
163	IF(id_prec>0) CALL histwrite_phy( o_d_tr_cl01 , d_tr_cl01 )
164	IF(id_fine>0) CALL histwrite_phy( o_d_tr_cl02 , d_tr_cl02 )
165	IF(id_coss>0) CALL histwrite_phy( o_d_tr_cl03 , d_tr_cl03 )
166	IF(id_codu>0) CALL histwrite_phy( o_d_tr_cl04 , d_tr_cl04 )
167	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cl05 , d_tr_cl05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
168	IF(id_prec>0) CALL histwrite_phy( o_d_tr_th01 , d_tr_th01 )
169	IF(id_fine>0) CALL histwrite_phy( o_d_tr_th02 , d_tr_th02 )
170	IF(id_coss>0) CALL histwrite_phy( o_d_tr_th03 , d_tr_th03 )
171	IF(id_codu>0) CALL histwrite_phy( o_d_tr_th04 , d_tr_th04 )
172	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_th05 , d_tr_th05 ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
173
174
175	IF(id_coss>0) CALL histwrite_phy( o_sed_ss , sed_ss)
176	IF(id_codu>0) CALL histwrite_phy( o_sed_dust , sed_dust)
177	IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco , sed_dustsco)
178	IF(id_prec>0) CALL histwrite_phy( o_g2p_gas , his_g2pgas )
179	IF(id_fine>0) CALL histwrite_phy( o_g2p_aer , his_g2paer)
180
181	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
182	IF(id_coss>0) CALL histwrite_phy( o_sed_ss3D , sed_ss3D)
183	IF(id_codu>0) CALL histwrite_phy( o_sed_dust3D , sed_dust3D)
184	IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco3D , sed_dustsco3D)
185	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
186	! histrac_spl
187	!
188	CALL histwrite_phy( o_fluxbb , fluxbb )
189	CALL histwrite_phy( o_fluxff , fluxff )
190	CALL histwrite_phy( o_fluxbcbb , fluxbcbb )
191	CALL histwrite_phy( o_fluxbcff , fluxbcff )
192	CALL histwrite_phy( o_fluxbcnff , fluxbcnff )
193	CALL histwrite_phy( o_fluxbcba , fluxbcba )
194	CALL histwrite_phy( o_fluxbc , fluxbc )
195	CALL histwrite_phy( o_fluxombb , fluxombb )
196	CALL histwrite_phy( o_fluxomff , fluxomff )
197	CALL histwrite_phy( o_fluxomnff , fluxomnff )
198	CALL histwrite_phy( o_fluxomba , fluxomba )
199	CALL histwrite_phy( o_fluxomnat , fluxomnat )
200	CALL histwrite_phy( o_fluxom , fluxom )
201	CALL histwrite_phy( o_fluxh2sff , fluxh2sff )
202	CALL histwrite_phy( o_fluxh2snff , fluxh2snff )
203	CALL histwrite_phy( o_fluxso2ff , fluxso2ff )
204	CALL histwrite_phy( o_fluxso2nff , fluxso2nff )
205	CALL histwrite_phy( o_fluxso2bb , fluxso2bb )
206	CALL histwrite_phy( o_fluxso2vol , fluxso2vol )
207	CALL histwrite_phy( o_fluxso2ba , fluxso2ba )
208	CALL histwrite_phy( o_fluxso2 , fluxso2 )
209	CALL histwrite_phy( o_fluxso4ff , fluxso4ff )
210	CALL histwrite_phy( o_fluxso4nff , fluxso4nff )
211	CALL histwrite_phy( o_fluxso4bb , fluxso4bb )
212	CALL histwrite_phy( o_fluxso4ba , fluxso4ba )
213	CALL histwrite_phy( o_fluxso4 , fluxso4 )
214	CALL histwrite_phy( o_fluxdms , fluxdms )
215	CALL histwrite_phy( o_fluxh2sbio , fluxh2sbio )
216	CALL histwrite_phy( o_fluxdustec , fluxdustec )
217	CALL histwrite_phy( o_fluxddfine , fluxddfine )
218	CALL histwrite_phy( o_fluxddcoa , fluxddcoa )
219	CALL histwrite_phy( o_fluxddsco , fluxddsco )
220	CALL histwrite_phy( o_fluxdd , fluxdd )
221	CALL histwrite_phy( o_fluxssfine , fluxssfine )
222	CALL histwrite_phy( o_fluxsscoa , fluxsscoa )
223	CALL histwrite_phy( o_fluxss , fluxss )
224	CALL histwrite_phy( o_flux_sparam_ind , flux_sparam_ind )
225	CALL histwrite_phy( o_flux_sparam_bb , flux_sparam_bb )
226	CALL histwrite_phy( o_flux_sparam_ff , flux_sparam_ff )
227	CALL histwrite_phy( o_flux_sparam_ddfine , flux_sparam_ddfine )
228	CALL histwrite_phy( o_flux_sparam_ddcoa , flux_sparam_ddcoa )
229	CALL histwrite_phy( o_flux_sparam_ddsco , flux_sparam_ddsco )
230	CALL histwrite_phy( o_flux_sparam_ssfine , flux_sparam_ssfine )
231	CALL histwrite_phy( o_flux_sparam_sscoa , flux_sparam_sscoa )
232	CALL histwrite_phy( o_u10m_ss , u10m_ss )
233	CALL histwrite_phy( o_v10m_ss , v10m_ss )
234
235	! CALL histwrite_phy( ,)
236	!
237
238
239
240

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

Download in other formats: