Context Navigation

spla_output_write.h @ 4250

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

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

Context Navigation

source: LMDZ6/trunk/libf/phylmd/Dust/spla_output_write.h @ 4250

Download in other formats: