Context Navigation

phytracr_spl_mod.F90 @ 2867

Last change on this file since 2867 was 2648, checked in by fhourdin, 8 years ago
Correction d'un petit bug pour les dusts
File size: 251.4 KB

Line
1	! $Id: physiq.F90 2298 2015-06-14 19:13:32Z fairhead $
2	!#define IO_DEBUG
3
4	MODULE phytracr_spl_mod
5
6
7	! Recuperation des morceaux de la physique de Jeronimo specifiques
8	! du modele d'aerosols d'Olivier n'co.
9	!
10	INCLUDE "chem.h"
11	INCLUDE "chem_spla.h"
12
13	REAL,SAVE :: scale_param_ssacc !Scaling parameter for Fine Sea Salt
14	REAL,SAVE :: scale_param_sscoa !Scaling parameter for Coarse Sea Salt
15
16
17
18	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_ind !Scaling parameter for industrial emissions of SO2
19	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_bb !Scaling parameter for biomas burning (SO2,BC & OM)
20	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_ff !Scaling parameter for industrial emissions (fossil fuel)
21	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_dustacc !Scaling parameter for Fine Dust
22	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_dustcoa !Scaling parameter for Coarse Dust
23	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: scale_param_dustsco !Scaling parameter for SCoarse Dust
24	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: param_wstarBLperregion !parameter for ..
25	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: param_wstarWAKEperregion !parameter for ..
26	!$OMP THREADPRIVATE(scale_param_ind,scale_param_bb,scale_param_ff)
27	!$OMP THREADPRIVATE(scale_param_dustacc,scale_param_dustcoa,scale_param_dustsco)
28	!$OMP THREADPRIVATE(scale_param_ssacc,scale_param_sscoa)
29	!$OMP THREADPRIVATE(param_wstarBLperregion,param_wstarWAKEperregion)
30	REAL, DIMENSION(:),ALLOCATABLE,SAVE ::dust_ec, u10m_ec, v10m_ec
31	!$OMP THREADPRIVATE(dust_ec, u10m_ec, v10m_ec)
32
33	CHARACTER*800 fileregionsdimsind
34	CHARACTER*800 fileregionsdimsdust
35	CHARACTER*800 fileregionsdimsbb
36	CHARACTER*800 fileregionsdimswstar
37	! CHARACTER*800 filescaleparamsind
38	! CHARACTER*800 filescaleparamsdust
39	! CHARACTER*800 filescaleparamsbb
40	CHARACTER*100 paramname_ind
41	CHARACTER*100 paramname_bb
42	CHARACTER*100 paramname_ff
43	CHARACTER*100 paramname_dustacc
44	CHARACTER*100 paramname_dustcoa
45	CHARACTER*100 paramname_dustsco
46	CHARACTER*100 paramname_ssacc
47	CHARACTER*100 paramname_sscoa
48	CHARACTER*100 paramname_wstarBL
49	CHARACTER*100 paramname_wstarWAKE
50
51
52	CHARACTER*800 filescaleparams
53	CHARACTER*800 paramsname
54
55
56	!!------------------------ SULFUR emissions ----------------------------
57	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2volc_cont ! emissions so2 volcan continuous
58	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_altvolc_cont ! altitude so2 volcan continuous
59	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2volc_expl ! emissions so2 volcan explosive
60	!$OMP THREADPRIVATE( lmt_so2volc_cont,lmt_altvolc_cont,lmt_so2volc_expl )
61	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_altvolc_expl ! altitude so2 volcan explosive
62	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2ff_l ! emissions so2 fossil fuel (low)
63	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2ff_h ! emissions so2 fossil fuel (high)
64	!$OMP THREADPRIVATE( lmt_altvolc_expl,lmt_so2ff_l,lmt_so2ff_h )
65	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2nff ! emissions so2 non-fossil fuel
66	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2ba ! emissions de so2 bateau
67	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2bb_l ! emissions de so2 biomass burning (low)
68	!$OMP THREADPRIVATE( lmt_so2nff,lmt_so2ba,lmt_so2bb_l )
69	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_so2bb_h ! emissions de so2 biomass burning (high)
70	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_dmsconc ! concentration de dms oceanique
71	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_dmsbio ! emissions de dms bio
72	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_h2sbio ! emissions de h2s bio
73	!$OMP THREADPRIVATE(lmt_so2bb_h,lmt_dmsconc,lmt_dmsbio,lmt_h2sbio )
74	!------------------------- BLACK CARBON emissions ----------------------
75	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_bcff ! emissions de BC fossil fuels
76	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_bcnff ! emissions de BC non-fossil fuels
77	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_bcbb_l ! emissions de BC biomass basses
78	!$OMP THREADPRIVATE( lmt_bcff,lmt_bcnff,lmt_bcbb_l)
79	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_bcbb_h ! emissions de BC biomass hautes
80	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_bcba ! emissions de BC bateau
81	!$OMP THREADPRIVATE(lmt_bcbb_h,lmt_bcba)
82	!------------------------ ORGANIC MATTER emissions ---------------------
83	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_omff ! emissions de OM fossil fuels
84	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_omnff ! emissions de OM non-fossil fuels
85	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_ombb_l ! emissions de OM biomass basses
86	!$OMP THREADPRIVATE( lmt_omff,lmt_omnff,lmt_ombb_l)
87	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_ombb_h ! emissions de OM biomass hautes
88	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_omnat ! emissions de OM Natural
89	REAL , DIMENSION(:),ALLOCATABLE,SAVE :: lmt_omba ! emissions de OM bateau
90	REAL , DIMENSION(:,:),ALLOCATABLE,SAVE :: lmt_sea_salt ! emissions de OM Natural
91	!$OMP THREADPRIVATE(lmt_ombb_h,lmt_omnat,lmt_omba,lmt_sea_salt)
92
93	!JE20141224 >>
94	! others
95	REAL, DIMENSION(:),ALLOCATABLE,SAVE :: tsol
96	!$OMP THREADPRIVATE(tsol)
97	INTEGER :: ijulday
98	LOGICAL , parameter :: edgar = .true.
99	INTEGER , parameter :: flag_dms=4
100	INTEGER*4 nbjour
101
102	!
103	! Tracer tendencies, for outputs
104	!-------------------------------
105	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_cl ! Td couche
106	!. limite/traceur
107	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_dec
108	!RomP
109	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_cv ! Td
110	!onvection/traceur
111	! RomP >>>
112	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_insc
113	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_bcscav
114	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_evapls
115	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_ls
116	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_trsp
117	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_sscav
118	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_sat
119	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_uscav
120	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: qPr,qDi ! concentration tra
121	!dans pluie,air descente insaturee
122	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: qPa,qMel
123	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: qTrdi,dtrcvMA ! conc traceur
124	!descente air insaturee et td convective MA
125	!! RomP <<<
126	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_th ! Td thermique
127	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_lessi_impa ! Td du
128	!lessivage par impaction
129	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_lessi_nucl ! Td du
130	!lessivage par nucleation
131	REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: qPrls !jyg:
132	!oncentration tra dans pluie LS a la surf.
133	REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: d_tr_dry ! Td depot
134	!sec/traceur (1st layer),ALLOCATABLE,SAVE jyg
135	REAL,DIMENSION(:,:),ALLOCATABLE,SAVE :: flux_tr_dry ! depot
136	!sec/traceur (surface),ALLOCATABLE,SAVE jyg
137
138	! Index of each traceur
139	INTEGER,SAVE :: id_prec, id_fine, id_coss, id_codu, id_scdu
140
141	!$OMP THREADPRIVATE(d_tr_cl,d_tr_dec,d_tr_cv,d_tr_insc,d_tr_bcscav,d_tr_evapls)
142	!$OMP THREADPRIVATE(d_tr_ls,d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav)
143	!$OMP THREADPRIVATE(qPr,qDi,qPa,qMel,qTrdi,dtrcvMA,d_tr_th,d_tr_lessi_impa)
144	!$OMP THREADPRIVATE(d_tr_lessi_nucl,qPrls,d_tr_dry,flux_tr_dry)
145	!$OMP THREADPRIVATE(id_prec,id_fine,id_coss,id_codu,id_scdu)
146
147	! JE20141224 <<
148
149	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diff_aod550_tot ! epaisseur optique total aerosol 550 nm
150	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod670_tot ! epaisseur optique total aerosol 670 nm
151	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod865_tot ! epaisseur optique total aerosol 865 nm
152	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diff_aod550_tr2 ! epaisseur optique Traceur 2 aerosol 550 nm, diagnostic
153	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod670_tr2 ! epaisseur optique Traceur 2 aerosol 670 nm, diagnostic
154	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod865_tr2 ! epaisseur optique Traceur 2 aerosol 865 nm, diagnostic
155	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod550_ss ! epaisseur optique Sels marins aerosol 550 nm, diagnostic
156	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod670_ss ! epaisseur optique Sels marins aerosol 670 nm, diagnostic
157	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod865_ss ! epaisseur optique Sels marins aerosol 865 nm, diagnostic
158	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod550_dust ! epaisseur optique Dust aerosol 550 nm, diagnostic
159	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod670_dust ! epaisseur optique Dust aerosol 670 nm, diagnostic
160	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod865_dust ! epaisseur optique Dust aerosol 865 nm, diagnostic
161	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod550_dustsco ! epaisseur optique Dust SCOarse aerosol 550 nm, diagnostic
162	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod670_dustsco ! epaisseur optique Dust SCOarse aerosol 670 nm, diagnostic
163	REAL,DIMENSION(:),ALLOCATABLE,SAVE :: diag_aod865_dustsco ! epaisseur optique Dust SCOarse aerosol 865 nm, diagnostic
164
165	!$OMP THREADPRIVATE(diff_aod550_tot,diag_aod670_tot,diag_aod865_tot)
166	!$OMP THREADPRIVATE(diff_aod550_tr2,diag_aod670_tr2,diag_aod865_tr2)
167	!$OMP THREADPRIVATE(diag_aod550_ss,diag_aod670_ss,diag_aod865_ss,diag_aod550_dust)
168	!$OMP THREADPRIVATE(diag_aod670_dust,diag_aod865_dust,diag_aod550_dustsco)
169	!$OMP THREADPRIVATE(diag_aod670_dustsco,diag_aod865_dustsco)
170
171
172	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_terra ! AOD at terra overpass time ( 10.30 local hour)
173	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_tr2_terra ! AOD at terra overpass time ( 10.30 local hour)
174	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_ss_terra ! AOD at terra overpass time ( 10.30 local hour)
175	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_dust_terra ! AOD at terra overpass time ( 10.30 local hour)
176	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_dustsco_terra ! AOD at terra overpass time ( 10.30 local hour)
177	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_terra ! AOD at terra overpass time ( 10.30 local hour)
178	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_tr2_terra ! AOD at terra overpass time ( 10.30 local hour)
179	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_ss_terra ! AOD at terra overpass time ( 10.30 local hour)
180	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_dust_terra ! AOD at terra overpass time ( 10.30 local hour)
181	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_dustsco_terra ! AOD at terra overpass time ( 10.30 local hour)
182	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_terra ! AOD at terra overpass time ( 10.30 local hour)
183	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_tr2_terra ! AOD at terra overpass time ( 10.30 local hour)
184	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_ss_terra ! AOD at terra overpass time ( 10.30 local hour)
185	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_dust_terra ! AOD at terra overpass time ( 10.30 local hour)
186	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_dustsco_terra ! AOD at terra overpass time ( 10.30 local hour)
187
188
189	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_aqua ! AOD at aqua overpass time ( 13.30 local hour)
190	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_tr2_aqua ! AOD at aqua overpass time ( 13.30 local hour)
191	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_ss_aqua ! AOD at aqua overpass time ( 13.30 local hour)
192	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_dust_aqua ! AOD at aqua overpass time ( 13.30 local hour)
193	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod550_dustsco_aqua ! AOD at aqua overpass time ( 13.30 local hour)
194	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_aqua ! AOD at aqua overpass time ( 13.30 local hour)
195	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_tr2_aqua ! AOD at aqua overpass time ( 13.30 local hour)
196	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_ss_aqua ! AOD at aqua overpass time ( 13.30 local hour)
197	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_dust_aqua ! AOD at aqua overpass time ( 13.30 local hour)
198	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod670_dustsco_aqua ! AOD at aqua overpass time ( 13.30 local hour)
199	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_aqua ! AOD at aqua overpass time ( 13.30 local hour)
200	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_tr2_aqua ! AOD at aqua overpass time ( 13.30 local hour)
201	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_ss_aqua ! AOD at aqua overpass time ( 13.30 local hour)
202	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_dust_aqua ! AOD at aqua overpass time ( 13.30 local hour)
203	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: aod865_dustsco_aqua ! AOD at aqua overpass time ( 13.30 local hour)
204
205	!$OMP THREADPRIVATE(aod550_aqua,aod550_tr2_aqua,aod550_ss_aqua,aod550_dust_aqua,aod550_dustsco_aqua)
206	!$OMP THREADPRIVATE(aod670_aqua,aod670_tr2_aqua,aod670_ss_aqua,aod670_dust_aqua,aod670_dustsco_aqua)
207	!$OMP THREADPRIVATE(aod865_aqua,aod865_tr2_aqua,aod865_ss_aqua,aod865_dust_aqua,aod865_dustsco_aqua)
208	!$OMP THREADPRIVATE(aod550_terra,aod550_tr2_terra,aod550_ss_terra,aod550_dust_terra,aod550_dustsco_terra)
209	!$OMP THREADPRIVATE(aod670_terra,aod670_tr2_terra,aod670_ss_terra,aod670_dust_terra,aod670_dustsco_terra)
210	!$OMP THREADPRIVATE(aod865_terra,aod865_tr2_terra,aod865_ss_terra,aod865_dust_terra,aod865_dustsco_terra)
211
212
213	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sconc01 ! surface concentration
214	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: trm01 ! burden
215	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sconc02 ! surface concentration
216	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: trm02 ! burden
217	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sconc03 ! surface concentration
218	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: trm03 ! burden
219	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sconc04 ! surface concentration
220	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: trm04 ! burden
221	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sconc05 ! surface concentration
222	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: trm05 ! burden
223	!$OMP THREADPRIVATE(sconc01,sconc02,sconc03,sconc04,sconc05)
224	!$OMP THREADPRIVATE(trm01,trm02,trm03,trm04,trm05)
225	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux01
226	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux02
227	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux03
228	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux04
229	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux05
230	!$OMP THREADPRIVATE(flux01,flux02,flux03,flux04,flux05)
231	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ds01
232	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ds02
233	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ds03
234	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ds04
235	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: ds05
236	!$OMP THREADPRIVATE(ds01,ds02,ds03,ds04,ds05)
237	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dh01
238	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dh02
239	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dh03
240	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dh04
241	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dh05
242	!$OMP THREADPRIVATE(dh01,dh02,dh03,dh04,dh05)
243	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtrconv01
244	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtrconv02
245	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtrconv03
246	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtrconv04
247	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtrconv05
248	!$OMP THREADPRIVATE(dtrconv01,dtrconv02,dtrconv03,dtrconv04,dtrconv05)
249	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtherm01
250	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtherm02
251	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtherm03
252	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtherm04
253	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dtherm05
254	!$OMP THREADPRIVATE(dtherm01,dtherm02,dtherm03,dtherm04,dtherm05)
255	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkecv01
256	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkecv02
257	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkecv03
258	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkecv04
259	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkecv05
260	!$OMP THREADPRIVATE(dhkecv01,dhkecv02,dhkecv03,dhkecv04,dhkecv05)
261	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: d_tr_ds01
262	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: d_tr_ds02
263	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: d_tr_ds03
264	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: d_tr_ds04
265	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: d_tr_ds05
266	!$OMP THREADPRIVATE(d_tr_ds01,d_tr_ds02,d_tr_ds03,d_tr_ds04,d_tr_ds05)
267	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkelsc01
268	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkelsc02
269	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkelsc03
270	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkelsc04
271	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: dhkelsc05
272	!$OMP THREADPRIVATE(dhkelsc01,dhkelsc02,dhkelsc03,dhkelsc04,dhkelsc05)
273	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cv01
274	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cv02
275	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cv03
276	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cv04
277	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cv05
278	!$OMP THREADPRIVATE(d_tr_cv01,d_tr_cv02,d_tr_cv03,d_tr_cv04,d_tr_cv05)
279	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_trsp01
280	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_trsp02
281	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_trsp03
282	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_trsp04
283	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_trsp05
284	!$OMP THREADPRIVATE(d_tr_trsp01,d_tr_trsp02,d_tr_trsp03,d_tr_trsp04,d_tr_trsp05)
285	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sscav01
286	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sscav02
287	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sscav03
288	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sscav04
289	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sscav05
290	!$OMP THREADPRIVATE(d_tr_sscav01,d_tr_sscav02,d_tr_sscav03,d_tr_sscav04,d_tr_sscav05)
291	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sat01
292	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sat02
293	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sat03
294	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sat04
295	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_sat05
296	!$OMP THREADPRIVATE(d_tr_sat01,d_tr_sat02,d_tr_sat03,d_tr_sat04,d_tr_sat05)
297	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_uscav01
298	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_uscav02
299	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_uscav03
300	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_uscav04
301	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_uscav05
302	!$OMP THREADPRIVATE(d_tr_uscav01,d_tr_uscav02,d_tr_uscav03,d_tr_uscav04,d_tr_uscav05)
303
304	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
305	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
306	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
307
308	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_insc01
309	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_insc02
310	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_insc03
311	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_insc04
312	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_insc05
313	!$OMP THREADPRIVATE(d_tr_insc01,d_tr_insc02,d_tr_insc03,d_tr_insc04,d_tr_insc05)
314	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_bcscav01
315	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_bcscav02
316	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_bcscav03
317	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_bcscav04
318	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_bcscav05
319	!$OMP THREADPRIVATE(d_tr_bcscav01,d_tr_bcscav02,d_tr_bcscav03,d_tr_bcscav04,d_tr_bcscav05)
320	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_evapls01
321	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_evapls02
322	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_evapls03
323	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_evapls04
324	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_evapls05
325	!$OMP THREADPRIVATE(d_tr_evapls01,d_tr_evapls02,d_tr_evapls03,d_tr_evapls04,d_tr_evapls05)
326	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_ls01
327	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_ls02
328	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_ls03
329	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_ls04
330	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_ls05
331	!$OMP THREADPRIVATE(d_tr_ls01,d_tr_ls02,d_tr_ls03,d_tr_ls04,d_tr_ls05)
332
333	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_dyn01
334	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_dyn02
335	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_dyn03
336	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_dyn04
337	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_dyn05
338	!$OMP THREADPRIVATE(d_tr_dyn01,d_tr_dyn02,d_tr_dyn03,d_tr_dyn04,d_tr_dyn05)
339
340	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cl01
341	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cl02
342	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cl03
343	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cl04
344	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_cl05
345	!$OMP THREADPRIVATE(d_tr_cl01,d_tr_cl02,d_tr_cl03,d_tr_cl04,d_tr_cl05)
346
347	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_th01
348	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_th02
349	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_th03
350	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_th04
351	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: d_tr_th05
352	!$OMP THREADPRIVATE(d_tr_th01,d_tr_th02,d_tr_th03,d_tr_th04,d_tr_th05)
353
354	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: sed_ss3D ! corresponds to tracer 3
355	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: sed_dust3D ! corresponds to tracer 4
356	REAL, DIMENSION(:,:), ALLOCATABLE, SAVE :: sed_dustsco3D ! corresponds to tracer 4
357	!$OMP THREADPRIVATE(sed_ss3D,sed_dust3D,sed_dustsco3D)
358
359	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
360	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
361	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sed_ss ! corresponds to tracer 3
362	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sed_dust ! corresponds to tracer 4
363	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: sed_dustsco ! corresponds to tracer 4
364	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: his_g2pgas ! corresponds to tracer 4
365	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: his_g2paer ! corresponds to tracer 4
366	!$OMP THREADPRIVATE(sed_ss,sed_dust,sed_dustsco,his_g2pgas,his_g2paer)
367
368	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxbb
369	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxff
370	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxbcbb
371	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxbcff
372	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxbcnff
373	!$OMP THREADPRIVATE(fluxbb,fluxff,fluxbcbb,fluxbcff,fluxbcnff)
374	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxbcba
375	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxbc
376	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxombb
377	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxomff
378	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxomnff
379	!$OMP THREADPRIVATE(fluxbcba,fluxbc,fluxombb,fluxomff,fluxomnff)
380	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxomba
381	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxomnat
382	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxom
383	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxh2sff
384	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxh2snff
385	!$OMP THREADPRIVATE(fluxomba,fluxomnat,fluxom,fluxh2sff,fluxh2snff)
386	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso2ff
387	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso2nff
388	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso2bb
389	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso2vol
390	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso2ba
391	!$OMP THREADPRIVATE(fluxso2ff,fluxso2nff,fluxso2bb,fluxso2vol,fluxso2ba)
392	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso2
393	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso4ff
394	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso4nff
395	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso4bb
396	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso4ba
397	!$OMP THREADPRIVATE(fluxso2,fluxso4ff,fluxso4nff,fluxso4ba,fluxso4bb)
398	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxso4
399	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxdms
400	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxh2sbio
401	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxdustec
402	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxddfine
403	!$OMP THREADPRIVATE(fluxso4,fluxdms,fluxh2sbio,fluxdustec,fluxddfine)
404	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxddcoa
405	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxddsco
406	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxdd
407	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxssfine
408	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxsscoa
409	!$OMP THREADPRIVATE(fluxddcoa,fluxddsco,fluxdd,fluxssfine,fluxsscoa)
410	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: fluxss
411	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_ind
412	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_bb
413	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_ff
414	!$OMP THREADPRIVATE(fluxss,flux_sparam_ind,flux_sparam_bb,flux_sparam_ff)
415	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_ddfine
416	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_ddcoa
417	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_ddsco
418	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_ssfine
419	!$OMP THREADPRIVATE(flux_sparam_ddfine,flux_sparam_ddcoa)
420	!$OMP THREADPRIVATE(flux_sparam_ddsco,flux_sparam_ssfine)
421	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: flux_sparam_sscoa
422	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: u10m_ss
423	REAL, DIMENSION(:), ALLOCATABLE, SAVE :: v10m_ss
424	!$OMP THREADPRIVATE(flux_sparam_sscoa,u10m_ss,v10m_ss)
425
426	! Select dust emission scheme ver the Sahara:
427	! LOGICAL,PARAMETER,SAVE :: ok_chimeredust=.FALSE.
428	LOGICAL,PARAMETER :: ok_chimeredust=.TRUE.
429	!!!!!! !$OMP THREADPRIVATE(ok_chimeredust)
430
431	!OH REAL,SAVE :: scale_param_ssacc !Scaling parameter for Fine Sea Salt
432	!OH REAL,SAVE :: scale_param_sscoa !Scaling parameter for Coarse Sea Salt
433	!OH REAL,ALLOCATABLE,SAVE :: scale_param_ind(nbreg_ind) !Scaling parameter for industrial emissionsi of SO2
434	!OH REAL,ALLOCATABLE,SAVE :: scale_param_bb(nbreg_bb) !Scaling parameter for biomas burning (SO2, BC & OM)
435	!OH REAL,ALLOCATABLE,SAVE :: scale_param_ff(nbreg_ind) !Scaling parameter for industrial emissions (fossil fuel)
436	!OH REAL,ALLOCATABLE,SAVE :: scale_param_dustacc(nbreg_dust) !Scaling parameter for Fine Dust
437	!OH REAL,ALLOCATABLE,SAVE :: scale_param_dustcoa(nbreg_dust) !Scaling parameter for Coarse Dust
438	!OH REAL,ALLOCATABLE,SAVE :: scale_param_dustsco(nbreg_dust) !Scaling parameter for SCoarse Dust
439	!OH REAL,ALLOCATABLE,SAVE :: param_wstarBLperregion(nbreg_wstardust)
440	!OH REAL,ALLOCATABLE,SAVE :: param_wstarWAKEperregion(nbreg_wstardust)
441	!!!! !$OMP THREADPRIVATE( scale_param_ssacc, scale_param_sscoa, scale_param_ind, scale_param_bb, scale_param_ff, scale_param_dustacc, scale_param_dustcoa, scale_param_dustsco, param_wstarBLperregion, param_wstarWAKEperregion)
442
443
444	CONTAINS
445	!
446	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
447	SUBROUTINE phytracr_spl_ini(klon,nbreg_ind,nbreg_bb,nbreg_dust,nbreg_wstardust)
448	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
449
450
451	IMPLICIT NONE
452	INTEGER klon,nbreg_ind,nbreg_bb,nbreg_dust,nbreg_wstardust
453
454	ALLOCATE( tsol(klon) )
455	fileregionsdimsind='regions_ind_meta'
456	fileregionsdimsdust='regions_dustacc_meta'
457	! fileregionsdimsdust='regions_dust_meta'
458	fileregionsdimsbb='regions_bb_meta'
459	fileregionsdimswstar='regions_pwstarwake_meta'
460	call readregionsdims2_spl(nbreg_ind,fileregionsdimsind)
461	call readregionsdims2_spl(nbreg_dust,fileregionsdimsdust)
462	call readregionsdims2_spl(nbreg_bb,fileregionsdimsbb)
463	call readregionsdims2_spl(nbreg_wstardust,fileregionsdimswstar)
464
465	!readregions_spl()
466
467	ALLOCATE(scale_param_ind(nbreg_ind))
468	ALLOCATE(scale_param_bb(nbreg_bb))
469	ALLOCATE(scale_param_ff(nbreg_ind))
470	ALLOCATE(scale_param_dustacc(nbreg_dust))
471	ALLOCATE(scale_param_dustcoa(nbreg_dust))
472	ALLOCATE(scale_param_dustsco(nbreg_dust))
473	ALLOCATE(param_wstarBLperregion(nbreg_wstardust))
474	ALLOCATE(param_wstarWAKEperregion(nbreg_wstardust))
475	ALLOCATE( dust_ec(klon) )
476	ALLOCATE( u10m_ec(klon) )
477	ALLOCATE( v10m_ec(klon) )
478	ALLOCATE( lmt_so2volc_cont(klon) )
479	ALLOCATE( lmt_altvolc_cont(klon) )
480	ALLOCATE( lmt_so2volc_expl(klon) )
481	ALLOCATE( lmt_altvolc_expl(klon) )
482	ALLOCATE( lmt_so2ff_l(klon) )
483	ALLOCATE( lmt_so2ff_h(klon) )
484	ALLOCATE( lmt_so2nff(klon) )
485	ALLOCATE( lmt_so2ba(klon) )
486	ALLOCATE( lmt_so2bb_l(klon) )
487	ALLOCATE( lmt_so2bb_h(klon) )
488	ALLOCATE( lmt_dmsconc(klon) )
489	ALLOCATE( lmt_dmsbio(klon) )
490	ALLOCATE( lmt_h2sbio(klon) )
491	ALLOCATE( lmt_bcff(klon) )
492	ALLOCATE( lmt_bcnff(klon) )
493	ALLOCATE( lmt_bcbb_l(klon) )
494	ALLOCATE( lmt_bcbb_h(klon) )
495	ALLOCATE( lmt_bcba(klon) )
496	ALLOCATE( lmt_omff(klon) )
497	ALLOCATE( lmt_omnff(klon) )
498	ALLOCATE( lmt_ombb_l(klon) )
499	ALLOCATE( lmt_ombb_h(klon) )
500	ALLOCATE( lmt_omnat(klon) )
501	ALLOCATE( lmt_omba(klon) )
502	ALLOCATE(lmt_sea_salt(klon,ss_bins))
503
504
505
506
507	!temporal hardcoded null inicialization of assimilation emmision factors
508	scale_param_ssacc=1.
509	scale_param_sscoa=1.
510	scale_param_ind(:)=1.
511	scale_param_bb(:)=1.
512	scale_param_ff(:)=1.
513	scale_param_dustacc(:)=1.
514	scale_param_dustcoa(:)=1.
515	scale_param_dustsco(:)=1.
516	param_wstarBLperregion(:)=0.
517	param_wstarWAKEperregion(:)=0.
518
519
520
521	RETURN
522	END SUBROUTINE phytracr_spl_ini
523
524
525
526
527	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
528	SUBROUTINE phytracr_spl ( debutphy,lafin,jD_cur,jH_cur,iflag_conv, & ! I
529	pdtphys,ftsol, & ! I
530	t_seri,q_seri,paprs,pplay,RHcl, & ! I
531	pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, & ! I
532	coefh, cdragh, cdragm, yu1, yv1, & ! I
533	u_seri, v_seri, rlat,rlon, & ! I
534	pphis,pctsrf,pmflxr,pmflxs,prfl,psfl, & ! I
535	da,phi,phi2,d1a,dam,mp,ep,sigd,sij,clw,elij, & ! I
536	epmlmMm,eplaMm,upwd,dnwd,itop_con,ibas_con, & ! I
537	evapls,wdtrainA, wdtrainM,wght_cvfd, & ! I
538	fm_therm, entr_therm, rneb, & ! I
539	beta_fisrt,beta_v1, & ! I
540	zu10m,zv10m,wstar,ale_bl,ale_wake, & ! I
541	d_tr_dyn,tr_seri) ! O
542	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
543
544	USE mod_grid_phy_lmdz
545	USE mod_phys_lmdz_para
546	USE IOIPSL
547	USE dimphy
548	USE infotrac
549	USE indice_sol_mod
550	USE write_field_phy
551
552
553	USE mod_phys_lmdz_transfert_para
554
555	USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
556	mth_cur, phys_cal_update
557
558	!
559	IMPLICIT none
560	!
561
562	!======================================================================
563	! Auteur(s) FH
564	! Objet: Moniteur general des tendances traceurs
565	!
566	! Remarques en vrac:
567	! ------------------
568	! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien
569	! les vrais traceurs (nbtr) dans phytrac (pas la vapeur ni eau liquide)
570	!======================================================================
571	#include "dimensions.h"
572	#include "chem.h"
573	#include "chem_spla.h"
574	#include "YOMCST.h"
575	#include "YOETHF.h"
576	#include "paramet.h"
577	#include "thermcell.h"
578
579	!======================================================================
580
581	! Arguments:
582	!
583	! EN ENTREE:
584	! ==========
585	!
586	! divers:
587	! -------
588	!
589	real,intent(in) :: pdtphys ! pas d'integration pour la physique (seconde)
590	REAL, intent(in):: jD_cur, jH_cur
591	real, intent(in) :: ftsol(klon,nbsrf) ! temperature du sol par type
592	real, intent(in) :: t_seri(klon,klev) ! temperature
593	real, intent(in) :: u_seri(klon,klev) ! vent
594	real , intent(in) :: v_seri(klon,klev) ! vent
595	real , intent(in) :: q_seri(klon,klev) ! vapeur d eau kg/kg
596
597	LOGICAL, INTENT(IN) :: lafin
598
599	real tr_seri(klon,klev,nbtr) ! traceur
600	real tmp_var(klon,klev) ! auxiliary variable to replace traceur
601	real tmp_var2(klon,nbtr) ! auxiliary variable to replace source
602	real tmp_var3(klon,klev,nbtr) ! auxiliary variable 3D
603	real dummy1d ! JE auxiliary variable
604	real aux_var2(klon) ! auxiliary variable to replace traceur
605	real aux_var3(klon,klev) ! auxiliary variable to replace traceur
606	real d_tr(klon,klev,nbtr) ! traceur tendance
607	real sconc_seri(klon,nbtr) ! surface concentration of traceur
608	!
609	integer nbjour
610	save nbjour
611	!$OMP THREADPRIVATE(nbjour)
612	!
613	INTEGER masque_aqua_cur(klon)
614	INTEGER masque_terra_cur(klon)
615	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: masque_aqua !mask for 1 day
616	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: masque_terra !
617	!$OMP THREADPRIVATE(masque_aqua,masque_terra)
618	!!$OMP THREADPRIVATE(aod550_aqua,aod550_terra,aod670_aqua,aod670_terra)
619	!!$OMP THREADPRIVATE(aod865_aqua,aod865_terra)
620
621	INTEGER, SAVE :: nbreg_dust, nbreg_ind, nbreg_bb, nbreg_ss,nbreg_wstardust
622	!$OMP THREADPRIVATE(nbreg_dust, nbreg_ind, nbreg_bb,nbreg_ss,nbreg_wstardust)
623
624
625
626	REAL lmt_dms(klon) ! emissions de dms
627
628	!JE20150518<<
629	REAL, DIMENSION(klon_glo) :: aod550_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
630	REAL, DIMENSION(klon_glo) :: aod550_tr2_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
631	REAL, DIMENSION(klon_glo) :: aod550_ss_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
632	REAL, DIMENSION(klon_glo) :: aod550_dust_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
633	REAL, DIMENSION(klon_glo) :: aod550_dustsco_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
634	REAL, DIMENSION(klon_glo) :: aod670_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
635	REAL, DIMENSION(klon_glo) :: aod670_tr2_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
636	REAL, DIMENSION(klon_glo) :: aod670_ss_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
637	REAL, DIMENSION(klon_glo) :: aod670_dust_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
638	REAL, DIMENSION(klon_glo) :: aod670_dustsco_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
639	REAL, DIMENSION(klon_glo) :: aod865_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
640	REAL, DIMENSION(klon_glo) :: aod865_tr2_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
641	REAL, DIMENSION(klon_glo) :: aod865_ss_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
642	REAL, DIMENSION(klon_glo) :: aod865_dust_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
643	REAL, DIMENSION(klon_glo) :: aod865_dustsco_terra_glo ! AOD at terra overpass time ( 10.30 local hour)
644
645	REAL, DIMENSION(klon_glo) :: aod550_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
646	REAL, DIMENSION(klon_glo) :: aod550_tr2_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
647	REAL, DIMENSION(klon_glo) :: aod550_ss_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
648	REAL, DIMENSION(klon_glo) :: aod550_dust_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
649	REAL, DIMENSION(klon_glo) :: aod550_dustsco_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
650	REAL, DIMENSION(klon_glo) :: aod670_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
651	REAL, DIMENSION(klon_glo) :: aod670_tr2_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
652	REAL, DIMENSION(klon_glo) :: aod670_ss_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
653	REAL, DIMENSION(klon_glo) :: aod670_dust_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
654	REAL, DIMENSION(klon_glo) :: aod670_dustsco_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
655	REAL, DIMENSION(klon_glo) :: aod865_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
656	REAL, DIMENSION(klon_glo) :: aod865_tr2_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
657	REAL, DIMENSION(klon_glo) :: aod865_ss_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
658	REAL, DIMENSION(klon_glo) :: aod865_dust_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
659	REAL, DIMENSION(klon_glo) :: aod865_dustsco_aqua_glo ! AOD at aqua overpass time ( 13.30 local hour)
660	!!!!!!!!!!!!!
661	!JE20150518>>
662
663
664
665
666	real , intent(in) :: paprs(klon,klev+1) ! pression pour chaque inter-couche (en Pa)
667	real , intent(in) :: pplay(klon,klev) ! pression pour le mileu de chaque couche (en Pa)
668	real , intent(in) :: RHcl(klon,klev) ! humidite relativen ciel clair
669	real znivsig(klev) ! indice des couches
670	real paire(klon)
671	real, intent(in) :: pphis(klon)
672	real, intent(in) :: pctsrf(klon,nbsrf)
673	logical , intent(in) :: debutphy ! le flag de l'initialisation de la physique
674	!
675	! Scaling Parameters:
676	! ----------------------
677	!
678	CHARACTER*50 c_Directory
679	CHARACTER*80 c_FileName1
680	CHARACTER*80 c_FileName2
681	CHARACTER*130 c_FullName1
682	CHARACTER*130 c_FullName2
683	INTEGER :: xidx, yidx
684	INTEGER,DIMENSION(klon) :: mask_bbreg
685	INTEGER,DIMENSION(klon) :: mask_ffso2reg
686	INTEGER :: aux_mask1
687	INTEGER :: aux_mask2
688	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: iregion_so4 !Defines regions for SO4
689	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: iregion_ind !Defines regions for SO2, BC & OM
690	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: iregion_bb !Defines regions for SO2, BC & OM
691	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: iregion_dust !Defines dust regions
692	INTEGER, DIMENSION(:), ALLOCATABLE, SAVE :: iregion_wstardust !Defines dust regions
693	!$OMP THREADPRIVATE(iregion_so4,iregion_ind,iregion_bb,iregion_dust,iregion_wstardust)
694
695	! Emissions:
696
697	!
698	!---------------------------- SEA SALT & DUST emissions ------------------------
699	REAL lmt_sea_salt(klon,ss_bins) !Sea salt 0.03-8.0 um
700	REAL u10m_ec1(klon),v10m_ec1(klon)
701	REAL u10m_ec2(klon),v10m_ec2(klon),dust_ec2(klon)
702	REAL dust_ec(klon)
703	! new dust emission chimere je20140522
704	REAL,DIMENSION(klon),INTENT(IN) :: zu10m
705	REAL,DIMENSION(klon),INTENT(IN) :: zv10m
706	REAL,DIMENSION(klon),INTENT(IN) :: wstar,ale_bl,ale_wake
707
708
709	!
710	! Rem : nbtr : nombre de vrais traceurs est defini dans dimphy.h
711
712	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
713	!Dynamique
714	!--------
715	REAL,DIMENSION(klon,klev,nbtr),INTENT(IN) :: d_tr_dyn
716
717	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
718	! convection:
719	! -----------
720	!
721	REAL , intent(in) :: pmfu(klon,klev) ! flux de masse dans le panache montant
722	REAL , intent(in) :: pmfd(klon,klev) ! flux de masse dans le panache descendant
723	REAL, intent(in) :: pen_u(klon,klev) ! flux entraine dans le panache montant
724	REAL, intent(in) :: pde_u(klon,klev) ! flux detraine dans le panache montant
725	REAL, intent(in) :: pen_d(klon,klev) ! flux entraine dans le panache descendant
726	REAL, intent(in) :: pde_d(klon,klev) ! flux detraine dans le panache descendant
727	!
728	! Convection KE scheme:
729	! ---------------------
730	!
731	!! Variables pour le lessivage convectif
732	REAL,DIMENSION(klon,klev),INTENT(IN) :: da
733	REAL,DIMENSION(klon,klev,klev),INTENT(IN):: phi
734	REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: phi2
735	REAL,DIMENSION(klon,klev),INTENT(IN) :: d1a,dam
736	REAL,DIMENSION(klon,klev),INTENT(IN) :: mp
737	REAL,DIMENSION(klon,klev),INTENT(IN) :: upwd ! saturated
738	! updraft mass flux
739	REAL,DIMENSION(klon,klev),INTENT(IN) :: dnwd ! saturated
740	! downdraft mass flux
741	INTEGER,DIMENSION(klon),INTENT(IN) :: itop_con
742	INTEGER,DIMENSION(klon),INTENT(IN) :: ibas_con
743	REAL,DIMENSION(klon,klev) :: evapls
744	REAL,DIMENSION(klon,klev),INTENT(IN) :: wdtrainA
745	REAL,DIMENSION(klon,klev),INTENT(IN) :: wdtrainM
746
747
748	REAL,DIMENSION(klon,klev),INTENT(IN) :: ep
749	REAL,DIMENSION(klon),INTENT(IN) :: sigd
750	REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: sij
751	REAL,DIMENSION(klon,klev),INTENT(IN) :: clw
752	REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij
753	REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: epmlmMm
754	REAL,DIMENSION(klon,klev),INTENT(IN) :: eplaMm
755	REAL,DIMENSION(klon,klev),INTENT(IN) :: wght_cvfd !RL
756
757
758	! KE: Tendances de traceurs (Td) et flux de traceurs:
759	! ------------------------
760	REAL,DIMENSION(klon,klev) :: Mint
761	REAL,DIMENSION(klon,klev,nbtr) :: zmfd1a
762	REAL,DIMENSION(klon,klev,nbtr) :: zmfdam
763	REAL,DIMENSION(klon,klev,nbtr) :: zmfphi2
764
765	! !tra dans pluie LS a la surf.
766	! outputs for cvltr_spl
767	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_cv_o
768	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_trsp_o
769	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_sscav_o
770	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_sat_o
771	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_uscav_o
772	!!!!!!!!!!!!!!!!!
773	!!!!!!!!!!!!!!!!!
774	!!!!!!!!!!!!!!!!!
775	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_insc_o
776	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_bcscav_o
777	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_evapls_o
778	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_ls_o
779	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_dyn_o
780	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_cl_o
781	REAL,DIMENSION(:,:,:),ALLOCATABLE,SAVE :: d_tr_th_o
782	!!!!!!!!!!!!!!!!!
783	!!!!!!!!!!!!!!!!!
784	!!!!!!!!!!!!!!!!!
785
786	!$OMP THREADPRIVATE(d_tr_cv_o,d_tr_trsp_o,d_tr_sscav_o,d_tr_sat_o,d_tr_uscav_o)
787	!$OMP THREADPRIVATE(d_tr_insc_o,d_tr_bcscav_o,d_tr_evapls_o,d_tr_ls_o)
788	!$OMP THREADPRIVATE(d_tr_dyn_o,d_tr_cl_o,d_tr_th_o)
789
790
791	INTEGER :: nsplit
792	!
793
794
795
796	!
797	! Lessivage
798	! ---------
799	!
800	REAL, intent(in) :: pmflxr(klon,klev+1), pmflxs(klon,klev+1) !--convection
801	REAL, intent(in) :: prfl(klon,klev+1), psfl(klon,klev+1) !--large-scale
802	! JE REAL pmflxr(klon,klev), pmflxs(klon,klev) !--convection ! Titane
803	! JE REAL prfl(klon,klev), psfl(klon,klev) !--large-scale ! Titane
804	REAL :: ql_incl ! contenu en eau liquide nuageuse dans le nuage ! ql_incl=oliq/rneb
805	REAL :: ql_incloud_ref ! ref value of in-cloud condensed water content
806
807	REAL,DIMENSION(klon,klev),INTENT(IN) :: rneb ! fraction nuageuse (grande echelle)
808	!
809
810	REAL,DIMENSION(klon,klev) :: beta_fisrt ! taux de conversion
811	! ! de l'eau cond (de fisrtilp)
812	REAL,DIMENSION(klon,klev) :: beta_v1 ! -- (originale version)
813	INTEGER,SAVE :: iflag_lscav_omp,iflag_lscav
814	!$OMP THREADPRIVATE(iflag_lscav_omp,iflag_lscav)
815
816
817
818
819	!Thermiques:
820	!----------
821	REAL,DIMENSION(klon,klev+1),INTENT(IN) :: fm_therm
822	REAL,DIMENSION(klon,klev),INTENT(IN) :: entr_therm
823
824
825	!
826	! Couche limite:
827	! --------------
828	!
829	REAL , intent(in) :: coefh(klon,klev) ! coeff melange CL
830	REAL , intent(in) :: cdragh(klon), cdragm(klon)
831	REAL, intent(in) :: yu1(klon) ! vent dans la 1iere couche
832	REAL, intent(in) :: yv1(klon) ! vent dans la 1iere couche
833	!
834	!
835	!----------------------------------------------------------------------
836	REAL his_ds(klon,nbtr)
837	REAL his_dh(klon,nbtr)
838	REAL his_dhlsc(klon,nbtr) ! in-cloud scavenging lsc
839	REAL his_dhcon(klon,nbtr) ! in-cloud scavenging con
840	REAL his_dhbclsc(klon,nbtr) ! below-cloud scavenging lsc
841	REAL his_dhbccon(klon,nbtr) ! below-cloud scavenging con
842	REAL trm(klon,nbtr)
843	!
844	REAL u10m_ec(klon), v10m_ec(klon)
845	!
846	REAL his_th(klon,nbtr)
847	REAL his_dhkecv(klon,nbtr)
848	REAL his_dhkelsc(klon,nbtr)
849
850
851	!
852	! Coordonnees
853	! -----------
854	!
855	REAL, intent(in) :: rlat(klon) ! latitudes pour chaque point
856	REAL, intent(in) :: rlon(klon) ! longitudes pour chaque point
857	!
858	INTEGER i, k, it, j, ig
859	!
860	! DEFINITION OF DIAGNOSTIC VARIABLES
861	!
862	REAL diag_trm(nbtr), diag_drydep(nbtr)
863	REAL diag_wetdep(nbtr), diag_cvtdep(nbtr)
864	REAL diag_emissn(nbtr), diag_g2part
865	REAL diag_sedimt
866	REAL trm_aux(nbtr), src_aux(nbtr)
867	!
868	! Variables locales pour effectuer les appels en serie
869	!----------------------------------------------------
870	REAL source_tr(klon,nbtr)
871	REAL flux_tr(klon,nbtr)
872	REAL m_conc(klon,klev)
873	! REAL sed_ss(klon) ! corresponds to tracer 3
874	! REAL sed_dust(klon) ! corresponds to tracer 4
875	! REAL sed_dustsco(klon) ! corresponds to tracer 4
876	REAL henry(nbtr) !--cste de Henry mol/l/atm
877	REAL kk(nbtr) !--coefficient de var avec T (K)
878	REAL alpha_r(nbtr)!--coefficient d'impaction pour la pluie
879	REAL alpha_s(nbtr)!--coefficient d'impaction pour la neige
880	REAL vdep_oce(nbtr), vdep_sic(nbtr)
881	REAL vdep_ter(nbtr), vdep_lic(nbtr)
882	REAL ccntrAA_spla(nbtr)
883	REAL ccntrENV_spla(nbtr)
884	REAL coefcoli_spla(nbtr)
885	REAL dtrconv(klon,nbtr)
886	REAL zrho(klon,klev), zdz(klon,klev)
887	REAL zalt(klon,klev)
888	REAL,DIMENSION(klon,klev) :: zmasse ! densité atmosphérique
889	! . Kg/m2
890	REAL,DIMENSION(klon,klev) :: ztra_th
891	REAL qmin, qmax, aux
892	! PARAMETER (qmin=0.0, qmax=1.e33)
893	PARAMETER (qmin=1.e33, qmax=-1.e33)
894
895	! Variables to save data into file
896	!----------------------------------
897
898	CHARACTER*2 str2
899	LOGICAL ok_histrac
900	!JE2014124 PARAMETER (ok_histrac=.true.)
901	PARAMETER (ok_histrac=.false.)
902	! PARAMETER (ok_chimeredust=.false.)
903	! PARAMETER (ok_chimeredust=.true.)
904	INTEGER ndex2d(iim(jjm+1)), ndex3d(iim(jjm+1)*klev)
905	INTEGER nhori1, nhori2, nhori3, nhori4, nhori5, nvert
906	INTEGER nid_tra1, nid_tra2, nid_tra3, nid_tra4, nid_tra5
907	SAVE nid_tra1, nid_tra2, nid_tra3, nid_tra4, nid_tra5
908	!$OMP THREADPRIVATE(nid_tra1, nid_tra2, nid_tra3, nid_tra4, nid_tra5)
909	INTEGER itra
910	SAVE itra ! compteur pour la physique
911	!$OMP THREADPRIVATE(itra)
912	INTEGER ecrit_tra, ecrit_tra_h, ecrit_tra_m
913	SAVE ecrit_tra, ecrit_tra_h, ecrit_tra_m
914	!$OMP THREADPRIVATE(ecrit_tra, ecrit_tra_h, ecrit_tra_m)
915	REAL presnivs(klev) ! pressions approximat. des milieux couches ( en PA)
916	REAL zx_tmp_2d(iim,jjm+1), zx_tmp_3d(iim,jjm+1,klev)
917	REAL zx_tmp_fi2d(klon), zx_tmp_fi3d(klon, klev)
918	! REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
919	REAL zx_lon_glo(nbp_lon,nbp_lat), zx_lat_glo(nbp_lon,nbp_lat)
920	REAL zsto, zout, zout_h, zout_m, zjulian
921
922	!------Molar Masses
923	REAL masse(nbtr)
924	!
925	REAL fracso2emis !--fraction so2 emis en so2
926	PARAMETER (fracso2emis=0.95)
927	REAL frach2sofso2 !--fraction h2s from so2
928	PARAMETER (frach2sofso2=0.0426)
929	!
930	! Controles
931	!-------------
932	LOGICAL convection,lessivage,lminmax,lcheckmass
933	DATA convection,lessivage,lminmax,lcheckmass &
934	/.true.,.true.,.true.,.false./
935	!
936	REAL xconv(nbtr)
937	!
938	LOGICAL anthropo, bateau, edgar
939	DATA anthropo,bateau,edgar/.true.,.true.,.true./
940	!
941	!c bc_source
942	INTEGER kminbc, kmaxbc
943	!JE20150715 PARAMETER (kminbc=3, kmaxbc=5)
944	PARAMETER (kminbc=4, kmaxbc=7)
945	!
946	REAL tr1_cont, tr2_cont, tr3_cont, tr4_cont
947	!
948	! JE for updating in cltrac
949	REAL,DIMENSION(klon,klev) :: delp ! epaisseur de couche (Pa)
950	!JE20140507 REAL,DIMENSION(klon,nbtr) :: d_tr_dry ! Td depot sec/traceur (1st layer),ALLOCATABLE,SAVE jyg
951	!JE20140507 REAL,DIMENSION(klon,nbtr) :: flux_tr_dry
952	! SAVE d_tr_dry
953	!! JE for include gas to particle conversion in output
954	! REAL his_g2pgas(klon) ! gastoparticle in gas units (check!)
955	! REAL his_g2paer(klon) ! gastoparticle in aerosol units (check!)
956	!
957	INTEGER ,intent(in) :: iflag_conv
958	LOGICAL iscm3 ! debug variable. for checkmass ! JE
959
960	!------------------------------------------------------------------------
961	! only to compute time consumption of each process
962	!----
963	INTEGER clock_start,clock_end,clock_rate,clock_start_spla
964	INTEGER clock_end_outphytracr,clock_start_outphytracr
965	INTEGER ti_init,dife,ti_inittype,ti_inittwrite
966	INTEGER ti_spla,ti_emis,ti_depo,ti_cltr,ti_ther
967	INTEGER ti_sedi,ti_gasp,ti_wetap,ti_cvltr,ti_lscs,ti_brop,ti_outs
968	INTEGER ti_nophytracr,clock_per_max
969	REAL tia_init,tia_inittype,tia_inittwrite
970	REAL tia_spla,tia_emis,tia_depo,tia_cltr,tia_ther
971	REAL tia_sedi,tia_gasp,tia_wetap,tia_cvltr,tia_lscs
972	REAL tia_brop,tia_outs
973	REAL tia_nophytracr
974
975	SAVE tia_init,tia_inittype,tia_inittwrite
976	SAVE tia_spla,tia_emis,tia_depo,tia_cltr,tia_ther
977	SAVE tia_sedi,tia_gasp,tia_wetap,tia_cvltr,tia_lscs
978	SAVE tia_brop,tia_outs
979	SAVE ti_nophytracr
980	SAVE tia_nophytracr
981	SAVE clock_end_outphytracr,clock_start_outphytracr
982	SAVE clock_per_max
983	LOGICAL logitime
984	!$OMP THREADPRIVATE(tia_init,tia_inittype,tia_inittwrite)
985	!$OMP THREADPRIVATE(tia_spla,tia_emis,tia_depo,tia_cltr,tia_ther)
986	!$OMP THREADPRIVATE(tia_sedi,tia_gasp,tia_wetap,tia_cvltr,tia_lscs)
987	!$OMP THREADPRIVATE(tia_brop,tia_outs)
988	!$OMP THREADPRIVATE(ti_nophytracr)
989	!$OMP THREADPRIVATE(tia_nophytracr)
990	!$OMP THREADPRIVATE(clock_end_outphytracr,clock_start_outphytracr)
991	!$OMP THREADPRIVATE(clock_per_max)
992
993	! utils parallelization
994	REAL :: auxklon_glo(klon_glo)
995	INTEGER :: iauxklon_glo(klon_glo)
996	REAL, DIMENSION(klon_glo,nbp_lev) :: auxklonnbp_lev
997	REAL, DIMENSION(klon_glo,nbp_lev,nbtr) :: auxklonklevnbtr_glo
998	REAL,DIMENSION(nbp_lon,nbp_lat) :: zx_tmp_2d_glo
999	REAL,DIMENSION(nbp_lon,nbp_lat,nbp_lev) :: zx_tmp_3d_glo
1000	REAL,DIMENSION(klon_glo) :: zx_tmp_fi2d_glo
1001	REAL,DIMENSION(klon_glo , nbp_lev) :: zx_tmp_fi3d_glo
1002	REAL,DIMENSION(klon_glo,nbtr) :: auxklonnbtr_glo
1003
1004
1005
1006	source_tr=0.
1007
1008
1009
1010	if (debutphy) then
1011	#ifdef IOPHYS_DUST
1012	CALL iophys_ini
1013	#endif
1014	nbreg_ind=1
1015	nbreg_bb=1
1016	nbreg_dust=1
1017	nbreg_wstardust=1
1018	CALL phytracr_spl_ini(klon,nbreg_ind,nbreg_bb,nbreg_dust,nbreg_wstardust)
1019	endif
1020
1021
1022	#ifdef IOPHYS_DUST
1023	do it=1,nbtr
1024	write(str2,'(i2.2)') it
1025	call iophys_ecrit('TRA'//str2,klev,'SOURCE','',tr_seri(:,:,it))
1026	enddo
1027	#endif
1028
1029
1030
1031
1032	ijulday=jD_cur-jD_1jan+1
1033	nbjour = 1
1034
1035	paramname_ind='ind'
1036	paramname_bb='bb'
1037	paramname_ff='ind'
1038	paramname_dustacc='dustacc'
1039	paramname_dustcoa='dustcoasco'
1040	paramname_dustsco='dustcoasco'
1041	! paramname_dustacc='dust'
1042	! paramname_dustcoa='dust'
1043	! paramname_dustsco='dust'
1044	paramname_wstarBL='pwstarbl'
1045	paramname_wstarWAKE='pwstarwake'
1046	paramname_ssacc='ssacc'
1047	paramname_sscoa='sscoa'
1048
1049	filescaleparams='modvalues.nc'
1050	CALL readscaleparamsnc_spl(scale_param_ind, &
1051	nbreg_ind, paramname_ind, &
1052	scale_param_ff, nbreg_ind,paramname_ff, &
1053	scale_param_bb, nbreg_bb,paramname_bb, &
1054	scale_param_dustacc, nbreg_dust,paramname_dustacc, &
1055	scale_param_dustcoa, nbreg_dust,paramname_dustcoa, &
1056	scale_param_dustsco, nbreg_dust,paramname_dustsco, &
1057	param_wstarBLperregion, nbreg_wstardust, paramname_wstarBL, &
1058	param_wstarWAKEperregion, nbreg_wstardust, paramname_wstarWAKE, &
1059	scale_param_ssacc , paramname_ssacc, &
1060	scale_param_sscoa , paramname_sscoa, &
1061	filescaleparams,ijulday,jH_cur, pdtphys,debutphy)
1062	! add seasalt
1063
1064	print *,'JE : check scale_params'
1065
1066	print *, 'nbreg_ind', nbreg_ind
1067	print *, 'nbreg_dust', nbreg_dust
1068	print *, 'nbreg_bb', nbreg_bb
1069	print *, 'ind', scale_param_ind
1070	print *, 'dustacc', scale_param_dustacc
1071	print *, 'dustcoa', scale_param_dustcoa
1072	print *, 'dustsco', scale_param_dustsco
1073	print *, 'wstardustBL', param_wstarBLperregion
1074	print *, 'wstardustWAKE', param_wstarWAKEperregion
1075	print *, 'ff', scale_param_ff
1076	print *, 'bb', scale_param_bb
1077	print *, 'ssacc', scale_param_ssacc
1078	print *, 'sscoa', scale_param_sscoa
1079
1080	print *,'JE: before read_newemissions '
1081	print *,'JE: jD_cur:',jD_cur,' ijulday:',ijulday,' jH_cur:',jH_cur,' pdtphys:',pdtphys
1082	print *,'JE: now read_newemissions:'
1083	print *,'lmt_so2ff_l AVANT' , MINVAL(lmt_so2ff_l), MAXVAL(lmt_so2ff_l)
1084	call read_newemissions(ijulday,jH_cur ,edgar, flag_dms,debutphy, & !I
1085	pdtphys, lafin, nbjour, pctsrf, & !I
1086	t_seri, rlat, rlon, & !I
1087	pmflxr, pmflxs, prfl, psfl, & !I
1088	u10m_ec, v10m_ec, dust_ec, & !O
1089	lmt_sea_salt, lmt_so2ff_l, & !O
1090	lmt_so2ff_h, lmt_so2nff, & !O
1091	lmt_so2ba, lmt_so2bb_l, lmt_so2bb_h, & !O
1092	lmt_so2volc_cont, lmt_altvolc_cont, & !O
1093	lmt_so2volc_expl, lmt_altvolc_expl, & !O
1094	lmt_dmsbio, lmt_h2sbio, lmt_dmsconc, & !O
1095	lmt_bcff, lmt_bcnff, lmt_bcbb_l, & !O
1096	lmt_bcbb_h, lmt_bcba, lmt_omff, & !O
1097	lmt_omnff, lmt_ombb_l, lmt_ombb_h, & !O
1098	lmt_omnat, lmt_omba) !O
1099
1100
1101	print *,'Check emissions'
1102	print *,'lmt_so2ff_l' , MINVAL(lmt_so2ff_l), MAXVAL(lmt_so2ff_l)
1103	print *,'lmt_so2ff_h' , MINVAL(lmt_so2ff_h), MAXVAL(lmt_so2ff_h)
1104	print *,'lmt_so2nff' , MINVAL(lmt_so2nff), MAXVAL(lmt_so2nff)
1105	print *,'lmt_so2ba' , MINVAL(lmt_so2ba), MAXVAL(lmt_so2ba)
1106	print *,'lmt_so2bb_l' , MINVAL(lmt_so2bb_l), MAXVAL(lmt_so2bb_l)
1107	print *,'lmt_so2bb_h' , MINVAL(lmt_so2bb_h), MAXVAL(lmt_so2bb_h)
1108	print *,'lmt_so2volc_cont' , MINVAL(lmt_so2volc_cont), MAXVAL(lmt_so2volc_cont)
1109	print *,'lmt_altvolc_cont' , MINVAL(lmt_altvolc_cont), MAXVAL(lmt_altvolc_cont)
1110	print *,'lmt_so2volc_expl' , MINVAL(lmt_so2volc_expl), MAXVAL(lmt_so2volc_expl)
1111	print *,'lmt_altvolc_expl' , MINVAL(lmt_altvolc_expl), MAXVAL(lmt_altvolc_expl)
1112	print *,'lmt_dmsbio' , MINVAL(lmt_dmsbio), MAXVAL(lmt_dmsbio)
1113	print *,'lmt_h2sbio' , MINVAL(lmt_h2sbio), MAXVAL(lmt_h2sbio)
1114	print *,'lmt_dmsconc' , MINVAL(lmt_dmsconc), MAXVAL(lmt_dmsconc)
1115	print *,'lmt_bcff' , MINVAL(lmt_bcff), MAXVAL(lmt_bcff)
1116	print *,'lmt_bcnff' , MINVAL(lmt_bcnff), MAXVAL(lmt_bcnff)
1117	print *,'lmt_bcbb_l' , MINVAL(lmt_bcbb_l), MAXVAL(lmt_bcbb_l)
1118	print *,'lmt_bcbb_h' , MINVAL(lmt_bcbb_h), MAXVAL(lmt_bcbb_h)
1119	print *,'lmt_bcba' , MINVAL(lmt_bcba), MAXVAL(lmt_bcba)
1120	print *,'lmt_omff' , MINVAL(lmt_omff), MAXVAL(lmt_omff)
1121	print *,'lmt_omnff' , MINVAL(lmt_omnff), MAXVAL(lmt_omnff)
1122	print *,'lmt_ombb_l' , MINVAL(lmt_ombb_l), MAXVAL(lmt_ombb_l)
1123	print *,'lmt_ombb_h' , MINVAL(lmt_ombb_h), MAXVAL(lmt_ombb_h)
1124	print *,'lmt_omnat' , MINVAL(lmt_omnat), MAXVAL(lmt_omnat)
1125	print *,'lmt_omba' , MINVAL(lmt_omba), MAXVAL(lmt_omba)
1126	print *,'JE iflag_con',iflag_conv
1127
1128
1129	!JE_dbg
1130	do i=1,klon
1131	tsol(i)=0.0
1132	do j=1,nbsrf
1133	tsol(i)=tsol(i)+ftsol(i,j)*pctsrf(i,j)
1134	enddo
1135	enddo
1136
1137
1138	!======================================================================
1139	! INITIALISATIONS
1140	!======================================================================
1141	! CALL checknanqfi(da(:,:),1.,-1.,' da_ before
1142	! . phytracr_inphytracr')
1143
1144	!
1145	! computing time
1146	! logitime=.true.
1147	logitime=.false.
1148	IF (logitime) THEN
1149	clock_start=0
1150	clock_end=0
1151	clock_rate=0
1152	CALL SYSTEM_CLOCK(COUNT_RATE=clock_rate,COUNT_MAX=clock_per_max)
1153	CALL SYSTEM_CLOCK(COUNT=clock_start_spla)
1154	clock_start=clock_start_spla
1155	clock_end_outphytracr=clock_start_spla
1156	ENDIF
1157
1158
1159	! Definition of tracers index.
1160	print*,'OK ON PASSSE BIEN LA'
1161	CALL minmaxsource(source_tr,qmin,qmax,'A1 maxsource init phytracr')
1162
1163
1164	IF (debutphy) THEN
1165	id_prec=-1
1166	id_fine=-1
1167	id_coss=-1
1168	id_codu=-1
1169	id_scdu=-1
1170	!print *,nbtr
1171	do it=1,nbtr
1172	print *, it, tname(it+nqo)
1173	if (tname(it+nqo) == 'PREC' ) then
1174	id_prec=it
1175	endif
1176	if (tname(it+nqo) == 'FINE' ) then
1177	id_fine=it
1178	endif
1179	if (tname(it+nqo) == 'COSS' ) then
1180	id_coss=it
1181	endif
1182	if (tname(it+nqo) == 'CODU' ) then
1183	id_codu=it
1184	endif
1185	if (tname(it+nqo) == 'SCDU' ) then
1186	id_scdu=it
1187	endif
1188	enddo
1189	! check consistency with dust emission scheme:
1190	if (ok_chimeredust) then
1191	if (.not.( id_scdu>0 .and. id_codu>0 .and. id_fine>0)) then
1192	call abort_gcm('phytracr_mod', 'pb in ok_chimdust 0',1)
1193	endif
1194	else
1195	if (id_scdu>0) then
1196	call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1 SCDU',1)
1197	endif
1198	if ( (id_codu .le. 0) .or. ( id_fine.le.0) ) then
1199	call abort_gcm('phytracr_mod', 'pb in ok_chimdust 1',1)
1200	endif
1201	endif
1202
1203
1204	!print *,id_prec,id_fine,id_coss,id_codu,id_scdu
1205	ENDIF
1206
1207
1208
1209
1210
1211
1212	!---fraction of tracer that is convected (Tiedke)
1213	xconv(:)=0.
1214	if(id_prec>0) xconv(id_prec)=0.8
1215	if(id_fine>0) xconv(id_fine)=0.5
1216	if(id_coss>0) xconv(id_coss)=0.5
1217	if(id_codu>0) xconv(id_codu)=0.6
1218	if(id_scdu>0) xconv(id_scdu)=0.6 !!JE fix
1219
1220	masse(:)=1.
1221	if(id_prec>0) masse(id_prec)=32.
1222	if(id_fine>0) masse(id_fine)=6.02e23
1223	if(id_coss>0) masse(id_coss)=6.02e23
1224	if(id_codu>0) masse(id_codu)=6.02e23
1225	if(id_scdu>0) masse(id_scdu)=6.02e23
1226
1227	henry(:)=0.
1228	if(id_prec>0) henry(id_prec)=1.4
1229	if(id_fine>0) henry(id_fine)=0.0
1230	if(id_coss>0) henry(id_coss)=0.0
1231	if(id_codu>0) henry(id_codu)=0.0
1232	if(id_scdu>0) henry(id_scdu)=0.0
1233	!henry= (/1.4, 0.0, 0.0, 0.0/)
1234	kk(:)=0.
1235	if(id_prec>0) kk(id_prec)=2900.
1236	if(id_fine>0) kk(id_fine)=0.0
1237	if(id_coss>0) kk(id_coss)=0.0
1238	if(id_codu>0) kk(id_codu)=0.0
1239	if(id_scdu>0) kk(id_scdu)=0.0
1240	!kk = (/2900., 0., 0., 0./)
1241	alpha_r(:)=0.
1242	if(id_prec>0) alpha_r(id_prec)=0.0
1243	if(id_fine>0) alpha_r(id_fine)=0.001
1244	if(id_coss>0) alpha_r(id_coss)=0.001
1245	if(id_codu>0) alpha_r(id_codu)=0.001
1246	if(id_scdu>0) alpha_r(id_scdu)=0.001 !JE fix
1247	alpha_s(:)=0.
1248	if(id_prec>0) alpha_s(id_prec)=0.0
1249	if(id_fine>0) alpha_s(id_fine)=0.01
1250	if(id_coss>0) alpha_s(id_coss)=0.01
1251	if(id_codu>0) alpha_s(id_codu)=0.01
1252	if(id_scdu>0) alpha_s(id_scdu)=0.01 !JE fix
1253
1254	! alpha_r = (/0., 0.001, 0.001, 0.001/)
1255	! alpha_s = (/0., 0.01, 0.01, 0.01/)
1256
1257	! nhl DATA vdep_oce /0.7, 0.05, 1.2, 1.2/
1258	! nhl vdep_oce for tr1 is a weighted average of dms and so2 dep velocities
1259	!vdep_oce = (/0.28, 0.28, 1.2, 1.2/)
1260	vdep_oce(:)=0.
1261	if(id_prec>0) vdep_oce(id_prec) = 0.28
1262	if(id_fine>0) vdep_oce(id_fine) = 0.28
1263	if(id_coss>0) vdep_oce(id_coss) = 1.2
1264	if(id_codu>0) vdep_oce(id_codu) = 1.2
1265	if(id_scdu>0) vdep_oce(id_scdu) = 1.2
1266	vdep_sic(:)=0.
1267	if(id_prec>0) vdep_sic(id_prec) = 0.2
1268	if(id_fine>0) vdep_sic(id_fine) = 0.17
1269	if(id_coss>0) vdep_sic(id_coss) = 1.2
1270	if(id_codu>0) vdep_sic(id_codu) = 1.2
1271	if(id_scdu>0) vdep_sic(id_scdu) = 1.2
1272
1273	!vdep_sic = (/0.2, 0.17, 1.2, 1.2/)
1274	!vdep_ter = (/0.3, 0.14, 1.2, 1.2/)
1275	vdep_ter(:)=0.
1276	if(id_prec>0) vdep_ter(id_prec) = 0.3
1277	if(id_fine>0) vdep_ter(id_fine) = 0.14
1278	if(id_coss>0) vdep_ter(id_coss) = 1.2
1279	if(id_codu>0) vdep_ter(id_codu) = 1.2
1280	if(id_scdu>0) vdep_ter(id_scdu) = 1.2
1281
1282	vdep_lic(:)=0.
1283	if(id_prec>0) vdep_lic(id_prec) = 0.2
1284	if(id_fine>0) vdep_lic(id_fine) = 0.17
1285	if(id_coss>0) vdep_lic(id_coss) = 1.2
1286	if(id_codu>0) vdep_lic(id_codu) = 1.2
1287	if(id_scdu>0) vdep_lic(id_scdu) = 1.2
1288
1289
1290	! convective KE lessivage aer params:
1291	ccntrAA_spla(:)=0.
1292	if(id_prec>0) ccntrAA_spla(id_prec)=-9999.
1293	if(id_fine>0) ccntrAA_spla(id_fine)=0.7
1294	if(id_coss>0) ccntrAA_spla(id_coss)=1.0
1295	if(id_codu>0) ccntrAA_spla(id_codu)=0.7
1296	if(id_scdu>0) ccntrAA_spla(id_scdu)=0.7
1297
1298	ccntrENV_spla(:)=0.
1299	if(id_prec>0) ccntrENV_spla(id_prec)=-9999.
1300	if(id_fine>0) ccntrENV_spla(id_fine)=0.7
1301	if(id_coss>0) ccntrENV_spla(id_coss)=1.0
1302	if(id_codu>0) ccntrENV_spla(id_codu)=0.7
1303	if(id_scdu>0) ccntrENV_spla(id_scdu)=0.7
1304
1305	coefcoli_spla(:)=0.
1306	if(id_prec>0) coefcoli_spla(id_prec)=-9999.
1307	if(id_fine>0) coefcoli_spla(id_fine)=0.001
1308	if(id_coss>0) coefcoli_spla(id_coss)=0.001
1309	if(id_codu>0) coefcoli_spla(id_codu)=0.001
1310	if(id_scdu>0) coefcoli_spla(id_scdu)=0.001
1311
1312	!vdep_lic = (/0.2, 0.17, 1.2, 1.2/)
1313	!
1314
1315	iscm3=.false.
1316	if (debutphy) then
1317	!$OMP MASTER
1318	CALL suphel
1319	print *, 'let s check nbtr=', nbtr
1320	! JE before put in zero
1321	IF (lminmax) THEN
1322	DO it=1,nbtr
1323	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan init phytracr')
1324	ENDDO
1325	DO it=1,nbtr
1326	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'minmax init phytracr')
1327	ENDDO
1328	CALL minmaxsource(source_tr,qmin,qmax,'maxsource init phytracr')
1329	ENDIF
1330	! JE initializon to cero the tracers
1331	! DO it=1, nbtr
1332	! tr_seri(:,:,it)=0.0
1333	! ENDDO
1334	! JE end
1335	! Initializing to zero tr_seri for comparison purposes
1336	! tr_seri(:,:,:)=0.0
1337	!
1338	! DO it=1,nbtr
1339	! trm_aux(it)=0.0
1340	! src_aux(it)=0.0
1341	! diag_trm(it)=0.0
1342	! diag_drydep(it)=0.0
1343	! diag_wetdep(it)=0.0
1344	! diag_cvtdep(it)=0.0
1345	! diag_emissn(it)=0.0
1346	! ENDDO
1347	! diag_g2part=0.0
1348	print *,'PREPARE FILES TO SAVE VARIABLES'
1349	!
1350	nbjour=30
1351	ecrit_tra = NINT(86400./pdtphys) !--1-day average
1352	ecrit_tra_h = NINT(86400./pdtphys*0.25) !--6-hour average
1353	ecrit_tra_m = NINT(86400./pdtphys*FLOAT(nbjour)) !--1-mth average
1354	print *,'ecrit_tra=', pdtphys, ecrit_tra
1355
1356	IF (ok_histrac) THEN
1357	IF (is_mpi_root .AND. is_omp_root) THEN
1358
1359	itra=0
1360	!
1361	CALL ymds2ju(1900, 1, 1, 0.0, zjulian)
1362	!
1363	! print *, 'klon,iim,jjm+1 = ',klon,iim,jjm+1
1364	print *, 'glo klon,iim,jjm+1 = ',klon_glo,nbp_lon,nbp_lat
1365	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,rlon,zx_lon_glo)
1366	!
1367	! DO i = 1, iim
1368	DO i = 1, nbp_lon
1369	zx_lon_glo(i,1) = rlon(i+1)
1370	zx_lon_glo(i,nbp_lat) = rlon(i+1)
1371	ENDDO
1372	!
1373	CALL histbeg("histrac_spl", nbp_lon,zx_lon_glo, &
1374	nbp_lat,zx_lat_glo, &
1375	1,nbp_lon,1,nbp_lat, 0, zjulian, pdtphys, &
1376	nhori1, nid_tra1)
1377	!
1378	CALL histbeg("lessivage_spl", nbp_lon,zx_lon_glo, &
1379	nbp_lat,zx_lat_glo, &
1380	1,nbp_lon,1,nbp_lat, 0, zjulian, pdtphys, &
1381	nhori2, nid_tra2)
1382	!
1383	CALL histbeg("traceur_spl", nbp_lon,zx_lon_glo, &
1384	nbp_lat,zx_lat_glo, &
1385	1,nbp_lon,1,nbp_lat, 0, zjulian, pdtphys, &
1386	nhori3, nid_tra3)
1387	!
1388	CALL histvert(nid_tra1, "presnivs", "Vertical levels", "mb", &
1389	nbp_lev, presnivs, nvert)
1390	!
1391	CALL histvert(nid_tra2, "presnivs", "Vertical levels", "mb", &
1392	nbp_lev, presnivs, nvert)
1393	!
1394	CALL histvert(nid_tra3, "presnivs", "Vertical levels", "mb", &
1395	nbp_lev, presnivs, nvert)
1396	!
1397	zsto = pdtphys
1398	zout = pdtphys * FLOAT(ecrit_tra)
1399	zout_h = pdtphys * FLOAT(ecrit_tra_h)
1400	zout_m = pdtphys * FLOAT(ecrit_tra_m)
1401	print *,'zsto zout=', zsto, zout
1402
1403	!
1404	!----------------- HISTORY FILES OF TRACER EMISSIONS -------------------
1405	!
1406	! HISTRAC
1407	!
1408	CALL histdef(nid_tra1, "fluxbb", "Flux BB", "mg/m2/s", &
1409	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1410	"ave(X)", zsto,zout)
1411	!
1412	CALL histdef(nid_tra1, "fluxff", "Flux FF", "mg/m2/s", &
1413	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1414	"ave(X)", zsto,zout)
1415	!
1416	CALL histdef(nid_tra1, "fluxbcbb", "Flux BC-BB", "mg/m2/s", &
1417	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1418	"ave(X)", zsto,zout)
1419	!
1420	CALL histdef(nid_tra1, "fluxbcff", "Flux BC-FF", "mg/m2/s", &
1421	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1422	"ave(X)", zsto,zout)
1423	!
1424	CALL histdef(nid_tra1, "fluxbcnff", "Flux BC-NFF", "mg/m2/s", &
1425	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1426	"ave(X)", zsto,zout)
1427	!
1428	CALL histdef(nid_tra1, "fluxbcba", "Flux BC-BA", "mg/m2/s", &
1429	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1430	"ave(X)", zsto,zout)
1431	!
1432	CALL histdef(nid_tra1, "fluxbc", "Flux BC", "mg/m2/s", &
1433	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1434	"ave(X)", zsto,zout)
1435	!
1436	CALL histdef(nid_tra1, "fluxombb", "Flux OM-BB", "mg/m2/s" , &
1437	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1438	"ave(X)", zsto,zout)
1439	!
1440	CALL histdef(nid_tra1, "fluxomff", "Flux OM-FF", "mg/m2/s", &
1441	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1442	"ave(X)", zsto,zout)
1443	!
1444	CALL histdef(nid_tra1, "fluxomnff", "Flux OM-NFF", "mg/m2/s", &
1445	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1446	"ave(X)", zsto,zout)
1447	!
1448	CALL histdef(nid_tra1, "fluxomba", "Flux OM-BA", "mg/m2/s", &
1449	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1450	"ave(X)", zsto,zout)
1451	!
1452	CALL histdef(nid_tra1, "fluxomnat", "Flux OM-NT", "mg/m2/s", &
1453	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1454	"ave(X)", zsto,zout)
1455	!
1456	CALL histdef(nid_tra1, "fluxom", "Flux OM", "mg/m2/s", &
1457	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1458	"ave(X)", zsto,zout)
1459	!
1460	CALL histdef(nid_tra1,"fluxh2sff","Flux H2S FF","mgS/m2/s", &
1461	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1462	"ave(X)", zsto,zout)
1463	!
1464	CALL histdef(nid_tra1,"fluxh2snff","Flux H2S non-FF", &
1465	"mgS/m2/s",nbp_lon,nbp_lat,nhori1, 1,1,1, &
1466	-99, 32, &
1467	"ave(X)", zsto,zout)
1468	!
1469	CALL histdef(nid_tra1,"fluxso2ff","Flux SO2 FF","mgS/m2/s", &
1470	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1471	"ave(X)", zsto,zout)
1472	!
1473	CALL histdef(nid_tra1,"fluxso2nff","Flux SO2 non-FF", &
1474	"mgS/m2/s",nbp_lon,nbp_lat,nhori1, 1,1,1, &
1475	-99, 32, &
1476	"ave(X)", zsto,zout)
1477	!
1478	CALL histdef(nid_tra1, "fluxso2bb", "Flux SO2 BB","mgS/m2/s", &
1479	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1480	"ave(X)", zsto,zout)
1481	!
1482	CALL histdef(nid_tra1,"fluxso2vol","Flux SO2 Vol","mgS/m2/s", &
1483	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1484	"ave(X)", zsto,zout)
1485	!
1486	CALL histdef(nid_tra1, "fluxso2ba", "Flux SO2 Ba","mgS/m2/s", &
1487	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1488	"ave(X)", zsto,zout)
1489	!
1490	CALL histdef(nid_tra1, "fluxso2", "Flux SO2","mgS/m2/s", &
1491	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1492	"ave(X)", zsto,zout)
1493	!
1494	CALL histdef(nid_tra1,"fluxso4ff","Flux SO4 FF","mgS/m2/s", &
1495	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1496	"ave(X)", zsto,zout)
1497	!
1498	CALL histdef(nid_tra1,"fluxso4nff","Flux SO4 non-FF", &
1499	"mgS/m2/s", nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1500	"ave(X)", zsto,zout)
1501	!
1502	CALL histdef(nid_tra1, "fluxso4bb", "Flux SO4 BB","mgS/m2/s", &
1503	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1504	"ave(X)", zsto,zout)
1505	!
1506	CALL histdef(nid_tra1, "fluxso4ba", "Flux SO4 Ba","mgS/m2/s", &
1507	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1508	"ave(X)", zsto,zout)
1509	!
1510	CALL histdef(nid_tra1, "fluxso4", "Flux SO4","mgS/m2/s", &
1511	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1512	"ave(X)", zsto,zout)
1513	!
1514	CALL histdef(nid_tra1, "fluxdms", "Flux DMS", "mgS/m2/s", &
1515	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1516	"ave(X)", zsto,zout)
1517	!
1518	CALL histdef(nid_tra1,"fluxh2sbio","Flux H2S Bio","mgS/m2/s", &
1519	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1520	"ave(X)", zsto,zout)
1521	!
1522	CALL histdef(nid_tra1, "fluxdustec", &
1523	"Flux Dust EC", "mg/m2/s", &
1524	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1525	"ave(X)", zsto,zout)
1526	!
1527	CALL histdef(nid_tra1,"fluxddfine","DD Fine Mode","mg/m2/s", &
1528	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1529	"ave(X)", zsto,zout)
1530	!
1531	CALL histdef(nid_tra1,"fluxddcoa","DD Coarse Mode","mg/m2/s", &
1532	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1533	"ave(X)", zsto,zout)
1534	!
1535	CALL histdef(nid_tra1,"fluxddsco","DD SCoarse Mode","mg/m2/s", &
1536	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1537	"ave(X)", zsto,zout)
1538	!
1539	CALL histdef(nid_tra1,"fluxdd","Flux DD","mg/m2/s", &
1540	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1541	"ave(X)", zsto,zout)
1542	!
1543	CALL histdef(nid_tra1,"fluxssfine","SS Fine Mode","mg/m2/s", &
1544	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1545	"ave(X)", zsto,zout)
1546	!
1547	CALL histdef(nid_tra1,"fluxsscoa","SS Coarse Mode","mg/m2/s", &
1548	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1549	"ave(X)", zsto,zout)
1550	!
1551	CALL histdef(nid_tra1,"fluxss","Flux SS","mg/m2/s", &
1552	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1553	"ave(X)", zsto,zout)
1554	!
1555	!nhl CALL histdef(nid_tra1,"fluxso4chem","SO4 chem prod",
1556	!nhl . "gAer/kgAir",
1557	!nhl . nbp_lon,nbp_lat,nhori1, nbp_lev,1,nbp_lev,nvert, 32,
1558	!nhl . "ave(X)", zsto,zout)
1559	!
1560	CALL histdef(nid_tra1,"flux_sparam_ind","Ind emiss", &
1561	"mg/m2/s", &
1562	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1563	"ave(X)", zsto,zout)
1564	!
1565	CALL histdef(nid_tra1,"flux_sparam_bb","BB emiss", &
1566	"mg/m2/s", &
1567	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1568	"ave(X)", zsto,zout)
1569	!
1570	CALL histdef(nid_tra1,"flux_sparam_ff","FF emiss", &
1571	"mg/m2/s", &
1572	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1573	"ave(X)", zsto,zout)
1574	!
1575	CALL histdef(nid_tra1,"flux_sparam_ddfine","DD fine emiss", &
1576	"mg/m2/s", &
1577	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1578	"ave(X)", zsto,zout)
1579	!
1580	CALL histdef(nid_tra1,"flux_sparam_ddcoa","DD coarse emiss", &
1581	"mg/m2/s", &
1582	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1583	"ave(X)", zsto,zout)
1584	!
1585	CALL histdef(nid_tra1,"flux_sparam_ddsco","DD Scoarse emiss", &
1586	"mg/m2/s", &
1587	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1588	"ave(X)", zsto,zout)
1589	!
1590	CALL histdef(nid_tra1,"flux_sparam_ssfine","SS fine emiss", &
1591	"mg/m2/s", &
1592	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1593	"ave(X)", zsto,zout)
1594	!
1595	CALL histdef(nid_tra1,"flux_sparam_sscoa","SS coarse emiss", &
1596	"mg/m2/s", &
1597	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1598	"ave(X)", zsto,zout)
1599	!
1600	CALL histdef(nid_tra1,"u10m","Zonal wind at 10 m", &
1601	"m/s", &
1602	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1603	"ave(X)", zsto,zout)
1604	!
1605	CALL histdef(nid_tra1,"v10m","Meridional wind at 10 m", &
1606	"m/s", &
1607	nbp_lon,nbp_lat,nhori1, 1,1,1, -99, 32, &
1608	"ave(X)", zsto,zout)
1609	!
1610	!nhl CALL histdef(nid_tra1,"flux_sparam_sulf","SO4 chem prod",
1611	!nhl . "gAer/kgAir",
1612	!nhl . nbp_lon,nbp_lat,nhori1, nbp_lev,1,nbp_lev,nvert, 32,
1613	!nhl . "ave(X)", zsto,zout)
1614	!
1615	! TRACEUR
1616	!
1617	CALL histdef(nid_tra3, "taue550", "Tau ext 550", " ", &
1618	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1619	"ave(X)", zsto,zout)
1620	!
1621	CALL histdef(nid_tra3, "taue670", "Tau ext 670", " ", &
1622	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1623	"ave(X)", zsto,zout)
1624	!
1625	CALL histdef(nid_tra3, "taue865", "Tau ext 865", " ", &
1626	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1627	"ave(X)", zsto,zout)
1628	!
1629	CALL histdef(nid_tra3, "taue550_tr2", "Tau ext 550tr2", " ", &
1630	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1631	"ave(X)", zsto,zout)
1632	!
1633	CALL histdef(nid_tra3, "taue670_tr2", "Tau ext 670tr2", " ", &
1634	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1635	"ave(X)", zsto,zout)
1636	!
1637	CALL histdef(nid_tra3, "taue865_tr2", "Tau ext 865tr2", " ", &
1638	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1639	"ave(X)", zsto,zout)
1640	!
1641	CALL histdef(nid_tra3, "taue550_ss", "Tau ext 550ss", " ", &
1642	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1643	"ave(X)", zsto,zout)
1644	!
1645	CALL histdef(nid_tra3, "taue670_ss", "Tau ext 670ss", " ", &
1646	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1647	"ave(X)", zsto,zout)
1648	!
1649	CALL histdef(nid_tra3, "taue865_ss", "Tau ext 865ss", " ", &
1650	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1651	"ave(X)", zsto,zout)
1652	!
1653	CALL histdef(nid_tra3, "taue550_dust", "Tau ext 550dust", " " &
1654	,nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1655	"ave(X)", zsto,zout)
1656	!
1657	CALL histdef(nid_tra3, "taue670_dust", "Tau ext 670dust", " " &
1658	,nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1659	"ave(X)", zsto,zout)
1660	!
1661	CALL histdef(nid_tra3, "taue865_dust", "Tau ext 865dust", " " &
1662	,nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1663	"ave(X)", zsto,zout)
1664
1665	CALL histdef(nid_tra3, "taue550_dustsco", &
1666	"Tau ext 550dustsco", " " &
1667	,nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1668	"ave(X)", zsto,zout)
1669	!
1670	CALL histdef(nid_tra3, "taue670_dustsco", &
1671	"Tau ext 670dustsco", " " &
1672	,nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1673	"ave(X)", zsto,zout)
1674	!
1675	CALL histdef(nid_tra3, "taue865_dustsco", &
1676	"Tau ext 865dustsco", " " &
1677	,nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1678	"ave(X)", zsto,zout)
1679
1680
1681	CALL histdef(nid_tra3, "taue550_aqua", "Tau ext 550 aqua", " ", &
1682	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1683	"inst(X)", zout,zout)
1684	CALL histdef(nid_tra3, "taue550_terra", "Tau ext 550 terra", " ", &
1685	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1686	"inst(X)", zout,zout)
1687	CALL histdef(nid_tra3, "taue670_aqua", "Tau ext 670 aqua", " ", &
1688	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1689	"inst(X)", zout,zout)
1690	CALL histdef(nid_tra3, "taue670_terra", "Tau ext 670 terra", " ", &
1691	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1692	"inst(X)", zout,zout)
1693	CALL histdef(nid_tra3, "taue865_aqua", "Tau ext 865 aqua", " ", &
1694	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1695	"inst(X)", zout,zout)
1696	CALL histdef(nid_tra3, "taue865_terra", "Tau ext 865 terra", " ", &
1697	nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1698	"inst(X)", zout,zout)
1699
1700
1701	DO it=1, nbtr
1702	!
1703	WRITE(str2,'(i2.2)') it
1704	!
1705	CALL histdef(nid_tra3, "trm"//str2, "Burden No."//str2, &
1706	"mgS/m2", nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1707	"ave(X)", zsto,zout)
1708	!
1709	CALL histdef(nid_tra3, "sconc"//str2, "Surf Conc. No."//str2, &
1710	"mg/m3", nbp_lon,nbp_lat,nhori3, 1,1,1, -99, 32, &
1711	"ave(X)", zsto,zout)
1712	!
1713	! LESSIVAGE
1714	!
1715	CALL histdef(nid_tra2, "flux"//str2, "emission"//str2, &
1716	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1717	"ave(X)", zsto,zout)
1718	!
1719	CALL histdef(nid_tra2, "ds"//str2, "Depot sec No."//str2, &
1720	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1721	"ave(X)", zsto,zout)
1722	!
1723	CALL histdef(nid_tra2,"dh"//str2, &
1724	"Depot hum No."//str2, &
1725	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1726	"ave(X)", zsto,zout)
1727	!
1728	CALL histdef(nid_tra2,"dtrconv"//str2, &
1729	"Tiedke convective"//str2, &
1730	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1731	"ave(X)", zsto,zout)
1732
1733	CALL histdef(nid_tra2,"dtherm"//str2, &
1734	"Thermals dtracer"//str2, &
1735	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1736	"ave(X)", zsto,zout)
1737
1738	CALL histdef(nid_tra2,"dhkecv"//str2, &
1739	"KE dep hum convective"//str2, &
1740	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1741	"ave(X)", zsto,zout)
1742	CALL histdef(nid_tra2,"dhkelsc"//str2, &
1743	"KE dep hum large scale"//str2, &
1744	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1745	"ave(X)", zsto,zout)
1746
1747
1748	CALL histdef(nid_tra2,"d_tr_ds"//str2, &
1749	" Tendance dep sec"//str2, &
1750	"mgS/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, 32, &
1751	"ave(X)", zsto,zout)
1752
1753
1754	CALL histdef(nid_tra2,"d_tr_cv"//str2, &
1755	"cvltr d_tr_cv"//str2, &
1756	"mgS/m2/s", &
1757	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1758	"ave(X)", zsto,zout)
1759	CALL histdef(nid_tra2,"d_tr_trsp"//str2 &
1760	,"cvltr d_tr_trsp"//str2, &
1761	"mgS/m2/s", &
1762	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1763	"ave(X)", zsto,zout)
1764	CALL histdef(nid_tra2,"d_tr_sscav"//str2 &
1765	,"cvltr d_tr_sscav"//str2,"mgS/m2/s", &
1766	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1767	"ave(X)", zsto,zout)
1768	CALL histdef(nid_tra2,"d_tr_sat"//str2 &
1769	,"cvltr d_tr_sat"//str2, &
1770	"mgS/m2/s", &
1771	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1772	"ave(X)", zsto,zout)
1773	CALL histdef(nid_tra2,"d_tr_uscav"//str2, &
1774	"cvltr d_tr_uscav"//str2, &
1775	"mgS/m2/s", &
1776	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1777	"ave(X)", zsto,zout)
1778	CALL histdef(nid_tra2,"d_tr_insc"//str2, & !!!
1779	"cvltr d_tr_insc"//str2, &
1780	"mgS/m2/s", &
1781	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1782	"ave(X)", zsto,zout)
1783	CALL histdef(nid_tra2,"d_tr_bcscav"//str2, &
1784	"cvltr d_tr_bcscav"//str2, &
1785	"mgS/m2/s", &
1786	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1787	"ave(X)", zsto,zout)
1788	CALL histdef(nid_tra2,"d_tr_evapls"//str2, &
1789	"cvltr d_tr_evapls"//str2, &
1790	"mgS/m2/s", &
1791	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1792	"ave(X)", zsto,zout)
1793	CALL histdef(nid_tra2,"d_tr_ls"//str2, &
1794	"cvltr d_tr_ls"//str2, &
1795	"mgS/m2/s", &
1796	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1797	"ave(X)", zsto,zout) !!
1798	CALL histdef(nid_tra2,"d_tr_dyn"//str2, &
1799	"large-scale d_tr_dyn"//str2, &
1800	"mgS/m2/s", &
1801	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1802	"ave(X)", zsto,zout) !!
1803	CALL histdef(nid_tra2,"d_tr_cl"//str2, &
1804	"cvltr d_tr_cl"//str2, &
1805	"mgS/m2/s", &
1806	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1807	"ave(X)", zsto,zout) !!
1808	CALL histdef(nid_tra2,"d_tr_th"//str2, &
1809	"cvltr d_tr_th"//str2, &
1810	"mgS/m2/s", &
1811	nbp_lon,nbp_lat,nhori2, nbp_lev,1,nbp_lev,nvert, 32, &
1812	"ave(X)", zsto,zout) !!
1813
1814
1815
1816	!
1817	ENDDO
1818	!
1819	CALL histdef(nid_tra2, "sed_ss", "Sedmet. Tr3", &
1820	"mg/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, -99, &
1821	32, &
1822	"ave(X)", zsto,zout)
1823	!
1824	CALL histdef(nid_tra2, "sed_dust", "Sedmet. Tr4", &
1825	"mg/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, &
1826	-99, 32, &
1827	"ave(X)", zsto,zout)
1828	!
1829	CALL histdef(nid_tra2, "sed_dustsco", "Sedmet. Tr5", &
1830	"mg/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1, &
1831	-99, 32, &
1832	"ave(X)", zsto,zout)
1833	!
1834	CALL histdef(nid_tra2, "g2p_gas", "Gas2particle gas sink", &
1835	"mg-S/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1,-99, 32, &
1836	"ave(X)", zsto,zout)
1837	!
1838	CALL histdef(nid_tra2, "g2p_aer", "Gas2particle tr2 src", &
1839	"mg/m2/s", nbp_lon,nbp_lat,nhori2, 1,1,1,-99,32, &
1840	"ave(X)", zsto,zout)
1841	!
1842	!-------------------------------------------------------------------
1843	!
1844	CALL histend(nid_tra1)
1845	!
1846	CALL histend(nid_tra2)
1847	!
1848	CALL histend(nid_tra3)
1849	!
1850	!-------------------------------------------------------------------
1851
1852	! nbjour=1
1853	ENDIF ! mpi root
1854	ENDIF !--ok_histrac
1855
1856	!
1857	! IF (.NOT.edgar.AND.bateau) THEN
1858	! PRINT *,'ATTENTION risque de compter double les bateaux'
1859	! STOP
1860	! ENDIF
1861	!
1862	!
1863	!
1864	!$OMP END MASTER
1865	!$OMP BARRIER
1866	endif ! debutphy
1867	!
1868	!======================================================================
1869	! Initialisations
1870	!======================================================================
1871	!
1872	!
1873	! je KE init
1874	IF (debutphy) THEN
1875	!$OMP MASTER
1876
1877	ALLOCATE(d_tr_cl(klon,klev,nbtr),d_tr_dry(klon,nbtr))
1878	ALLOCATE(flux_tr_dry(klon,nbtr),d_tr_dec(klon,klev,nbtr))
1879	ALLOCATE(d_tr_cv(klon,klev,nbtr))
1880	ALLOCATE(d_tr_insc(klon,klev,nbtr),d_tr_bcscav(klon,klev,nbtr))
1881	ALLOCATE(d_tr_evapls(klon,klev,nbtr),d_tr_ls(klon,klev,nbtr))
1882	ALLOCATE(qPrls(klon,nbtr),d_tr_trsp(klon,klev,nbtr))
1883	ALLOCATE(d_tr_sscav(klon,klev,nbtr),d_tr_sat(klon,klev,nbtr))
1884	ALLOCATE(d_tr_uscav(klon,klev,nbtr),qPr(klon,klev,nbtr))
1885	ALLOCATE(qDi(klon,klev,nbtr))
1886	ALLOCATE(qPa(klon,klev,nbtr),qMel(klon,klev,nbtr))
1887	ALLOCATE(qTrdi(klon,klev,nbtr),dtrcvMA(klon,klev,nbtr))
1888	ALLOCATE(d_tr_th(klon,klev,nbtr))
1889	ALLOCATE(d_tr_lessi_impa(klon,klev,nbtr))
1890	ALLOCATE(d_tr_lessi_nucl(klon,klev,nbtr))
1891
1892	ALLOCATE( diff_aod550_tot(klon) )
1893	ALLOCATE( diag_aod670_tot(klon) )
1894	ALLOCATE( diag_aod865_tot(klon) )
1895	ALLOCATE( diff_aod550_tr2(klon) )
1896	ALLOCATE( diag_aod670_tr2(klon) )
1897	ALLOCATE( diag_aod865_tr2(klon) )
1898	ALLOCATE( diag_aod550_ss(klon) )
1899	ALLOCATE( diag_aod670_ss(klon) )
1900	ALLOCATE( diag_aod865_ss(klon) )
1901	ALLOCATE( diag_aod550_dust(klon) )
1902	ALLOCATE( diag_aod670_dust(klon) )
1903	ALLOCATE( diag_aod865_dust(klon) )
1904	ALLOCATE( diag_aod550_dustsco(klon) )
1905	ALLOCATE( diag_aod670_dustsco(klon) )
1906	ALLOCATE( diag_aod865_dustsco(klon) )
1907
1908
1909	ALLOCATE( sconc01(klon) )
1910	ALLOCATE( trm01(klon) )
1911	ALLOCATE( sconc02(klon) )
1912	ALLOCATE( trm02(klon) )
1913	ALLOCATE( sconc03(klon) )
1914	ALLOCATE( trm03(klon) )
1915	ALLOCATE( sconc04(klon) )
1916	ALLOCATE( trm04(klon) )
1917	ALLOCATE( sconc05(klon) )
1918	ALLOCATE( trm05(klon) )
1919
1920
1921	ALLOCATE( flux01(klon) )
1922	ALLOCATE( flux02(klon) )
1923	ALLOCATE( flux03(klon) )
1924	ALLOCATE( flux04(klon) )
1925	ALLOCATE( flux05(klon) )
1926	ALLOCATE( ds01(klon) )
1927	ALLOCATE( ds02(klon) )
1928	ALLOCATE( ds03(klon) )
1929	ALLOCATE( ds04(klon) )
1930	ALLOCATE( ds05(klon) )
1931	ALLOCATE( dh01(klon) )
1932	ALLOCATE( dh02(klon) )
1933	ALLOCATE( dh03(klon) )
1934	ALLOCATE( dh04(klon) )
1935	ALLOCATE( dh05(klon) )
1936	ALLOCATE( dtrconv01(klon) )
1937	ALLOCATE( dtrconv02(klon) )
1938	ALLOCATE( dtrconv03(klon) )
1939	ALLOCATE( dtrconv04(klon) )
1940	ALLOCATE( dtrconv05(klon) )
1941	ALLOCATE( dtherm01(klon) )
1942	ALLOCATE( dtherm02(klon) )
1943	ALLOCATE( dtherm03(klon) )
1944	ALLOCATE( dtherm04(klon) )
1945	ALLOCATE( dtherm05(klon) )
1946	ALLOCATE( dhkecv01(klon) )
1947	ALLOCATE( dhkecv02(klon) )
1948	ALLOCATE( dhkecv03(klon) )
1949	ALLOCATE( dhkecv04(klon) )
1950	ALLOCATE( dhkecv05(klon) )
1951	ALLOCATE( d_tr_ds01(klon) )
1952	ALLOCATE( d_tr_ds02(klon) )
1953	ALLOCATE( d_tr_ds03(klon) )
1954	ALLOCATE( d_tr_ds04(klon) )
1955	ALLOCATE( d_tr_ds05(klon) )
1956	ALLOCATE( dhkelsc01(klon) )
1957	ALLOCATE( dhkelsc02(klon) )
1958	ALLOCATE( dhkelsc03(klon) )
1959	ALLOCATE( dhkelsc04(klon) )
1960	ALLOCATE( dhkelsc05(klon) )
1961	ALLOCATE( d_tr_cv01(klon,klev))
1962	ALLOCATE( d_tr_cv02(klon,klev))
1963	ALLOCATE( d_tr_cv03(klon,klev))
1964	ALLOCATE( d_tr_cv04(klon,klev))
1965	ALLOCATE( d_tr_cv05(klon,klev))
1966	ALLOCATE( d_tr_trsp01(klon,klev))
1967	ALLOCATE( d_tr_trsp02(klon,klev))
1968	ALLOCATE( d_tr_trsp03(klon,klev))
1969	ALLOCATE( d_tr_trsp04(klon,klev))
1970	ALLOCATE( d_tr_trsp05(klon,klev))
1971	ALLOCATE( d_tr_sscav01(klon,klev))
1972	ALLOCATE( d_tr_sscav02(klon,klev))
1973	ALLOCATE( d_tr_sscav03(klon,klev))
1974	ALLOCATE( d_tr_sscav04(klon,klev))
1975	ALLOCATE( d_tr_sscav05(klon,klev))
1976	ALLOCATE( d_tr_sat01(klon,klev))
1977	ALLOCATE( d_tr_sat02(klon,klev))
1978	ALLOCATE( d_tr_sat03(klon,klev))
1979	ALLOCATE( d_tr_sat04(klon,klev))
1980	ALLOCATE( d_tr_sat05(klon,klev))
1981	ALLOCATE( d_tr_uscav01(klon,klev))
1982	ALLOCATE( d_tr_uscav02(klon,klev))
1983	ALLOCATE( d_tr_uscav03(klon,klev))
1984	ALLOCATE( d_tr_uscav04(klon,klev))
1985	ALLOCATE( d_tr_uscav05(klon,klev))
1986
1987	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1988	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1989	ALLOCATE( d_tr_insc01(klon,klev))
1990	ALLOCATE( d_tr_insc02(klon,klev))
1991	ALLOCATE( d_tr_insc03(klon,klev))
1992	ALLOCATE( d_tr_insc04(klon,klev))
1993	ALLOCATE( d_tr_insc05(klon,klev))
1994	ALLOCATE( d_tr_bcscav01(klon,klev))
1995	ALLOCATE( d_tr_bcscav02(klon,klev))
1996	ALLOCATE( d_tr_bcscav03(klon,klev))
1997	ALLOCATE( d_tr_bcscav04(klon,klev))
1998	ALLOCATE( d_tr_bcscav05(klon,klev))
1999	ALLOCATE( d_tr_evapls01(klon,klev))
2000	ALLOCATE( d_tr_evapls02(klon,klev))
2001	ALLOCATE( d_tr_evapls03(klon,klev))
2002	ALLOCATE( d_tr_evapls04(klon,klev))
2003	ALLOCATE( d_tr_evapls05(klon,klev))
2004	ALLOCATE( d_tr_ls01(klon,klev))
2005	ALLOCATE( d_tr_ls02(klon,klev))
2006	ALLOCATE( d_tr_ls03(klon,klev))
2007	ALLOCATE( d_tr_ls04(klon,klev))
2008	ALLOCATE( d_tr_ls05(klon,klev))
2009	ALLOCATE( d_tr_dyn01(klon,klev))
2010	ALLOCATE( d_tr_dyn02(klon,klev))
2011	ALLOCATE( d_tr_dyn03(klon,klev))
2012	ALLOCATE( d_tr_dyn04(klon,klev))
2013	ALLOCATE( d_tr_dyn05(klon,klev))
2014	ALLOCATE( d_tr_cl01(klon,klev))
2015	ALLOCATE( d_tr_cl02(klon,klev))
2016	ALLOCATE( d_tr_cl03(klon,klev))
2017	ALLOCATE( d_tr_cl04(klon,klev))
2018	ALLOCATE( d_tr_cl05(klon,klev))
2019	ALLOCATE( d_tr_th01(klon,klev))
2020	ALLOCATE( d_tr_th02(klon,klev))
2021	ALLOCATE( d_tr_th03(klon,klev))
2022	ALLOCATE( d_tr_th04(klon,klev))
2023	ALLOCATE( d_tr_th05(klon,klev))
2024
2025	ALLOCATE( sed_ss3D(klon,klev))
2026	ALLOCATE( sed_dust3D(klon,klev))
2027	ALLOCATE( sed_dustsco3D(klon,klev))
2028
2029	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2030	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2031
2032	ALLOCATE( sed_ss(klon))
2033	ALLOCATE( sed_dust(klon))
2034	ALLOCATE( sed_dustsco(klon))
2035	ALLOCATE( his_g2pgas(klon))
2036	ALLOCATE( his_g2paer(klon))
2037
2038	ALLOCATE( fluxbb(klon))
2039	ALLOCATE( fluxff(klon))
2040	ALLOCATE( fluxbcbb(klon))
2041	ALLOCATE( fluxbcff(klon))
2042	ALLOCATE( fluxbcnff(klon))
2043	ALLOCATE( fluxbcba(klon))
2044	ALLOCATE( fluxbc(klon))
2045	ALLOCATE( fluxombb(klon))
2046	ALLOCATE( fluxomff(klon))
2047	ALLOCATE( fluxomnff(klon))
2048	ALLOCATE( fluxomba(klon))
2049	ALLOCATE( fluxomnat(klon))
2050	ALLOCATE( fluxom(klon))
2051	ALLOCATE( fluxh2sff(klon))
2052	ALLOCATE( fluxh2snff(klon))
2053	ALLOCATE( fluxso2ff(klon))
2054	ALLOCATE( fluxso2nff(klon))
2055	ALLOCATE( fluxso2bb(klon))
2056	ALLOCATE( fluxso2vol(klon))
2057	ALLOCATE( fluxso2ba(klon))
2058	ALLOCATE( fluxso2(klon))
2059	ALLOCATE( fluxso4ff(klon))
2060	ALLOCATE( fluxso4nff(klon))
2061	ALLOCATE( fluxso4bb(klon))
2062	ALLOCATE( fluxso4ba(klon))
2063	ALLOCATE( fluxso4(klon))
2064	ALLOCATE( fluxdms(klon))
2065	ALLOCATE( fluxh2sbio(klon))
2066	ALLOCATE( fluxdustec(klon))
2067	ALLOCATE( fluxddfine(klon))
2068	ALLOCATE( fluxddcoa(klon))
2069	ALLOCATE( fluxddsco(klon))
2070	ALLOCATE( fluxdd(klon))
2071	ALLOCATE( fluxssfine(klon))
2072	ALLOCATE( fluxsscoa(klon))
2073	ALLOCATE( fluxss(klon))
2074	ALLOCATE( flux_sparam_ind(klon))
2075	ALLOCATE( flux_sparam_bb(klon))
2076	ALLOCATE( flux_sparam_ff(klon))
2077	ALLOCATE( flux_sparam_ddfine(klon))
2078	ALLOCATE( flux_sparam_ddcoa(klon))
2079	ALLOCATE( flux_sparam_ddsco(klon))
2080	ALLOCATE( flux_sparam_ssfine(klon))
2081	ALLOCATE( flux_sparam_sscoa(klon))
2082	ALLOCATE( u10m_ss(klon))
2083	ALLOCATE( v10m_ss(klon))
2084
2085
2086	ALLOCATE(d_tr_cv_o(klon,klev,nbtr))
2087	ALLOCATE(d_tr_trsp_o(klon,klev,nbtr))
2088	ALLOCATE(d_tr_sscav_o(klon,klev,nbtr), &
2089	d_tr_sat_o(klon,klev,nbtr))
2090	ALLOCATE(d_tr_uscav_o(klon,klev,nbtr))
2091
2092	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2093	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2094	ALLOCATE(d_tr_insc_o(klon,klev,nbtr))
2095	ALLOCATE(d_tr_bcscav_o(klon,klev,nbtr))
2096	ALLOCATE(d_tr_evapls_o(klon,klev,nbtr))
2097	ALLOCATE(d_tr_ls_o(klon,klev,nbtr))
2098	ALLOCATE(d_tr_dyn_o(klon,klev,nbtr))
2099	ALLOCATE(d_tr_cl_o(klon,klev,nbtr))
2100	ALLOCATE(d_tr_th_o(klon,klev,nbtr))
2101	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2102	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2103	ALLOCATE(iregion_so4(klon))
2104	ALLOCATE(iregion_bb(klon))
2105	ALLOCATE(iregion_ind(klon))
2106	ALLOCATE(iregion_dust(klon))
2107	ALLOCATE(iregion_wstardust(klon))
2108
2109	!JE20150518<<
2110	ALLOCATE(masque_aqua(klon))
2111	ALLOCATE(masque_terra(klon))
2112	! ALLOCATE(aod550_aqua(klon))
2113	! ALLOCATE(aod550_terra(klon))
2114	! ALLOCATE(aod670_aqua(klon))
2115	! ALLOCATE(aod670_terra(klon))
2116	! ALLOCATE(aod865_aqua(klon))
2117	! ALLOCATE(aod865_terra(klon))
2118
2119	ALLOCATE( aod550_terra(klon))
2120	ALLOCATE( aod550_tr2_terra(klon))
2121	ALLOCATE( aod550_ss_terra(klon))
2122	ALLOCATE( aod550_dust_terra(klon))
2123	ALLOCATE( aod550_dustsco_terra(klon))
2124	ALLOCATE( aod670_terra(klon))
2125	ALLOCATE( aod670_tr2_terra(klon))
2126	ALLOCATE( aod670_ss_terra(klon))
2127	ALLOCATE( aod670_dust_terra(klon))
2128	ALLOCATE( aod670_dustsco_terra(klon))
2129	ALLOCATE( aod865_terra(klon))
2130	ALLOCATE( aod865_tr2_terra(klon))
2131	ALLOCATE( aod865_ss_terra(klon))
2132	ALLOCATE( aod865_dust_terra(klon))
2133	ALLOCATE( aod865_dustsco_terra(klon))
2134
2135	ALLOCATE( aod550_aqua(klon))
2136	ALLOCATE( aod550_tr2_aqua(klon))
2137	ALLOCATE( aod550_ss_aqua(klon))
2138	ALLOCATE( aod550_dust_aqua(klon))
2139	ALLOCATE( aod550_dustsco_aqua(klon))
2140	ALLOCATE( aod670_aqua(klon))
2141	ALLOCATE( aod670_tr2_aqua(klon))
2142	ALLOCATE( aod670_ss_aqua(klon))
2143	ALLOCATE( aod670_dust_aqua(klon))
2144	ALLOCATE( aod670_dustsco_aqua(klon))
2145	ALLOCATE( aod865_aqua(klon))
2146	ALLOCATE( aod865_tr2_aqua(klon))
2147	ALLOCATE( aod865_ss_aqua(klon))
2148	ALLOCATE( aod865_dust_aqua(klon))
2149	ALLOCATE( aod865_dustsco_aqua(klon))
2150
2151
2152	masque_aqua(:)=0
2153	masque_terra(:)=0
2154	! aod550_aqua(:)=0.
2155	! aod550_terra(:)=0.
2156	! aod670_aqua(:)=0.
2157	! aod670_terra(:)=0.
2158	! aod865_aqua(:)=0.
2159	! aod865_terra(:)=0.
2160
2161	aod550_terra(:)=0.
2162	aod550_tr2_terra(:)=0.
2163	aod550_ss_terra(:)=0.
2164	aod550_dust_terra(:)=0.
2165	aod550_dustsco_terra(:)=0.
2166	aod670_terra(:)=0.
2167	aod670_tr2_terra(:)=0.
2168	aod670_ss_terra(:)=0.
2169	aod670_dust_terra(:)=0.
2170	aod670_dustsco_terra(:)=0.
2171	aod865_terra(:)=0.
2172	aod865_tr2_terra(:)=0.
2173	aod865_ss_terra(:)=0.
2174	aod865_dust_terra(:)=0.
2175	aod865_dustsco_terra(:)=0.
2176	aod550_aqua(:)=0.
2177	aod550_tr2_aqua(:)=0.
2178	aod550_ss_aqua(:)=0.
2179	aod550_dust_aqua(:)=0.
2180	aod550_dustsco_aqua(:)=0.
2181	aod670_aqua(:)=0.
2182	aod670_tr2_aqua(:)=0.
2183	aod670_ss_aqua(:)=0.
2184	aod670_dust_aqua(:)=0.
2185	aod670_dustsco_aqua(:)=0.
2186	aod865_aqua(:)=0.
2187	aod865_tr2_aqua(:)=0.
2188	aod865_ss_aqua(:)=0.
2189	aod865_dust_aqua(:)=0.
2190	aod865_dustsco_aqua(:)=0.
2191	!JE20150518>>
2192
2193
2194
2195
2196
2197	!
2198	!Config Key = iflag_lscav
2199	!Config Desc = Large scale scavenging parametrization: 0=none,
2200	!1=old(Genthon92),
2201	! 2=1+PHeinrich, 3=Reddy_Boucher2004, 4=3+RPilon.
2202	!Config Def = 4
2203	!Config
2204	iflag_lscav_omp=4
2205	call getin('iflag_lscav', iflag_lscav_omp)
2206	iflag_lscav=iflag_lscav_omp
2207	! initialiation for time computation
2208
2209	tia_spla=0.
2210	tia_emis=0.
2211	tia_depo=0.
2212	tia_cltr=0.
2213	tia_ther=0.
2214	tia_sedi=0.
2215	tia_gasp=0.
2216	tia_wetap=0.
2217	tia_cvltr=0.
2218	tia_lscs=0.
2219	tia_brop=0.
2220	tia_outs=0.
2221	tia_nophytracr=0.
2222	clock_start_outphytracr=clock_end_outphytracr+1
2223	!$OMP END MASTER
2224	!$OMP BARRIER
2225	ENDIF ! debutphy
2226
2227	lmt_dms(:)=0.0
2228	aux_var2(:)=0.0
2229	aux_var3(:,:)=0.0
2230	source_tr(:,:)=0.0
2231	flux_tr(:,:)=0.0
2232	flux_sparam_bb(:)=0.0
2233	flux_sparam_ff(:)=0.0
2234	flux_sparam_ind(:)=0.0
2235	flux_sparam_ddfine(:)=0.0
2236	flux_sparam_ddcoa(:)=0.0
2237	flux_sparam_ddsco(:)=0.0
2238	flux_sparam_ssfine(:)=0.0
2239	flux_sparam_sscoa(:)=0.0
2240
2241	! initialiation for time computation
2242
2243	ti_spla=0
2244	ti_emis=0
2245	ti_depo=0
2246	ti_cltr=0
2247	ti_ther=0
2248	ti_sedi=0
2249	ti_gasp=0
2250	ti_wetap=0
2251	ti_cvltr=0
2252	ti_lscs=0
2253	ti_brop=0
2254	ti_outs=0
2255
2256
2257	DO k=1,klev
2258	DO i=1,klon
2259	Mint(i,k)=0.
2260	END DO
2261	END DO
2262
2263
2264	!
2265	DO it=1, nbtr
2266	DO k=1,klev
2267	DO i=1,klon
2268	d_tr_cv(i,k,it)=0.
2269	d_tr_trsp(i,k,it)=0.
2270	d_tr_sscav(i,k,it)=0.
2271	d_tr_sat(i,k,it)=0.
2272	d_tr_uscav(i,k,it)=0.
2273	d_tr(i,k,it)=0.
2274	d_tr_insc(i,k,it)=0.
2275	d_tr_bcscav(i,k,it)=0.
2276	d_tr_evapls(i,k,it)=0.
2277	d_tr_ls(i,k,it)=0.
2278	d_tr_cl(i,k,it)=0.
2279	d_tr_th(i,k,it)=0.
2280
2281	d_tr_cv_o(i,k,it)=0.
2282	d_tr_trsp_o(i,k,it)=0.
2283	d_tr_sscav_o(i,k,it)=0.
2284	d_tr_sat_o(i,k,it)=0.
2285	d_tr_uscav_o(i,k,it)=0.
2286
2287
2288	qDi(i,k,it)=0.
2289	qPr(i,k,it)=0.
2290	qPa(i,k,it)=0.
2291	qMel(i,k,it)=0.
2292	qTrdi(i,k,it)=0.
2293	dtrcvMA(i,k,it)=0.
2294	zmfd1a(i,k,it)=0.
2295	zmfdam(i,k,it)=0.
2296	zmfphi2(i,k,it)=0.
2297	END DO
2298	END DO
2299	END DO
2300
2301
2302	DO it=1, nbtr
2303	DO i=1,klon
2304	qPrls(i,it)=0.0
2305	dtrconv(i,it)=0.0
2306	!JE20140507<<
2307	d_tr_dry(i,it)=0.0
2308	flux_tr_dry(i,it)=0.0
2309	!JE20140507>>
2310	ENDDO
2311	ENDDO
2312
2313	DO it=1, nbtr
2314	DO i=1, klon
2315	his_dh(i,it)=0.0
2316	his_dhlsc(i,it)=0.0
2317	his_dhcon(i,it)=0.0
2318	his_dhbclsc(i,it)=0.0
2319	his_dhbccon(i,it)=0.0
2320	trm(i,it)=0.0
2321	his_th(i,it)=0.0
2322	his_dhkecv(i,it)=0.0
2323	his_ds(i,it)=0.0
2324	his_dhkelsc(i,it)=0.0
2325
2326	ENDDO
2327	ENDDO
2328	!JE:
2329	DO i=1, klon
2330	his_g2pgas(i) = 0.0
2331	his_g2paer(i) = 0.0
2332	ENDDO
2333	! endJE
2334	!
2335
2336	DO k=1, klev
2337	DO i = 1, klon
2338	zrho(i,k)=pplay(i,k)/t_seri(i,k)/RD
2339	zdz(i,k)=(paprs(i,k)-paprs(i,k+1))/zrho(i,k)/RG
2340	zmasse(i,k)=(paprs(i,k)-paprs(i,k+1))/RG
2341	ENDDO
2342	ENDDO
2343	!
2344	DO i = 1, klon
2345	zalt(i,1)=pphis(i)/RG
2346	ENDDO
2347	DO k=1, klev-1
2348	DO i = 1, klon
2349	zalt(i,k+1)=zalt(i,k)+zdz(i,k)
2350	ENDDO
2351	ENDDO
2352
2353
2354
2355	IF (logitime) THEN
2356	CALL SYSTEM_CLOCK(COUNT=clock_end)
2357	dife=clock_end-clock_start
2358	ti_init=dife*MAX(0,SIGN(1,dife)) &
2359	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
2360	tia_init=tia_init+REAL(ti_init)/REAL(clock_rate)
2361	ENDIF
2362	IF (logitime) THEN
2363	CALL SYSTEM_CLOCK(COUNT=clock_start)
2364	ENDIF
2365
2366
2367
2368	IF (debutphy) then
2369
2370	c_FullName1='regions_dustacc'
2371	!c_FullName1='regions_dust'
2372	call readregions_spl(iregion_dust,c_FullName1)
2373	c_FullName1='regions_ind'
2374	call readregions_spl(iregion_ind,c_FullName1)
2375	c_FullName1='regions_bb'
2376	call readregions_spl(iregion_bb,c_FullName1)
2377	c_FullName1='regions_pwstarwake'
2378	call readregions_spl(iregion_wstardust,c_FullName1)
2379
2380	!$OMP MASTER
2381	IF (is_mpi_root .AND. is_omp_root) THEN
2382
2383	OPEN(25,FILE='dustregions_pyvar_je.data')
2384	OPEN(55,FILE='indregions_pyvar_je.data')
2385	OPEN(75,FILE='bbregions_pyvar_je.data')
2386	OPEN(95,FILE='wstardustregions_pyvar_je.data')
2387	OPEN(76,FILE='xlat.data')
2388	OPEN(77,FILE='xlon.data')
2389	ENDIF ! mpi root
2390	!$OMP END MASTER
2391	!$OMP BARRIER
2392
2393	CALL gather(iregion_dust,iauxklon_glo)
2394	!$OMP MASTER
2395	IF (is_mpi_root .AND. is_omp_root) THEN
2396	DO k=1,klon_glo
2397	WRITE(25,'(i10)') iauxklon_glo(k)
2398	ENDDO
2399	ENDIF ! mpi root
2400	!$OMP END MASTER
2401	!$OMP BARRIER
2402	CALL gather(iregion_ind,iauxklon_glo)
2403	!$OMP MASTER
2404	IF (is_mpi_root .AND. is_omp_root) THEN
2405	DO k=1,klon_glo
2406	WRITE(55,'(i10)') iauxklon_glo(k)
2407	ENDDO
2408	ENDIF ! mpi root
2409	!$OMP END MASTER
2410	!$OMP BARRIER
2411	CALL gather(iregion_bb,iauxklon_glo)
2412	!$OMP MASTER
2413	IF (is_mpi_root .AND. is_omp_root) THEN
2414	DO k=1,klon_glo
2415	WRITE(75,'(i10)') iauxklon_glo(k)
2416	ENDDO
2417	ENDIF ! mpi root
2418	!$OMP END MASTER
2419	!$OMP BARRIER
2420	CALL gather(iregion_wstardust,iauxklon_glo)
2421	!$OMP MASTER
2422	IF (is_mpi_root .AND. is_omp_root) THEN
2423	DO k=1,klon_glo
2424	WRITE(95,'(i10)') iauxklon_glo(k)
2425	ENDDO
2426	ENDIF ! mpi root
2427	!$OMP END MASTER
2428	!$OMP BARRIER
2429
2430
2431	CALL gather(rlat,auxklon_glo)
2432	!$OMP MASTER
2433	IF (is_mpi_root .AND. is_omp_root) THEN
2434	DO k=1,klon_glo
2435	WRITE(76,*) auxklon_glo(k)
2436	ENDDO
2437	ENDIF ! mpi root
2438	!$OMP END MASTER
2439	!$OMP BARRIER
2440	CALL gather(rlon,auxklon_glo)
2441	!$OMP MASTER
2442	IF (is_mpi_root .AND. is_omp_root) THEN
2443	DO k=1,klon_glo
2444	WRITE(77,*) auxklon_glo(k)
2445	ENDDO
2446
2447	CLOSE(25)
2448	CLOSE(55)
2449	CLOSE(75)
2450	CLOSE(76)
2451	CLOSE(77)
2452
2453	ENDIF ! mpi root
2454	!$OMP END MASTER
2455	!$OMP BARRIER
2456
2457	ENDIF ! debutphy
2458
2459	IF (logitime) THEN
2460	CALL SYSTEM_CLOCK(COUNT=clock_end)
2461	dife=clock_end-clock_start
2462	ti_inittype=dife*MAX(0,SIGN(1,dife)) &
2463	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
2464	tia_inittype=tia_inittype+REAL(ti_inittype)/REAL(clock_rate)
2465	ENDIF
2466
2467	IF (logitime) THEN
2468	CALL SYSTEM_CLOCK(COUNT=clock_start)
2469	ENDIF
2470
2471	!
2472	!=======================================================================
2473	! SAVING SURFACE TYPE
2474	!=======================================================================
2475	IF (debutphy) THEN
2476	!$OMP MASTER
2477	IF (is_mpi_root .AND. is_omp_root) THEN
2478
2479	OPEN(35,FILE='surface_ocean.data')
2480	OPEN(45,FILE='surface_seaice.data')
2481	OPEN(65,FILE='surface_land.data')
2482	OPEN(85,FILE='surface_landice.data')
2483	ENDIF ! mpi root
2484	!$OMP END MASTER
2485	!$OMP BARRIER
2486	do i = 1, klon
2487	aux_var2(i) = pctsrf(i,is_oce)
2488	enddo
2489	call gather(aux_var2,auxklon_glo)
2490	!$OMP MASTER
2491	IF (is_mpi_root .AND. is_omp_root) THEN
2492	DO i = 1, klon_glo
2493	WRITE (35,103) auxklon_glo(i)
2494	ENDDO
2495	ENDIF ! mpi root
2496	!$OMP END MASTER
2497	!$OMP BARRIER
2498
2499	do i = 1, klon
2500	aux_var2(i) = pctsrf(i,is_sic)
2501	enddo
2502	call gather(aux_var2,auxklon_glo)
2503	!$OMP MASTER
2504	IF (is_mpi_root .AND. is_omp_root) THEN
2505	DO i = 1, klon_glo
2506	WRITE (45,103) auxklon_glo(i)
2507	ENDDO
2508	ENDIF ! mpi root
2509	!$OMP END MASTER
2510	!$OMP BARRIER
2511
2512	do i = 1, klon
2513	aux_var2(i) = pctsrf(i,is_ter)
2514	enddo
2515	call gather(aux_var2,auxklon_glo)
2516	!$OMP MASTER
2517	IF (is_mpi_root .AND. is_omp_root) THEN
2518	DO i = 1, klon_glo
2519	WRITE (65,103) auxklon_glo(i)
2520	ENDDO
2521	ENDIF ! mpi root
2522	!$OMP END MASTER
2523	!$OMP BARRIER
2524
2525	do i = 1, klon
2526	aux_var2(i) = pctsrf(i,is_lic)
2527	enddo
2528	call gather(aux_var2,auxklon_glo)
2529	!$OMP MASTER
2530	IF (is_mpi_root .AND. is_omp_root) THEN
2531	DO i = 1, klon_glo
2532	WRITE (85,103) auxklon_glo(i)
2533	ENDDO
2534	!
2535	! DO i = 1, klon
2536	! WRITE (35,103) pctsrf(i,is_oce)
2537	! WRITE (45,103) pctsrf(i,is_sic)
2538	! WRITE (65,103) pctsrf(i,is_ter)
2539	! WRITE (85,103) pctsrf(i,is_lic)
2540	! ENDDO
2541	CLOSE(35)
2542	CLOSE(45)
2543	CLOSE(65)
2544	CLOSE(85)
2545	103 FORMAT (f6.2)
2546	ENDIF ! mpi root
2547	!$OMP END MASTER
2548	!$OMP BARRIER
2549	ENDIF ! debutphy
2550
2551	! stop
2552	!
2553	!=======================================================================
2554	!
2555	DO it=1, nbtr
2556	DO j=1,klev
2557	DO i=1,klon
2558	tmp_var(i,j)=tr_seri(i,j,it)
2559	ENDDO
2560	ENDDO
2561	CALL kg_to_cm3(pplay,t_seri,tmp_var)
2562	DO j=1,klev
2563	DO i=1,klon
2564	tr_seri(i,j,it)=tmp_var(i,j)
2565	ENDDO
2566	ENDDO
2567	ENDDO
2568	iscm3=.true.
2569
2570	!=======================================================================
2571	!
2572	DO k=1, klev
2573	DO i=1, klon
2574	m_conc(i,k)=pplay(i,k)/t_seri(i,k)/RKBOL*1.e-6
2575	ENDDO
2576	ENDDO
2577
2578	!
2579	!
2580	IF (lminmax) THEN
2581	DO it=1,nbtr
2582	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_avt_coarem')
2583	ENDDO
2584	DO it=1,nbtr
2585	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'avt coarem')
2586	ENDDO
2587	CALL minmaxsource(source_tr,qmin,qmax,'src: avt coarem')
2588	ENDIF
2589
2590	IF (logitime) THEN
2591	CALL SYSTEM_CLOCK(COUNT=clock_end)
2592	dife=clock_end-clock_start
2593	ti_inittwrite=dife*MAX(0,SIGN(1,dife)) &
2594	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
2595	tia_inittwrite=tia_inittwrite+REAL(ti_inittwrite)/REAL(clock_rate)
2596	ENDIF
2597
2598	!
2599	!
2600	!=======================================================================
2601	! EMISSIONS OF COARSE AEROSOLS
2602	!=======================================================================
2603
2604
2605	IF (logitime) THEN
2606	CALL SYSTEM_CLOCK(COUNT=clock_start)
2607	ENDIF
2608
2609
2610
2611	!
2612	print *,'Number of tracers = ',nbtr
2613
2614	print *,'AT BEGINNING OF PHYTRACR_SPL'
2615	! print *,'tr_seri = ',SUM(tr_seri(:,:,3)),MINVAL(tr_seri(:,:,3)),
2616	! . MAXVAL(tr_seri(:,:,3))
2617	#ifdef IOPHYS_DUST
2618	do it=1,nbtr
2619	write(str2,'(i2.2)') it
2620	call iophys_ecrit('sav'//str2,1,'SOURCE','',source_tr(:,it))
2621	call iophys_ecrit('fav'//str2,1,'SOURCE','',source_tr(:,it))
2622	enddo
2623	do it=1,nbtr
2624	write(str2,'(i2.2)') it
2625	call iophys_ecrit('TRB'//str2,klev,'SOURCE','',tr_seri(:,:,it))
2626	enddo
2627	#endif
2628
2629
2630	CALL coarsemission(pctsrf,pdtphys,t_seri, &
2631	pmflxr,pmflxs,prfl,psfl, &
2632	rlat,rlon,debutphy, &
2633	zu10m,zv10m,wstar,ale_bl,ale_wake, &
2634	scale_param_ssacc,scale_param_sscoa, &
2635	scale_param_dustacc,scale_param_dustcoa, &
2636	scale_param_dustsco, &
2637	nbreg_dust, &
2638	iregion_dust,dust_ec, &
2639	param_wstarBLperregion,param_wstarWAKEperregion, &
2640	nbreg_wstardust, &
2641	iregion_wstardust, &
2642	lmt_sea_salt,qmin,qmax, &
2643	flux_sparam_ddfine,flux_sparam_ddcoa, &
2644	flux_sparam_ddsco, &
2645	flux_sparam_ssfine,flux_sparam_sscoa, &
2646	id_prec,id_fine,id_coss,id_codu,id_scdu, &
2647	ok_chimeredust, &
2648	source_tr,flux_tr)
2649
2650	#ifdef IOPHYS_DUST
2651	do it=1,nbtr
2652	write(str2,'(i2.2)') it
2653	call iophys_ecrit('sap'//str2,1,'SOURCE','',source_tr(:,it))
2654	call iophys_ecrit('fap'//str2,1,'SOURCE','',source_tr(:,it))
2655	enddo
2656	#endif
2657
2658	IF (lminmax) THEN
2659	DO it=1,nbtr
2660	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_coarem')
2661	ENDDO
2662	DO it=1,nbtr
2663	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after coarem')
2664	ENDDO
2665	CALL minmaxsource(source_tr,qmin,qmax,'src: after coarem')
2666	ENDIF
2667
2668	!
2669	!
2670	!
2671	!======================================================================
2672	! EMISSIONS OF AEROSOL PRECURSORS
2673	!======================================================================
2674	!
2675	#ifdef IOPHYS_DUST
2676	print *,'INPUT TO PRECUREMISSION'
2677	call iophys_ecrit('ftsol',4,'ftsol','',ftsol)
2678	call iophys_ecrit('u10m_ec',1,'u10m_ec','',u10m_ec)
2679	call iophys_ecrit('v10m_ec',1,'v10m_ec','',v10m_ec)
2680	call iophys_ecrit('pctsrf',4,'pctsrf','',pctsrf)
2681	call iophys_ecrit('u_seri',klev,'u_seri','',u_seri)
2682	call iophys_ecrit('v_seri',klev,'v_seri','',v_seri)
2683	call iophys_ecrit('paprs',klev,'paprs','',paprs)
2684	call iophys_ecrit('pplay',klev,'pplay','',pplay)
2685	call iophys_ecrit('cdragh',1,'cdragh','',cdragh)
2686	call iophys_ecrit('cdragm',1,'cdragm','',cdragm)
2687	call iophys_ecrit('t_seri',klev,'t_seri','',t_seri)
2688	call iophys_ecrit('q_seri',klev,'q_seri','',q_seri)
2689	call iophys_ecrit('tsol',1,'tsol','',tsol)
2690	print*,'fracso2emis,frach2sofso2,bateau',fracso2emis,frach2sofso2,bateau
2691	print*,'kminbc,kmaxbc,pdtphys',kminbc,kmaxbc,pdtphys
2692	print*,'scale_param_bb,scale_param_ind',scale_param_bb,scale_param_ind
2693	print*,'iregion_ind,iregion_bb,nbreg_ind, nbreg_bb',iregion_ind,iregion_bb,nbreg_ind, nbreg_bb
2694	print*,'id_prec,id_fine',id_prec,id_fine
2695	call iophys_ecrit('zdz',klev,'zdz','',zdz)
2696	call iophys_ecrit('zalt',klev,'zalt','',zalt)
2697	call iophys_ecrit('lmt_so2ff_l',1,'lmt_so2ff_l','',lmt_so2ff_l)
2698	call iophys_ecrit('lmt_so2ff_h',1,'lmt_so2ff_h','',lmt_so2ff_h)
2699	call iophys_ecrit('lmt_so2nff',1,'lmt_so2nff','',lmt_so2nff)
2700	call iophys_ecrit('lmt_so2ba',1,'lmt_so2ba','',lmt_so2ba)
2701	call iophys_ecrit('lmt_so2bb_l',1,'lmt_so2bb_l','',lmt_so2bb_l)
2702	call iophys_ecrit('lmt_so2bb_h',1,'lmt_so2bb_h','',lmt_so2bb_h)
2703	call iophys_ecrit('lmt_so2volc_cont',1,'lmt_so2volc_cont','',lmt_so2volc_cont)
2704	call iophys_ecrit('lmt_altvolc_cont',1,'lmt_altvolc_cont','',lmt_altvolc_cont)
2705	call iophys_ecrit('lmt_so2volc_expl',1,'lmt_so2volc_expl','',lmt_so2volc_expl)
2706	call iophys_ecrit('lmt_altvolc_expl',1,'lmt_altvolc_expl','',lmt_altvolc_expl)
2707	call iophys_ecrit('lmt_dmsbio',1,'lmt_dmsbio','',lmt_dmsbio)
2708	call iophys_ecrit('lmt_h2sbio',1,'lmt_h2sbio','',lmt_h2sbio)
2709	call iophys_ecrit('lmt_dmsconc',1,'lmt_dmsconc','',lmt_dmsconc)
2710	call iophys_ecrit('lmt_dms',1,'lmt_dms','',lmt_dms)
2711	call iophys_ecrit('flux_sparam_ind',1,'flux_sparam_ind','',flux_sparam_ind)
2712	call iophys_ecrit('flux_sparam_bb',1,'flux_sparam_bb','',flux_sparam_bb)
2713	#endif
2714
2715
2716
2717	print*,'ON PASSE DANS precuremission'
2718	CALL precuremission(ftsol,u10m_ec,v10m_ec,pctsrf, &
2719	u_seri,v_seri,paprs,pplay,cdragh,cdragm, &
2720	t_seri,q_seri,tsol,fracso2emis,frach2sofso2, &
2721	bateau,zdz,zalt,kminbc,kmaxbc,pdtphys, &
2722	scale_param_bb,scale_param_ind, &
2723	iregion_ind, iregion_bb, &
2724	nbreg_ind, nbreg_bb, &
2725	lmt_so2ff_l,lmt_so2ff_h, lmt_so2nff,lmt_so2ba, &
2726	lmt_so2bb_l,lmt_so2bb_h, &
2727	lmt_so2volc_cont,lmt_altvolc_cont, &
2728	lmt_so2volc_expl,lmt_altvolc_expl, &
2729	lmt_dmsbio,lmt_h2sbio, lmt_dmsconc, lmt_dms, &
2730	id_prec,id_fine, &
2731	flux_sparam_ind, flux_sparam_bb, &
2732	source_tr,flux_tr,tr_seri)
2733	!
2734	IF (lminmax) THEN
2735	DO it=1,nbtr
2736	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after precur')
2737	ENDDO
2738	DO it=1,nbtr
2739	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after precur')
2740	ENDDO
2741	CALL minmaxsource(source_tr,qmin,qmax,'src: after precur')
2742	ENDIF
2743
2744	!=======================================================================
2745	! EMISSIONS OF FINE AEROSOLS
2746	!=======================================================================
2747	#ifdef IOPHYS_DUST
2748	!
2749	do it=1,nbtr
2750	write(str2,'(i2.2)') it
2751	call iophys_ecrit('tpr'//str2,1,'SOURCE','',source_tr(:,it))
2752	call iophys_ecrit('fpr'//str2,1,'SOURCE','',flux_tr(:,it))
2753	enddo
2754	#endif
2755
2756	CALL finemission(zdz,pdtphys,zalt,kminbc,kmaxbc, &
2757	scale_param_bb,scale_param_ff, &
2758	iregion_ind,iregion_bb, &
2759	nbreg_ind,nbreg_bb, &
2760	lmt_bcff, lmt_bcnff, lmt_bcbb_l,lmt_bcbb_h, &
2761	lmt_bcba, lmt_omff, lmt_omnff, &
2762	lmt_ombb_l, lmt_ombb_h, lmt_omnat, lmt_omba, &
2763	id_fine, &
2764	flux_sparam_bb, flux_sparam_ff, &
2765	source_tr,flux_tr,tr_seri)
2766	!
2767	!
2768	IF (lminmax) THEN
2769	DO it=1,nbtr
2770	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_fineem')
2771	ENDDO
2772	DO it=1,nbtr
2773	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after fineem')
2774	ENDDO
2775	IF (lcheckmass) THEN
2776	DO it=1,nbtr
2777	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
2778	pplay,t_seri,iscm3,'after fineem')
2779	ENDDO
2780	ENDIF
2781	CALL minmaxsource(source_tr,qmin,qmax,'src: after fineem')
2782	ENDIF
2783
2784	!
2785
2786	IF (logitime) THEN
2787	CALL SYSTEM_CLOCK(COUNT=clock_end)
2788	dife=clock_end-clock_start
2789	ti_emis=dife*MAX(0,SIGN(1,dife)) &
2790	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
2791	tia_emis=tia_emis+REAL(ti_emis)/REAL(clock_rate)
2792	ENDIF
2793
2794
2795	#ifdef IOPHYS_DUST
2796	do it=1,nbtr
2797	write(str2,'(i2.2)') it
2798	call iophys_ecrit('t'//str2,1,'SOURCE','',source_tr(:,it))
2799	call iophys_ecrit('f'//str2,1,'SOURCE','',flux_tr(:,it))
2800	enddo
2801	#endif
2802	!
2803	!
2804
2805
2806
2807	!
2808	!=======================================================================
2809	! DRY DEPOSITION AND BOUNDARY LAYER MIXING
2810	!=======================================================================
2811	!
2812	! DO it=1,nbtr
2813	! CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz,
2814	! . pplay,t_seri,iscm3,'')
2815	! ENDDO
2816
2817	!======================================================================
2818	! -- Dry deposition --
2819	!======================================================================
2820	IF (logitime) THEN
2821	CALL SYSTEM_CLOCK(COUNT=clock_start)
2822	ENDIF
2823
2824	DO it=1, nbtr
2825	DO j=1,klev
2826	DO i=1,klon
2827	tmp_var(i,j)=tr_seri(i,j,it)
2828	ENDDO
2829	ENDDO
2830	CALL cm3_to_kg(pplay,t_seri,tmp_var)
2831	DO j=1,klev
2832	DO i=1,klon
2833	tr_seri(i,j,it)=tmp_var(i,j)
2834	ENDDO
2835	ENDDO
2836	ENDDO
2837	iscm3=.false.
2838	!----------------------------
2839	IF (lminmax) THEN
2840	DO it=1,nbtr
2841	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before_depo')
2842	ENDDO
2843	DO it=1,nbtr
2844	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before depo')
2845	ENDDO
2846	IF (lcheckmass) THEN
2847	DO it=1,nbtr
2848	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
2849	pplay,t_seri,iscm3,'before depo')
2850	ENDDO
2851	ENDIF
2852	CALL minmaxsource(source_tr,qmin,qmax,'src: before depo')
2853	ENDIF
2854
2855	#ifdef IOPHYS_DUST
2856	do it=1,nbtr
2857	write(str2,'(i2.2)') it
2858	call iophys_ecrit('TRC'//str2,klev,'SOURCE','',tr_seri(:,:,it))
2859	enddo
2860	#endif
2861
2862	CALL deposition(vdep_oce,vdep_sic,vdep_ter,vdep_lic,pctsrf, &
2863	zrho,zdz,pdtphys,RHcl,masse,t_seri,pplay,paprs, &
2864	lminmax,qmin,qmax, &
2865	his_ds,source_tr,tr_seri)
2866	!
2867	IF (lminmax) THEN
2868	DO it=1,nbtr
2869	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_depo')
2870	ENDDO
2871	DO it=1,nbtr
2872	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after depo')
2873	ENDDO
2874	IF (lcheckmass) THEN
2875	DO it=1,nbtr
2876	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
2877	pplay,t_seri,iscm3,'after depo')
2878	ENDDO
2879	ENDIF
2880	CALL minmaxsource(source_tr,qmin,qmax,'src: after depo')
2881	ENDIF
2882
2883	IF (logitime) THEN
2884	CALL SYSTEM_CLOCK(COUNT=clock_end)
2885	dife=clock_end-clock_start
2886	ti_depo=dife*MAX(0,SIGN(1,dife)) &
2887	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
2888	tia_depo=tia_depo+REAL(ti_depo)/REAL(clock_rate)
2889	ENDIF
2890
2891
2892	!
2893	!======================================================================
2894	! -- Boundary layer mixing --
2895	!======================================================================
2896
2897	#ifdef IOPHYS_DUST
2898	do it=1,nbtr
2899	write(str2,'(i2.2)') it
2900	call iophys_ecrit('TRD'//str2,klev,'SOURCE','',tr_seri(:,:,it))
2901	enddo
2902	#endif
2903
2904
2905
2906	IF (logitime) THEN
2907	CALL SYSTEM_CLOCK(COUNT=clock_start)
2908	ENDIF
2909
2910	!
2911
2912	DO k = 1, klev
2913	DO i = 1, klon
2914	delp(i,k) = paprs(i,k)-paprs(i,k+1)
2915	END DO
2916	END DO
2917	!
2918	DO it=1, nbtr
2919	DO j=1, klev
2920	DO i=1, klon
2921	tmp_var(i,j)=tr_seri(i,j,it)
2922	aux_var2(i)=source_tr(i,it)
2923	ENDDO
2924	ENDDO
2925	IF (iflag_conv.EQ.2) THEN
2926	! Tiedke
2927	CALL cltrac_spl(pdtphys,coefh,yu1,yv1,t_seri,tmp_var, &
2928	aux_var2,paprs,pplay,aux_var3)
2929
2930	ELSE IF (iflag_conv.GE.3) THEN
2931	!KE
2932	CALL cltrac(pdtphys, coefh,t_seri,tmp_var,aux_var2,paprs,pplay, &
2933	delp,aux_var3,d_tr_dry,flux_tr_dry(:,it))
2934	ENDIF
2935
2936	DO i=1, klon
2937	DO j=1, klev
2938	tr_seri(i,j,it)=tmp_var(i,j)
2939	d_tr(i,j,it)=aux_var3(i,j)
2940	d_tr_cl(i,j,it)=d_tr(i,j,it)
2941	ENDDO
2942	ENDDO
2943	DO k = 1, klev
2944	DO i = 1, klon
2945	tr_seri(i,k,it) = tr_seri(i,k,it) + d_tr(i,k,it)
2946	ENDDO
2947	ENDDO
2948	print *,' AFTER Cltrac'
2949	IF (lminmax) THEN
2950	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after cltrac')
2951	ENDIF
2952	ENDDO !--end itr loop
2953
2954	IF (logitime) THEN
2955	CALL SYSTEM_CLOCK(COUNT=clock_end)
2956	dife=clock_end-clock_start
2957	ti_cltr=dife*MAX(0,SIGN(1,dife)) &
2958	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
2959	tia_cltr=tia_cltr+REAL(ti_cltr)/REAL(clock_rate)
2960	ENDIF
2961
2962
2963
2964	!======================================================================
2965	! -- Calcul de l'effet des thermiques for KE--
2966	!======================================================================
2967
2968	#ifdef IOPHYS_DUST
2969	print*,'iflag_conv=',iflag_conv
2970	call iophys_ecrit('coefh',klev,'coefh','',coefh)
2971	call iophys_ecrit('yu1',1,'yu1','',yu1)
2972	call iophys_ecrit('yv1',1,'yv1','',yv1)
2973	call iophys_ecrit('delp',klev,'delp','',delp)
2974	do it=1,nbtr
2975	write(str2,'(i2.2)') it
2976	call iophys_ecrit('TRE'//str2,klev,'SOURCE','',tr_seri(:,:,it))
2977	enddo
2978	#endif
2979
2980
2981
2982	IF (iflag_conv.GE.3) THEN
2983
2984	IF (logitime) THEN
2985	CALL SYSTEM_CLOCK(COUNT=clock_start)
2986	ENDIF
2987
2988
2989
2990
2991
2992	IF (lminmax) THEN
2993	DO it=1,nbtr
2994	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before therm')
2995	ENDDO
2996	DO it=1,nbtr
2997	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before therm')
2998	ENDDO
2999	IF (lcheckmass) THEN
3000	DO it=1,nbtr
3001	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3002	pplay,t_seri,iscm3,'before therm')
3003	ENDDO
3004	ENDIF
3005	CALL minmaxsource(source_tr,qmin,qmax,'before therm')
3006	ENDIF
3007
3008	DO it=1,nbtr
3009	DO k=1,klev
3010	DO i=1,klon
3011	tmp_var3(i,k,it)=tr_seri(i,k,it)
3012	d_tr_th(i,k,it)=0.
3013	tr_seri(i,k,it)=MAX(tr_seri(i,k,it),0.)
3014	!JE: precursor >>1e10 tr_seri(i,k,it)=MIN(tr_seri(i,k,it),1.e10)
3015	END DO
3016	END DO
3017	END DO
3018
3019	!JE new implicit scheme 20140323
3020	DO it=1,nbtr
3021	CALL thermcell_dq(klon,klev,1,pdtphys,fm_therm,entr_therm, &
3022	zmasse,tr_seri(1:klon,1:klev,it), &
3023	d_tr(1:klon,1:klev,it),ztra_th,0 )
3024
3025	DO k=1,klev
3026	DO i=1,klon
3027	d_tr(i,k,it)=pdtphys*d_tr(i,k,it)
3028	d_tr_th(i,k,it)=d_tr_th(i,k,it)+d_tr(i,k,it)
3029	tr_seri(i,k,it)=MAX(tr_seri(i,k,it)+d_tr(i,k,it),0.)
3030	END DO
3031	END DO
3032
3033	ENDDO
3034
3035	! old scheme explicit
3036	! nsplit=10
3037	! DO it=1,nbtr
3038	! DO isplit=1,nsplit
3039	! CALL dqthermcell(klon,klev,pdtphys/nsplit,
3040	! . fm_therm,entr_therm,zmasse,
3041	! . tr_seri(1:klon,1:klev,it),
3042	! . d_tr(1:klon,1:klev,it),ztra_th)
3043	! DO k=1,klev
3044	! DO i=1,klon
3045	! d_tr(i,k,it)=pdtphys*d_tr(i,k,it)/nsplit
3046	! d_tr_th(i,k,it)=d_tr_th(i,k,it)+d_tr(i,k,it)
3047	! tr_seri(i,k,it)=MAX(tr_seri(i,k,it)+d_tr(i,k,it),0.)
3048	! END DO
3049	! END DO
3050	! END DO ! nsplit1
3051	! END DO ! it
3052	!JE end modif 20140323
3053
3054	DO it=1,nbtr
3055	DO k=1,klev
3056	DO i=1,klon
3057	tmp_var(i,k)=tr_seri(i,k,it)-tmp_var3(i,k,it)
3058	ENDDO
3059	ENDDO
3060	IF (lminmax) THEN
3061	IF (lcheckmass) THEN
3062	CALL checkmass(tmp_var(:,:),RNAVO,masse(it),zdz, &
3063	pplay,t_seri,iscm3,'dtr therm ')
3064	ENDIF
3065	ENDIF
3066	CALL kg_to_cm3(pplay,t_seri,tmp_var)
3067
3068	DO k=1,klev
3069	DO i=1,klon
3070	his_th(i,it)=his_th(i,it)+ &
3071	(tmp_var(i,k))/RNAVO* &
3072	masse(it)1.e31.e6*zdz(i,k)/pdtphys
3073	END DO !klon
3074	END DO !klev
3075
3076	END DO !it
3077	IF (lminmax) THEN
3078	DO it=1,nbtr
3079	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after therm')
3080	ENDDO
3081	DO it=1,nbtr
3082	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after therm')
3083	ENDDO
3084	IF (lcheckmass) THEN
3085	DO it=1,nbtr
3086	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3087	pplay,t_seri,iscm3,'after therm')
3088	ENDDO
3089	ENDIF
3090	CALL minmaxsource(source_tr,qmin,qmax,'after therm')
3091	ENDIF
3092
3093	IF (logitime) THEN
3094	CALL SYSTEM_CLOCK(COUNT=clock_end)
3095	dife=clock_end-clock_start
3096	ti_ther=dife*MAX(0,SIGN(1,dife)) &
3097	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3098	tia_ther=tia_ther+REAL(ti_ther)/REAL(clock_rate)
3099	ENDIF
3100
3101
3102	ENDIF ! iflag_conv KE
3103	!------------------------------------
3104	! Sedimentation
3105	!-----------------------------------
3106	IF (logitime) THEN
3107	CALL SYSTEM_CLOCK(COUNT=clock_start)
3108	ENDIF
3109
3110
3111	DO it=1,nbtr
3112	DO j=1,klev
3113	DO i=1,klon
3114	tmp_var(i,j)=tr_seri(i,j,it)
3115	ENDDO
3116	ENDDO
3117	CALL kg_to_cm3(pplay,t_seri,tmp_var)
3118	DO j=1,klev
3119	DO i=1,klon
3120	tr_seri(i,j,it)=tmp_var(i,j)
3121	ENDDO
3122	ENDDO
3123	ENDDO !--end itr loop
3124	iscm3=.true.
3125	!--------------------------------------
3126	print *,' BEFORE Sediment'
3127
3128	IF (lminmax) THEN
3129	DO it=1,nbtr
3130	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before_sedi')
3131	ENDDO
3132	DO it=1,nbtr
3133	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before sedi')
3134	ENDDO
3135	IF (lcheckmass) THEN
3136	DO it=1,nbtr
3137	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3138	pplay,t_seri,iscm3,'before sedi')
3139	ENDDO
3140	ENDIF
3141	CALL minmaxsource(source_tr,qmin,qmax,'src: before sedi')
3142	ENDIF
3143
3144	print *,'SPLA VERSION OF SEDIMENTATION IS USED'
3145	CALL sediment_mod(t_seri,pplay,zrho,paprs,pdtphys,RHcl, &
3146	id_coss,id_codu,id_scdu, &
3147	ok_chimeredust, &
3148	sed_ss,sed_dust,sed_dustsco, &
3149	sed_ss3D,sed_dust3D,sed_dustsco3D,tr_seri)
3150	CALL cm3_to_kg(pplay,t_seri,sed_ss3D)
3151	CALL cm3_to_kg(pplay,t_seri,sed_dust3D)
3152	CALL cm3_to_kg(pplay,t_seri,sed_dustsco3D)
3153
3154	IF (lminmax) THEN
3155	DO it=1,nbtr
3156	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_sedi')
3157	ENDDO
3158	DO it=1,nbtr
3159	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after sedi')
3160	ENDDO
3161	IF (lcheckmass) THEN
3162	DO it=1,nbtr
3163	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3164	pplay,t_seri,iscm3,'after sedi')
3165	ENDDO
3166	ENDIF
3167	CALL minmaxsource(source_tr,qmin,qmax,'src: after sedi')
3168	ENDIF
3169
3170	!
3171	!=======================================================================
3172	#ifdef IOPHYS_DUST
3173	do it=1,nbtr
3174	write(str2,'(i2.2)') it
3175	call iophys_ecrit('TRF'//str2,klev,'SOURCE','',tr_seri(:,:,it))
3176	enddo
3177	#endif
3178
3179
3180
3181	!
3182	IF (logitime) THEN
3183	CALL SYSTEM_CLOCK(COUNT=clock_end)
3184	dife=clock_end-clock_start
3185	ti_sedi=dife*MAX(0,SIGN(1,dife)) &
3186	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3187	tia_sedi=tia_sedi+REAL(ti_sedi)/REAL(clock_rate)
3188	ENDIF
3189
3190	DO it=1, nbtr
3191	DO j=1,klev
3192	DO i=1,klon
3193	tmp_var(i,j)=tr_seri(i,j,it)
3194	ENDDO
3195	ENDDO
3196	CALL cm3_to_kg(pplay,t_seri,tmp_var)
3197	DO j=1,klev
3198	DO i=1,klon
3199	tr_seri(i,j,it)=tmp_var(i,j)
3200	ENDDO
3201	ENDDO
3202	ENDDO
3203	iscm3=.false.
3204	!
3205	!
3206	!======================================================================
3207	! GAS TO PARTICLE CONVERSION
3208	!======================================================================
3209	!
3210
3211	IF (logitime) THEN
3212	CALL SYSTEM_CLOCK(COUNT=clock_start)
3213	ENDIF
3214
3215	IF (lminmax) THEN
3216	DO it=1,nbtr
3217	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_beforegastopar')
3218	ENDDO
3219	DO it=1,nbtr
3220	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before gastopar')
3221	ENDDO
3222	IF (lcheckmass) THEN
3223	DO it=1,nbtr
3224	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3225	pplay,t_seri,iscm3,'before gastopar')
3226	ENDDO
3227	ENDIF
3228	CALL minmaxsource(source_tr,qmin,qmax,'src: before gastopar')
3229	ENDIF
3230
3231	CALL gastoparticle(pdtphys,zdz,zrho,rlat, &
3232	pplay,t_seri,id_prec,id_fine, &
3233	tr_seri,his_g2pgas ,his_g2paer)
3234	!
3235	IF (lminmax) THEN
3236	DO it=1,nbtr
3237	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_gastopar')
3238	ENDDO
3239	DO it=1,nbtr
3240	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after gastopar')
3241	ENDDO
3242	IF (lcheckmass) THEN
3243	DO it=1,nbtr
3244	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3245	pplay,t_seri,iscm3,'after gastopar')
3246	ENDDO
3247	ENDIF
3248	CALL minmaxsource(source_tr,qmin,qmax,'src: after gastopar')
3249	ENDIF
3250
3251	IF (logitime) THEN
3252	CALL SYSTEM_CLOCK(COUNT=clock_end)
3253	dife=clock_end-clock_start
3254	ti_gasp=dife*MAX(0,SIGN(1,dife)) &
3255	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3256	tia_gasp=tia_gasp+REAL(ti_gasp)/REAL(clock_rate)
3257	ENDIF
3258
3259
3260	!
3261	!======================================================================
3262	! EFFECT OF PRECIPITATION: iflag_conv=2
3263	!======================================================================
3264	!
3265
3266	#ifdef IOPHYS_DUST
3267	do it=1,nbtr
3268	write(str2,'(i2.2)') it
3269	call iophys_ecrit('TRG'//str2,klev,'SOURCE','',tr_seri(:,:,it))
3270	enddo
3271	#endif
3272
3273
3274	IF (iflag_conv.EQ.2) THEN
3275
3276	IF (logitime) THEN
3277	CALL SYSTEM_CLOCK(COUNT=clock_start)
3278	ENDIF
3279
3280
3281
3282
3283	DO it=1, nbtr
3284	DO j=1,klev
3285	DO i=1,klon
3286	tmp_var(i,j)=tr_seri(i,j,it)
3287	ENDDO
3288	ENDDO
3289	CALL kg_to_cm3(pplay,t_seri,tmp_var)
3290	DO j=1,klev
3291	DO i=1,klon
3292	tr_seri(i,j,it)=tmp_var(i,j)
3293	ENDDO
3294	ENDDO
3295	ENDDO
3296	iscm3=.true.
3297	!------------------------------
3298
3299	print *,'iflag_conv bef lessiv',iflag_conv
3300	IF (lessivage) THEN
3301	!
3302	print *,' BEFORE Incloud'
3303
3304	IF (lminmax) THEN
3305	DO it=1,nbtr
3306	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before_incloud')
3307	ENDDO
3308	DO it=1,nbtr
3309	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before incloud')
3310	ENDDO
3311	IF (lcheckmass) THEN
3312	DO it=1,nbtr
3313	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3314	pplay,t_seri,iscm3,'before incloud')
3315	ENDDO
3316	ENDIF
3317	CALL minmaxsource(source_tr,qmin,qmax,'src: before incloud')
3318	ENDIF
3319
3320
3321	! CALL incloud_scav(lminmax,qmin,qmax,masse,henry,kk,prfl,
3322	! . psfl,pmflxr,pmflxs,zrho,zdz,t_seri,pdtphys,
3323
3324	! . his_dhlsc,his_dhcon,tr_seri)
3325	print *,'iflag_conv bef incloud',iflag_conv
3326
3327	IF (iflag_conv.EQ.2) THEN
3328	! Tiedke
3329	CALL incloud_scav(.false.,qmin,qmax,masse,henry,kk,prfl, &
3330	psfl,pmflxr,pmflxs,zrho,zdz,t_seri,pdtphys, &
3331	his_dhlsc,his_dhcon,tr_seri)
3332
3333	!---------- to use this option please comment lsc_scav at the end
3334	! ELSE IF (iflag_conv.GE.3) THEN
3335	!
3336	! CALL incloud_scav_lsc(.false.,qmin,qmax,masse,henry,kk,prfl,
3337	! . psfl,pmflxr,pmflxs,zrho,zdz,t_seri,pdtphys,
3338	! . his_dhlsc,his_dhcon,tr_seri)
3339	!--------------------------------------------------------------
3340
3341	ENDIF
3342	!
3343	!
3344	print *,' BEFORE blcloud (after incloud)'
3345	IF (lminmax) THEN
3346	DO it=1,nbtr
3347	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before_blcloud')
3348	ENDDO
3349	DO it=1,nbtr
3350	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before blcloud')
3351	ENDDO
3352	IF (lcheckmass) THEN
3353	DO it=1,nbtr
3354	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3355	pplay,t_seri,iscm3,'before blcloud')
3356	ENDDO
3357	ENDIF
3358	CALL minmaxsource(source_tr,qmin,qmax,'src: before blcloud')
3359	ENDIF
3360
3361	! CALL blcloud_scav(lminmax,qmin,qmax,pdtphys,prfl,psfl,
3362	! . pmflxr,pmflxs,zdz,alpha_r,alpha_s,masse,
3363	! . his_dhbclsc,his_dhbccon,tr_seri)
3364
3365	IF (iflag_conv.EQ.2) THEN
3366	! Tiedke
3367
3368	CALL blcloud_scav(.false.,qmin,qmax,pdtphys,prfl,psfl, &
3369	pmflxr,pmflxs,zdz,alpha_r,alpha_s,masse, &
3370	his_dhbclsc,his_dhbccon,tr_seri)
3371
3372	!---------- to use this option please comment lsc_scav at the end
3373	! and comment IF iflag=2 after "EFFECT OF PRECIPITATION:"
3374	!
3375	!
3376	! ELSE IF (iflag_conv.GE.3) THEN
3377	!
3378	! CALL blcloud_scav_lsc(.false.,qmin,qmax,pdtphys,prfl,psfl,
3379	! . pmflxr,pmflxs,zdz,alpha_r,alpha_s,masse,
3380	! . his_dhbclsc,his_dhbccon,tr_seri)
3381	!
3382	!----------------------------------------------------------------------
3383	ENDIF
3384
3385
3386	print *,' AFTER blcloud '
3387
3388	IF (lminmax) THEN
3389	DO it=1,nbtr
3390	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_blcloud')
3391	ENDDO
3392	DO it=1,nbtr
3393	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after blcloud')
3394	ENDDO
3395	IF (lcheckmass) THEN
3396	DO it=1,nbtr
3397	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3398	pplay,t_seri,iscm3,'after blcloud')
3399	ENDDO
3400	ENDIF
3401	CALL minmaxsource(source_tr,qmin,qmax,'src: after blcloud')
3402	ENDIF
3403
3404
3405	ENDIF !--lessivage
3406
3407	DO it=1, nbtr
3408	DO j=1,klev
3409	DO i=1,klon
3410	tmp_var(i,j)=tr_seri(i,j,it)
3411	ENDDO
3412	ENDDO
3413	CALL cm3_to_kg(pplay,t_seri,tmp_var)
3414	DO j=1,klev
3415	DO i=1,klon
3416	tr_seri(i,j,it)=tmp_var(i,j)
3417	ENDDO
3418	ENDDO
3419	ENDDO
3420	iscm3=.false.
3421	!
3422	IF (logitime) THEN
3423	CALL SYSTEM_CLOCK(COUNT=clock_end)
3424	dife=clock_end-clock_start
3425	ti_wetap=dife*MAX(0,SIGN(1,dife)) &
3426	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3427	tia_wetap=tia_wetap+REAL(ti_wetap)/REAL(clock_rate)
3428	ENDIF
3429
3430
3431
3432
3433	ENDIF ! iflag_conv=2
3434
3435	!
3436	!
3437	!======================================================================
3438	! EFFECT OF CONVECTION
3439	!======================================================================
3440	!
3441	#ifdef IOPHYS_DUST
3442	do it=1,nbtr
3443	write(str2,'(i2.2)') it
3444	call iophys_ecrit('TRH'//str2,klev,'SOURCE','',tr_seri(:,:,it))
3445	enddo
3446	#endif
3447
3448
3449	IF (logitime) THEN
3450	CALL SYSTEM_CLOCK(COUNT=clock_start)
3451	ENDIF
3452
3453
3454	IF (convection) THEN
3455	!
3456	print *,' BEFORE trconvect'
3457
3458	IF (lminmax) THEN
3459	DO it=1,nbtr
3460	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before_trconve')
3461	ENDDO
3462	DO it=1,nbtr
3463	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before trconve')
3464	ENDDO
3465	IF (lcheckmass) THEN
3466	DO it=1,nbtr
3467	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3468	pplay,t_seri,iscm3,'before trconve')
3469	ENDDO
3470	ENDIF
3471	CALL minmaxsource(source_tr,qmin,qmax,'src: before trconve')
3472	ENDIF
3473
3474
3475	! JE CALL trconvect(pplay,t_seri,pdtphys,pmfu,pmfd,pen_u,pde_u,
3476	! . pen_d,pde_d,paprs,zdz,xconv,qmin,qmax,lminmax,masse,
3477	! . dtrconv,tr_seri)
3478	! -------------------------------------------------------------
3479	IF (iflag_conv.EQ.2) THEN
3480	! Tiedke
3481	CALL trconvect(pplay,t_seri,pdtphys,pmfu,pmfd,pen_u,pde_u, &
3482	pen_d,pde_d,paprs,zdz,xconv,qmin,qmax,.false.,masse, &
3483	dtrconv,tr_seri)
3484	DO it=1, nbtr
3485	d_tr_cv(:,:,it)=0.
3486	ENDDO
3487
3488	ELSE IF (iflag_conv.GE.3) THEN
3489	! KE
3490	print *,'JE: KE in phytracr_spl'
3491	DO it=1, nbtr
3492	DO k = 1, klev
3493	DO i = 1, klon
3494	tmp_var3(i,k,it)=tr_seri(i,k,it)
3495	END DO
3496	END DO
3497	ENDDO
3498
3499	DO it=1, nbtr
3500	! routine for aerosols . otherwise, check cvltrorig
3501	print *,'Check sum before cvltr it',it,SUM(tr_seri(:,:,it))
3502	! IF (.FALSE.) THEN
3503	CALL cvltr_spl(pdtphys, da, phi,phi2,d1a,dam, mp,ep, &
3504	sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm, &
3505	pmflxr,pmflxs,evapls,t_seri,wdtrainA,wdtrainM, &
3506	! paprs,it,tr_seri,upwd,dnwd,itop_con,ibas_con, &
3507	paprs,it,tmp_var3,upwd,dnwd,itop_con,ibas_con, &
3508	henry,kk,zrho,ccntrAA_spla,ccntrENV_spla,coefcoli_spla, &
3509	id_prec,id_fine,id_coss, id_codu, id_scdu, &
3510	d_tr_cv,d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav,qDi,qPr, &
3511	qPa,qMel,qTrdi,dtrcvMA,Mint, &
3512	zmfd1a,zmfphi2,zmfdam)
3513	! ENDIF
3514	!
3515	! IF (.FALSE.) THEN
3516	! CALL cvltr(pdtphys, da, phi,phi2,d1a,dam, mp,ep,
3517	! . sigd,sij,wght_cvfd,clw,elij,epmlmMm,eplaMm,
3518	! . pmflxr,pmflxs,evapls,t_seri,wdtrainA,wdtrainM,
3519	! . paprs,it,tmp_var3,upwd,dnwd,itop_con,ibas_con,
3520	! . d_tr_cv,d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav,qDi,qPr,
3521	! . qPa,qMel,qTrdi,dtrcvMA,Mint,
3522	! . zmfd1a,zmfphi2,zmfdam)
3523	!! pas lessivage convectif pou n'est pas un aerosol (i/else with cvltr)
3524	! ENDIF
3525
3526
3527
3528	!!!!!!! CALL cvltrorig(it,pdtphys, da, phi,mp,paprs,pplay,tr_seri,
3529	!!! CALL cvltrorig(it,pdtphys, da, phi,mp,paprs,pplay,tmp_var3,
3530	!!! . upwd,dnwd,d_tr_cv)
3531	! print *,'justbefore cvltrnoscav it= ',it
3532	! CALL checknanqfi(da(:,:),1.,-1.,' da')
3533	! CALL checknanqfi(wght_cvfd(:,:),1.,-1.,'weigth ')
3534	! CALL checknanqfi(mp(:,:),1.,-1.,'mp ')
3535	! CALL checknanqfi(paprs(:,:),1.,-1.,'paprs ')
3536	! CALL checknanqfi(pplay(:,:),1.,-1.,'pplay ')
3537	! CALL checknanqfi(tmp_var3(:,:,it),1.,-1.,'tmp_var3 ')
3538	! CALL checknanqfi(upwd(:,:),1.,-1.,'upwd ')
3539	! CALL checknanqfi(dnwd(:,:),1.,-1.,'dnwd ')
3540	! CALL checknanqfi(d_tr_cv(:,:,it),1.,-1.,'d_tr_cv ')
3541	! IF (.TRUE.) THEN
3542	! CALL cvltr_noscav(it,pdtphys, da, phi,mp,wght_cvfd,paprs,
3543	! . pplay,tmp_var3,upwd,dnwd,d_tr_cv)
3544	! ENDIF
3545	DO k = 1, klev
3546	DO i = 1, klon
3547	! tr_seri(i,k,it) = tr_seri(i,k,it) + d_tr_cv(i,k,it)
3548	tr_seri(i,k,it)=(tmp_var3(i,k,it)+d_tr_cv(i,k,it))
3549	tmp_var(i,k)=d_tr_cv(i,k,it)
3550
3551	END DO
3552	END DO
3553
3554	CALL kg_to_cm3(pplay,t_seri,tmp_var) !just for his_* computation
3555
3556	DO k = 1, klev
3557	DO i = 1, klon
3558	dtrconv(i,it)=0.0
3559	his_dhkecv(i,it)=his_dhkecv(i,it)-tmp_var(i,k) &
3560	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
3561	END DO
3562	END DO
3563
3564	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3565	CALL kg_to_cm3(pplay,t_seri,tmp_var) !just for his_* computation
3566
3567	DO k = 1, klev
3568	DO i = 1, klon
3569	dtrconv(i,it)=0.0
3570	his_ds(i,it)=his_ds(i,it)-tmp_var(i,k) &
3571	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
3572	END DO
3573	END DO
3574	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3575	IF (lminmax) THEN
3576
3577	print *,'Check sum after cvltr it',it,SUM(tr_seri(:,:,it))
3578	CALL minmaxqfi2(d_tr_cv(:,:,it),qmin,qmax,'d_tr_cv:')
3579	CALL minmaxqfi2(d_tr_trsp(:,:,it),qmin,qmax,'d_tr_trsp:')
3580	CALL minmaxqfi2(d_tr_sscav(:,:,it),qmin,qmax,'d_tr_sscav:')
3581	CALL minmaxqfi2(d_tr_sat(:,:,it),qmin,qmax,'d_tr_sat:')
3582	CALL minmaxqfi2(d_tr_uscav(:,:,it),qmin,qmax,'d_tr_uscav:')
3583	IF (lcheckmass) THEN
3584	CALL checkmass(d_tr_cv(:,:,it),RNAVO,masse(it),zdz, &
3585	pplay,t_seri,.false.,'d_tr_cv:')
3586	ENDIF
3587	ENDIF
3588	ENDDO ! it=1,nbtr
3589
3590	ENDIF ! iflag_conv
3591	IF (lminmax) THEN
3592	DO it=1,nbtr
3593	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_trcon')
3594	ENDDO
3595	DO it=1,nbtr
3596	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after trconv')
3597	ENDDO
3598	IF (lcheckmass) THEN
3599	DO it=1,nbtr
3600	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3601	pplay,t_seri,iscm3,'after trconv')
3602	ENDDO
3603	ENDIF
3604	CALL minmaxsource(source_tr,qmin,qmax,'src: after trconv')
3605	ENDIF
3606	ENDIF ! convection
3607
3608	IF (logitime) THEN
3609	CALL SYSTEM_CLOCK(COUNT=clock_end)
3610	dife=clock_end-clock_start
3611	ti_cvltr=dife*MAX(0,SIGN(1,dife)) &
3612	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3613	tia_cvltr=tia_cvltr+REAL(ti_cvltr)/REAL(clock_rate)
3614	ENDIF
3615
3616
3617
3618	!
3619	!
3620	!=======================================================================
3621	! LARGE SCALE SCAVENGING KE
3622	!=======================================================================
3623	!
3624	#ifdef IOPHYS_DUST
3625	call iophys_ecrit('da',klev,'da','',da)
3626	call iophys_ecrit('phi',klev,'phi','',phi)
3627	call iophys_ecrit('phi2',klev,'phi2','',phi2)
3628	call iophys_ecrit('d1a',klev,'d1a','',d1a)
3629	call iophys_ecrit('dam',klev,'dam','',dam)
3630	call iophys_ecrit('mp',klev,'mp','',mp)
3631	call iophys_ecrit('ep',klev,'ep','',ep)
3632	call iophys_ecrit('sigd',klev,'sigd','',sigd)
3633	call iophys_ecrit('sij',klev,'sij','',sij)
3634	call iophys_ecrit('wght_cvfd',klev,'wght_cvfd','',wght_cvfd)
3635	call iophys_ecrit('clw',klev,'clw','',clw)
3636	call iophys_ecrit('elij',klev,'elij','',elij)
3637	call iophys_ecrit('epmlmMm',klev,'epmlmMm','',epmlmMm)
3638	call iophys_ecrit('eplaMm',klev,'eplaMm','',eplaMm)
3639	call iophys_ecrit('pmflxr',klev,'pmflxr','',pmflxr)
3640	call iophys_ecrit('pmflxs',klev,'pmflxs','',pmflxs)
3641	call iophys_ecrit('evapls',klev,'evapls','',evapls)
3642	call iophys_ecrit('wdtrainA',klev,'wdtrainA','',wdtrainA)
3643	call iophys_ecrit('wdtrainM',klev,'wdtrainM','',wdtrainM)
3644
3645	do it=1,nbtr
3646	write(str2,'(i2.2)') it
3647	call iophys_ecrit('TRI'//str2,klev,'SOURCE','',tr_seri(:,:,it))
3648	enddo
3649	#endif
3650
3651
3652	IF (iflag_conv.GE.3) THEN
3653	IF (logitime) THEN
3654	CALL SYSTEM_CLOCK(COUNT=clock_start)
3655	ENDIF
3656
3657
3658	IF (lessivage) THEN
3659	print *,' BEFORE lsc_scav '
3660	IF (lminmax) THEN
3661	DO it=1,nbtr
3662	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_before_lsc_scav')
3663	ENDDO
3664	DO it=1,nbtr
3665	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'before lsc_scav')
3666	ENDDO
3667	IF (lcheckmass) THEN
3668	DO it=1,nbtr
3669	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3670	pplay,t_seri,iscm3,'before lsc_scav')
3671	ENDDO
3672	ENDIF
3673	CALL minmaxsource(source_tr,qmin,qmax,'src: before lsc_scav')
3674	ENDIF
3675
3676
3677
3678	ql_incloud_ref = 10.e-4
3679	ql_incloud_ref = 5.e-4
3680	! calcul du contenu en eau liquide au sein du nuage
3681	ql_incl = ql_incloud_ref
3682	! choix du lessivage
3683	IF (iflag_lscav .EQ. 3 .OR. iflag_lscav .EQ. 4) THEN
3684	print *,'JE iflag_lscav',iflag_lscav
3685	DO it = 1, nbtr
3686
3687	! incloud scavenging and removal by large scale rain ! orig : ql_incl
3688	! was replaced by 0.5e-3 kg/kg
3689	! the value 0.5e-3 kg/kg is from Giorgi and Chameides (1986), JGR
3690	! Liu (2001) proposed to use 1.5e-3 kg/kg
3691
3692	! CALL lsc_scav_orig(pdtphys,it,iflag_lscav,ql_incl,prfl,psfl,
3693	! . rneb,beta_fisrt, beta_v1,pplay,paprs,
3694	! . t_seri,tr_seri,d_tr_insc,
3695	! . d_tr_bcscav,d_tr_evapls,qPrls)
3696	CALL lsc_scav_spl(pdtphys,it,iflag_lscav,ql_incl,prfl,psfl, &
3697	rneb,beta_fisrt, beta_v1,pplay,paprs, &
3698	t_seri,tr_seri,d_tr_insc, &
3699	alpha_r,alpha_s,kk, henry, &
3700	id_prec,id_fine,id_coss, id_codu, id_scdu, &
3701	d_tr_bcscav,d_tr_evapls,qPrls)
3702
3703	!large scale scavenging tendency
3704	DO k = 1, klev
3705	DO i = 1, klon
3706	d_tr_ls(i,k,it)=d_tr_insc(i,k,it)+d_tr_bcscav(i,k,it) &
3707	+d_tr_evapls(i,k,it)
3708	tr_seri(i,k,it)=tr_seri(i,k,it)+d_tr_ls(i,k,it)
3709	tmp_var(i,k)=d_tr_ls(i,k,it)
3710	ENDDO
3711	ENDDO
3712
3713	CALL kg_to_cm3(pplay,t_seri,tmp_var)
3714	DO k=1,klev
3715	DO i=1,klon
3716	his_dhkelsc(i,it)=his_dhkelsc(i,it)-tmp_var(i,k) &
3717	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
3718
3719	END DO
3720	END DO
3721
3722	END DO !tr
3723	ELSE
3724	his_dhkelsc(i,it)=0.0
3725	print *,'WARNING: NO lsc_scav, Please choose iflag_lscav=3 or 4'
3726	ENDIF !iflag_lscav
3727
3728	print *,' AFTER lsc_scav '
3729	IF (lminmax) THEN
3730	DO it=1,nbtr
3731	CALL checknanqfi(tr_seri(:,:,it),qmin,qmax,'nan_after_lsc_scav')
3732	ENDDO
3733	DO it=1,nbtr
3734	CALL minmaxqfi2(tr_seri(:,:,it),qmin,qmax,'after lsc_scav')
3735	ENDDO
3736	IF (lcheckmass) THEN
3737	DO it=1,nbtr
3738	CALL checkmass(tr_seri(:,:,it),RNAVO,masse(it),zdz, &
3739	pplay,t_seri,iscm3,'after lsc_scav')
3740	ENDDO
3741	ENDIF
3742	CALL minmaxsource(source_tr,qmin,qmax,'src: after lsc_scav')
3743	ENDIF
3744
3745	ENDIF ! lessivage
3746
3747	IF (logitime) THEN
3748	CALL SYSTEM_CLOCK(COUNT=clock_end)
3749	dife=clock_end-clock_start
3750	ti_lscs=dife*MAX(0,SIGN(1,dife)) &
3751	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3752	tia_lscs=tia_lscs+REAL(ti_lscs)/REAL(clock_rate)
3753	ENDIF
3754
3755
3756
3757	ENDIF !iflag_conv
3758
3759
3760	!=======================================================================
3761	! COMPUTING THE BURDEN
3762	!=======================================================================
3763	#ifdef IOPHYS_DUST
3764	do it=1,nbtr
3765	write(str2,'(i2.2)') it
3766	call iophys_ecrit('TRJ'//str2,klev,'SOURCE','',tr_seri(:,:,it))
3767	enddo
3768	#endif
3769
3770	!
3771	IF (logitime) THEN
3772	CALL SYSTEM_CLOCK(COUNT=clock_start)
3773	ENDIF
3774
3775
3776	DO it=1, nbtr
3777	DO j=1,klev
3778	DO i=1,klon
3779	tmp_var(i,j)=tr_seri(i,j,it)
3780	ENDDO
3781	ENDDO
3782	CALL kg_to_cm3(pplay,t_seri,tmp_var)
3783	DO j=1,klev
3784	DO i=1,klon
3785	tr_seri(i,j,it)=tmp_var(i,j)
3786	ENDDO
3787	ENDDO
3788	ENDDO
3789	iscm3=.true.
3790
3791	!
3792	! Computing burden in mg/m2
3793	DO it=1, nbtr
3794	DO k=1, klev
3795	DO i=1, klon
3796	trm(i,it)=trm(i,it)+tr_seri(i,k,it)1.e6zdz(i,k)* &
3797	masse(it)*1.e3/RNAVO !--mg S/m2
3798	ENDDO
3799	ENDDO
3800	ENDDO
3801	!
3802	! Computing Surface concentration in ug/m3
3803	!
3804	DO it=1, nbtr
3805	DO i=1, klon
3806	sconc_seri(i,it)=tr_seri(i,1,it)1.e6 &
3807	masse(it)*1.e3/RNAVO !--mg/m3 (tr_seri ist in g/cm3)
3808	ENDDO
3809	ENDDO
3810	!
3811	!=======================================================================
3812	! CALCULATION OF OPTICAL PROPERTIES
3813	!=======================================================================
3814	!
3815	CALL aeropt_spl(zdz, tr_seri, RHcl, &
3816	id_prec, id_fine, id_coss, id_codu, id_scdu, &
3817	ok_chimeredust, &
3818	diff_aod550_tot, diag_aod670_tot, diag_aod865_tot, &
3819	diff_aod550_tr2, diag_aod670_tr2, diag_aod865_tr2, &
3820	diag_aod550_ss, diag_aod670_ss, diag_aod865_ss, &
3821	diag_aod550_dust,diag_aod670_dust,diag_aod865_dust, &
3822	diag_aod550_dustsco,diag_aod670_dustsco,diag_aod865_dustsco)
3823
3824
3825
3826	IF (logitime) THEN
3827	CALL SYSTEM_CLOCK(COUNT=clock_end)
3828	dife=clock_end-clock_start
3829	ti_brop=dife*MAX(0,SIGN(1,dife)) &
3830	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
3831	tia_brop=tia_brop+REAL(ti_brop)/REAL(clock_rate)
3832	ENDIF
3833
3834
3835	!=======================================================================
3836	! MODIS terra/aqua simulation output
3837	!=======================================================================
3838	masque_aqua_cur(:)=0
3839	masque_terra_cur(:)=0
3840
3841	CALL satellite_out_spla(jD_cur,jH_cur,pdtphys,rlat,rlon, &
3842	masque_aqua_cur, masque_terra_cur )
3843	IF (jH_cur-pdtphys/86400. .LT. 0.) THEN
3844	!new utc day: put in 0 everything
3845	!JE20150518<<
3846	! aod550_aqua(:) =0.
3847	! aod550_terra(:) =0.
3848	! aod670_aqua(:) =0.
3849	! aod670_terra(:) =0.
3850	! aod865_aqua(:) =0.
3851	! aod865_terra(:) =0.
3852	masque_aqua(:) =0
3853	masque_terra(:) =0
3854	aod550_terra(:)=0.
3855	aod550_tr2_terra(:)=0.
3856	aod550_ss_terra(:)=0.
3857	aod550_dust_terra(:)=0.
3858	aod550_dustsco_terra(:)=0.
3859	aod670_terra(:)=0.
3860	aod670_tr2_terra(:)=0.
3861	aod670_ss_terra(:)=0.
3862	aod670_dust_terra(:)=0.
3863	aod670_dustsco_terra(:)=0.
3864	aod865_terra(:)=0.
3865	aod865_tr2_terra(:)=0.
3866	aod865_ss_terra(:)=0.
3867	aod865_dust_terra(:)=0.
3868	aod865_dustsco_terra(:)=0.
3869	aod550_aqua(:)=0.
3870	aod550_tr2_aqua(:)=0.
3871	aod550_ss_aqua(:)=0.
3872	aod550_dust_aqua(:)=0.
3873	aod550_dustsco_aqua(:)=0.
3874	aod670_aqua(:)=0.
3875	aod670_tr2_aqua(:)=0.
3876	aod670_ss_aqua(:)=0.
3877	aod670_dust_aqua(:)=0.
3878	aod670_dustsco_aqua(:)=0.
3879	aod865_aqua(:)=0.
3880	aod865_tr2_aqua(:)=0.
3881	aod865_ss_aqua(:)=0.
3882	aod865_dust_aqua(:)=0.
3883	aod865_dustsco_aqua(:)=0.
3884	!JE20150518>>
3885	ENDIF
3886
3887	DO i=1,klon
3888	! aod550_aqua(i)=aod550_aqua(i)+ &
3889	! masque_aqua_cur(i)*diff_aod550_tot(i)
3890	! aod670_aqua(i)=aod670_aqua(i)+ &
3891	! masque_aqua_cur(i)*diag_aod670_tot(i)
3892	! aod865_aqua(i)=aod865_aqua(i)+ &
3893	! masque_aqua_cur(i)*diag_aod865_tot(i)
3894
3895	aod550_terra(i)=aod550_terra(i)+ &
3896	masque_terra_cur(i)*diff_aod550_tot(i)
3897	aod550_tr2_terra(i)= aod550_tr2_terra(i)+ &
3898	masque_terra_cur(i)*diff_aod550_tr2(i)
3899	aod550_ss_terra(i)=aod550_ss_terra(i) + &
3900	masque_terra_cur(i)*diag_aod550_ss(i)
3901	aod550_dust_terra(i)= aod550_dust_terra(i) + &
3902	masque_terra_cur(i)*diag_aod550_dust(i)
3903	aod550_dustsco_terra(i)= aod550_dustsco_terra(i) + &
3904	masque_terra_cur(i)*diag_aod550_dustsco(i)
3905	aod670_terra(i)=aod670_terra(i)+ &
3906	masque_terra_cur(i)*diag_aod670_tot(i)
3907	aod670_tr2_terra(i)= aod670_tr2_terra(i)+ &
3908	masque_terra_cur(i)*diag_aod670_tr2(i)
3909	aod670_ss_terra(i)=aod670_ss_terra(i) + &
3910	masque_terra_cur(i)*diag_aod670_ss(i)
3911	aod670_dust_terra(i)= aod670_dust_terra(i) + &
3912	masque_terra_cur(i)*diag_aod670_dust(i)
3913	aod670_dustsco_terra(i)= aod670_dustsco_terra(i) + &
3914	masque_terra_cur(i)*diag_aod670_dustsco(i)
3915	aod865_terra(i)=aod865_terra(i)+ &
3916	masque_terra_cur(i)*diag_aod865_tot(i)
3917	aod865_tr2_terra(i)= aod865_tr2_terra(i)+ &
3918	masque_terra_cur(i)*diag_aod865_tr2(i)
3919	aod865_ss_terra(i)=aod865_ss_terra(i) + &
3920	masque_terra_cur(i)*diag_aod865_ss(i)
3921	aod865_dust_terra(i)= aod865_dust_terra(i) + &
3922	masque_terra_cur(i)*diag_aod865_dust(i)
3923	aod865_dustsco_terra(i)= aod865_dustsco_terra(i) + &
3924	masque_terra_cur(i)*diag_aod865_dustsco(i)
3925
3926
3927
3928	aod550_aqua(i)=aod550_aqua(i)+ &
3929	masque_aqua_cur(i)*diff_aod550_tot(i)
3930	aod550_tr2_aqua(i)= aod550_tr2_aqua(i)+ &
3931	masque_aqua_cur(i)*diff_aod550_tr2(i)
3932	aod550_ss_aqua(i)=aod550_ss_aqua(i) + &
3933	masque_aqua_cur(i)*diag_aod550_ss(i)
3934	aod550_dust_aqua(i)= aod550_dust_aqua(i) + &
3935	masque_aqua_cur(i)*diag_aod550_dust(i)
3936	aod550_dustsco_aqua(i)= aod550_dustsco_aqua(i) + &
3937	masque_aqua_cur(i)*diag_aod550_dustsco(i)
3938	aod670_aqua(i)=aod670_aqua(i)+ &
3939	masque_aqua_cur(i)*diag_aod670_tot(i)
3940	aod670_tr2_aqua(i)= aod670_tr2_aqua(i)+ &
3941	masque_aqua_cur(i)*diag_aod670_tr2(i)
3942	aod670_ss_aqua(i)=aod670_ss_aqua(i) + &
3943	masque_aqua_cur(i)*diag_aod670_ss(i)
3944	aod670_dust_aqua(i)= aod670_dust_aqua(i) + &
3945	masque_aqua_cur(i)*diag_aod670_dust(i)
3946	aod670_dustsco_aqua(i)= aod670_dustsco_aqua(i) + &
3947	masque_aqua_cur(i)*diag_aod670_dustsco(i)
3948	aod865_aqua(i)=aod865_aqua(i)+ &
3949	masque_aqua_cur(i)*diag_aod865_tot(i)
3950	aod865_tr2_aqua(i)= aod865_tr2_aqua(i)+ &
3951	masque_aqua_cur(i)*diag_aod865_tr2(i)
3952	aod865_ss_aqua(i)=aod865_ss_aqua(i) + &
3953	masque_aqua_cur(i)*diag_aod865_ss(i)
3954	aod865_dust_aqua(i)= aod865_dust_aqua(i) + &
3955	masque_aqua_cur(i)*diag_aod865_dust(i)
3956	aod865_dustsco_aqua(i)= aod865_dustsco_aqua(i) + &
3957	masque_aqua_cur(i)*diag_aod865_dustsco(i)
3958	! aod550_terra(i)=aod550_terra(i)+ &
3959	! masque_terra_cur(i)*diff_aod550_tot(i)
3960	! aod670_terra(i)=aod670_terra(i)+ &
3961	! masque_terra_cur(i)*diag_aod670_tot(i)
3962	! aod865_terra(i)=aod865_terra(i)+ &
3963	! masque_terra_cur(i)*diag_aod865_tot(i)
3964	masque_aqua(i)=masque_aqua(i)+masque_aqua_cur(i)
3965	masque_terra(i)=masque_terra(i)+masque_terra_cur(i)
3966	ENDDO
3967
3968	IF (jH_cur+pdtphys/86400. .GE. 1.) THEN
3969	! print *,'last step of the day'
3970	DO i=1,klon
3971	IF (masque_aqua(i).GT. 0) THEN
3972	aod550_aqua(i)=aod550_aqua(i)/masque_aqua(i)
3973	aod670_aqua(i)=aod670_aqua(i)/masque_aqua(i)
3974	aod865_aqua(i)=aod865_aqua(i)/masque_aqua(i)
3975	aod550_tr2_aqua(i)=aod550_tr2_aqua(i)/masque_aqua(i)
3976	aod670_tr2_aqua(i)=aod670_tr2_aqua(i)/masque_aqua(i)
3977	aod865_tr2_aqua(i)=aod865_tr2_aqua(i)/masque_aqua(i)
3978	aod550_ss_aqua(i)=aod550_ss_aqua(i)/masque_aqua(i)
3979	aod670_ss_aqua(i)=aod670_ss_aqua(i)/masque_aqua(i)
3980	aod865_ss_aqua(i)=aod865_ss_aqua(i)/masque_aqua(i)
3981	aod550_dust_aqua(i)=aod550_dust_aqua(i)/masque_aqua(i)
3982	aod670_dust_aqua(i)=aod670_dust_aqua(i)/masque_aqua(i)
3983	aod865_dust_aqua(i)=aod865_dust_aqua(i)/masque_aqua(i)
3984	aod550_dustsco_aqua(i)=aod550_dustsco_aqua(i)/masque_aqua(i)
3985	aod670_dustsco_aqua(i)=aod670_dustsco_aqua(i)/masque_aqua(i)
3986	aod865_dustsco_aqua(i)=aod865_dustsco_aqua(i)/masque_aqua(i)
3987	ELSE
3988	aod550_aqua(i) = -999.
3989	aod670_aqua(i) = -999.
3990	aod865_aqua(i) = -999.
3991	aod550_tr2_aqua(i)= -999.
3992	aod670_tr2_aqua(i)= -999.
3993	aod865_tr2_aqua(i)= -999.
3994	aod550_ss_aqua(i)= -999.
3995	aod670_ss_aqua(i)= -999.
3996	aod865_ss_aqua(i)= -999.
3997	aod550_dust_aqua(i)= -999.
3998	aod670_dust_aqua(i)= -999.
3999	aod865_dust_aqua(i)= -999.
4000	aod550_dustsco_aqua(i)= -999.
4001	aod670_dustsco_aqua(i)= -999.
4002	aod865_dustsco_aqua(i)= -999.
4003	ENDIF
4004	IF (masque_terra(i).GT. 0) THEN
4005	aod550_terra(i)=aod550_terra(i)/masque_terra(i)
4006	aod670_terra(i)=aod670_terra(i)/masque_terra(i)
4007	aod865_terra(i)=aod865_terra(i)/masque_terra(i)
4008	aod550_tr2_terra(i)=aod550_tr2_terra(i)/masque_terra(i)
4009	aod670_tr2_terra(i)=aod670_tr2_terra(i)/masque_terra(i)
4010	aod865_tr2_terra(i)=aod865_tr2_terra(i)/masque_terra(i)
4011	aod550_ss_terra(i)=aod550_ss_terra(i)/masque_terra(i)
4012	aod670_ss_terra(i)=aod670_ss_terra(i)/masque_terra(i)
4013	aod865_ss_terra(i)=aod865_ss_terra(i)/masque_terra(i)
4014	aod550_dust_terra(i)=aod550_dust_terra(i)/masque_terra(i)
4015	aod670_dust_terra(i)=aod670_dust_terra(i)/masque_terra(i)
4016	aod865_dust_terra(i)=aod865_dust_terra(i)/masque_terra(i)
4017	aod550_dustsco_terra(i)=aod550_dustsco_terra(i)/masque_terra(i)
4018	aod670_dustsco_terra(i)=aod670_dustsco_terra(i)/masque_terra(i)
4019	aod865_dustsco_terra(i)=aod865_dustsco_terra(i)/masque_terra(i)
4020	ELSE
4021	aod550_terra(i) = -999.
4022	aod670_terra(i) = -999.
4023	aod865_terra(i) = -999.
4024	aod550_tr2_terra(i)= -999.
4025	aod670_tr2_terra(i)= -999.
4026	aod865_tr2_terra(i)= -999.
4027	aod550_ss_terra(i)= -999.
4028	aod670_ss_terra(i)= -999.
4029	aod865_ss_terra(i)= -999.
4030	aod550_dust_terra(i)= -999.
4031	aod670_dust_terra(i)= -999.
4032	aod865_dust_terra(i)= -999.
4033	aod550_dustsco_terra(i)= -999.
4034	aod670_dustsco_terra(i)= -999.
4035	aod865_dustsco_terra(i)= -999.
4036	ENDIF
4037	! IF (masque_terra(i).GT. 0) THEN
4038	! aod550_terra(i) = aod550_terra(i)/masque_terra(i)
4039	! aod670_terra(i)=aod670_terra(i)/masque_terra(i)
4040	! aod865_terra(i)=aod865_terra(i)/masque_terra(i)
4041	!
4042	! ELSE
4043	! aod550_terra(i) = -999.
4044	! aod670_terra(i) = -999.
4045	! aod865_terra(i) = -999.
4046	! ENDIF
4047	ENDDO
4048	! !write dbg
4049	! CALL writefield_phy("aod550_aqua",aod550_aqua,1)
4050	! CALL writefield_phy("aod550_terra",aod550_terra,1)
4051	! CALL writefield_phy("masque_aqua",float(masque_aqua),1)
4052	! CALL writefield_phy("masque_terra",float(masque_terra),1)
4053
4054
4055	IF (ok_histrac) THEN
4056	! write in output file
4057	call gather(aod550_aqua,aod550_aqua_glo)
4058	call gather(aod550_terra,aod550_terra_glo)
4059	call gather(aod670_aqua,aod670_aqua_glo)
4060	call gather(aod670_terra,aod670_terra_glo)
4061	call gather(aod865_aqua,aod865_aqua_glo)
4062	call gather(aod865_terra,aod865_terra_glo)
4063
4064	!$OMP MASTER
4065	IF (is_mpi_root .AND. is_omp_root) THEN
4066
4067	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, aod550_aqua_glo ,zx_tmp_2d)
4068	CALL histwrite(nid_tra3,"taue550_aqua",itra,zx_tmp_2d, &
4069	nbp_lon*(nbp_lat),ndex2d)
4070
4071	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, aod550_terra_glo ,zx_tmp_2d)
4072	CALL histwrite(nid_tra3,"taue550_terra",itra,zx_tmp_2d, &
4073	nbp_lon*(nbp_lat),ndex2d)
4074	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, aod670_aqua_glo ,zx_tmp_2d)
4075	CALL histwrite(nid_tra3,"taue670_aqua",itra,zx_tmp_2d, &
4076	nbp_lon*(nbp_lat),ndex2d)
4077	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, aod670_terra_glo ,zx_tmp_2d)
4078	CALL histwrite(nid_tra3,"taue670_terra",itra,zx_tmp_2d, &
4079	nbp_lon*(nbp_lat),ndex2d)
4080
4081	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, aod865_aqua_glo ,zx_tmp_2d)
4082	CALL histwrite(nid_tra3,"taue865_aqua",itra,zx_tmp_2d, &
4083	nbp_lon*(nbp_lat),ndex2d)
4084	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, aod865_terra_glo ,zx_tmp_2d)
4085	CALL histwrite(nid_tra3,"taue865_terra",itra,zx_tmp_2d, &
4086	nbp_lon*(nbp_lat),ndex2d)
4087	ENDIF
4088	!$OMP END MASTER
4089	!$OMP BARRIER
4090	ENDIF
4091	! !put in 0 everything
4092	! aod550_aqua(:) =0.
4093	! aod550_terra(:) =0.
4094	! aod670_aqua(:) =0.
4095	! aod670_terra(:) =0.
4096	! aod865_aqua(:) =0.
4097	! aod865_terra(:) =0.
4098	! masque_aqua(:) =0
4099	! masque_terra(:) =0
4100	ENDIF
4101
4102
4103	!
4104	!======================================================================
4105	! Stockage sur bande histoire
4106	!======================================================================
4107	#ifdef IOPHYS_DUST
4108	do it=1,nbtr
4109	write(str2,'(i2.2)') it
4110	call iophys_ecrit('TRK'//str2,klev,'SOURCE','',tr_seri(:,:,it))
4111	enddo
4112	#endif
4113
4114
4115	!
4116	IF (logitime) THEN
4117	CALL SYSTEM_CLOCK(COUNT=clock_start)
4118	ENDIF
4119
4120	DO it=1, nbtr
4121	DO j=1,klev
4122	DO i=1,klon
4123	tmp_var(i,j)=tr_seri(i,j,it)
4124	ENDDO
4125	ENDDO
4126	CALL cm3_to_kg(pplay,t_seri,tmp_var)
4127	DO j=1,klev
4128	DO i=1,klon
4129	tr_seri(i,j,it)=tmp_var(i,j)
4130	ENDDO
4131	ENDDO
4132	ENDDO
4133	iscm3=.false.
4134
4135	!
4136	!
4137	!======================================================================
4138	! SAVING AEROSOL RELATED VARIABLES INTO FILE
4139	!======================================================================
4140	!
4141	!JE20141224 IF (ok_histrac) THEN
4142	!
4143	ndex2d = 0
4144	ndex3d = 0
4145	!
4146	itra=itra+1
4147
4148	print *,'SAVING VARIABLES FOR DAY ',itra
4149	!
4150	fluxbb(:)=0.0
4151	fluxff(:)=0.0
4152	fluxbcbb(:)=0.0
4153	fluxbcff(:)=0.0
4154	fluxbcnff(:)=0.0
4155	fluxbcba(:)=0.0
4156	fluxbc(:)=0.0
4157	fluxombb(:)=0.0
4158	fluxomff(:)=0.0
4159	fluxomnat(:)=0.0
4160	fluxomba(:)=0.0
4161	fluxomnff(:)=0.0
4162	fluxom(:)=0.0
4163	fluxh2sff(:)=0.0
4164	fluxh2snff(:)=0.0
4165	fluxh2sbio(:)=0.0
4166	fluxso2ff(:)=0.0
4167	fluxso2nff(:)=0.0
4168	fluxso2bb(:)=0.0
4169	fluxso2vol(:)=0.0
4170	fluxso2ba(:)=0.0
4171	fluxso2(:)=0.0
4172	fluxso4ff(:)=0.0
4173	fluxso4nff(:)=0.0
4174	fluxso4bb(:)=0.0
4175	fluxso4ba(:)=0.0
4176	fluxso4(:)=0.0
4177	fluxdms(:)=0.0
4178	fluxdustec(:)=0.0
4179	fluxddfine(:)=0.0
4180	fluxddcoa(:)=0.0
4181	fluxddsco(:)=0.0
4182	fluxdd(:)=0.0
4183	fluxssfine(:)=0.0
4184	fluxsscoa(:)=0.0
4185	fluxss(:)=0.0
4186	DO i=1, klon
4187	IF (iregion_ind(i).GT.0) THEN ! LAND
4188	! SULFUR EMISSIONS
4189	fluxh2sff(i)= (lmt_so2ff_l(i)+lmt_so2ff_h(i))frach2sofso2 &
4190	scale_param_ind(iregion_ind(i))* &
4191	1.e4/RNAVOmasse_s1.e3 ! mgS/m2/s
4192	fluxso2ff(i)=scale_param_ind(iregion_ind(i)) * fracso2emis * &
4193	(lmt_so2ff_l(i)+lmt_so2ff_h(i)) * 1.e4/RNAVO * &
4194	masse_s * 1.e3 ! mgS/m2/s
4195	! SULPHATE EMISSIONS
4196	fluxso4ff(i)=scale_param_ind(iregion_ind(i))(1-fracso2emis) &
4197	(lmt_so2ff_l(i)+lmt_so2ff_h(i)) * 1.e4/RNAVO * &
4198	masse_s * 1.e3 ! mgS/m2/s
4199	! BLACK CARBON EMISSIONS
4200	fluxbcff(i)=scale_param_ff(iregion_ind(i))* &
4201	lmt_bcff(i)1.e41.e3 !/g/m2/s
4202	! ORGANIC MATTER EMISSIONS
4203	fluxomff(i)=scale_param_ff(iregion_ind(i))* &
4204	(lmt_omff(i))1.e41.e3 !/g/m2/s
4205	! FOSSIL FUEL EMISSIONS
4206	fluxff(i)=fluxbcff(i)+fluxomff(i)
4207	ENDIF
4208	IF (iregion_bb(i).GT.0) THEN ! LAND
4209	! SULFUR EMISSIONS
4210	fluxso2bb(i) =scale_param_bb(iregion_bb(i)) * fracso2emis * &
4211	(lmt_so2bb_l(i)+lmt_so2bb_h(i))* &
4212	(1.-pctsrf(i,is_oce))1.e4/RNAVOmasse_s*1.e3 ! mgS/m2/s
4213	! SULPHATE EMISSIONS
4214	fluxso4bb(i) =scale_param_bb(iregion_bb(i))(1-fracso2emis) &
4215	(lmt_so2bb_l(i)+lmt_so2bb_h(i))* &
4216	(1.-pctsrf(i,is_oce))1.e4/RNAVOmasse_s*1.e3 ! mgS/m2/s
4217	! BLACK CARBON EMISSIONS
4218	fluxbcbb(i)=scale_param_bb(iregion_bb(i))* &
4219	(lmt_bcbb_l(i)+lmt_bcbb_h(i))1.e41.e3 !mg/m2/s
4220	! ORGANIC MATTER EMISSIONS
4221	fluxombb(i)=scale_param_bb(iregion_bb(i))* &
4222	(lmt_ombb_l(i)+lmt_ombb_h(i))1.e41.e3 !mg/m2/s
4223	! BIOMASS BURNING EMISSIONS
4224	fluxbb(i)=fluxbcbb(i)+fluxombb(i)
4225	ENDIF
4226	! H2S EMISSIONS
4227	fluxh2sbio(i)=lmt_h2sbio(i)1.e4/RNAVOmasse_s*1.e3 ! mgS/m2/s
4228	fluxh2snff(i)= lmt_so2nff(i)frach2sofso2 &
4229	1.e4/RNAVOmasse_s1.e3 ! mgS/m2/s
4230	! SULFUR DIOXIDE EMISSIONS
4231	fluxso2nff(i)=fracso2emis * lmt_so2nff(i) * 1.e4/RNAVO * &
4232	masse_s * 1.e3 ! mgS/m2/s
4233	fluxso2vol(i)=(lmt_so2volc_cont(i)+lmt_so2volc_expl(i)) &
4234	1.e4/RNAVOmasse_s*1.e3 ! mgS/m2/s
4235	fluxso2ba(i) =lmt_so2ba(i)1.e4/RNAVOmasse_s1.e3 &
4236	fracso2emis ! mgS/m2/s
4237	fluxso2(i)=fluxso2ff(i)+fluxso2bb(i)+fluxso2nff(i)+ &
4238	fluxso2vol(i)+fluxso2ba(i)
4239	! DMS EMISSIONS
4240	fluxdms(i)=( lmt_dms(i)+lmt_dmsbio(i) ) &
4241	1.e4/RNAVOmasse_s*1.e3 ! mgS/m2/s
4242	! SULPHATE EMISSIONS
4243	fluxso4ba(i) =lmt_so2ba(i)1.e4/RNAVOmasse_s*1.e3 &
4244	*(1-fracso2emis) ! mgS/m2/s
4245	fluxso4nff(i)=(1-fracso2emis)lmt_so2nff(i) 1.e4/RNAVO * &
4246	masse_s * 1.e3 ! mgS/m2/s
4247	fluxso4(i)=fluxso4ff(i)+fluxso4bb(i)+fluxso4ba(i)+fluxso4nff(i)
4248	! BLACK CARBON EMISSIONS
4249
4250	fluxbcnff(i)=lmt_bcnff(i)1.e41.e3 !mg/m2/s
4251	fluxbcba(i)=lmt_bcba(i)1.e41.e3 !mg/m2/s
4252	fluxbc(i)=fluxbcbb(i)+fluxbcff(i)+fluxbcnff(i)+fluxbcba(i)
4253	! ORGANIC MATTER EMISSIONS
4254	fluxomnat(i)=lmt_omnat(i)1.e41.e3 !mg/m2/s
4255	fluxomba(i)=lmt_omba(i)1.e41.e3 !mg/m2/s
4256	fluxomnff(i)=lmt_omnff(i)1.e41.e3 !mg/m2/s
4257	fluxom(i)=fluxombb(i)+fluxomff(i)+fluxomnat(i)+fluxomba(i)+ &
4258	fluxomnff(i)
4259	! DUST EMISSIONS
4260	fluxdustec(i)=dust_ec(i)*1.e6 ! old dust emission scheme
4261	!JE20140605<< old dust emission version
4262	! fluxddfine(i)=scale_param_dustacc(iregion_dust(i))
4263	! . * dust_ec(i)0.0931.e6
4264	! fluxddcoa(i)=scale_param_dustcoa(iregion_dust(i))
4265	! . * dust_ec(i)0.9051.e6
4266	! fluxdd(i)=fluxddfine(i)+fluxddcoa(i)
4267	!JE20140605>>
4268	fluxddfine(i)=flux_sparam_ddfine(i)
4269	fluxddcoa(i)=flux_sparam_ddcoa(i)
4270	fluxddsco(i)=flux_sparam_ddsco(i)
4271	fluxdd(i)=fluxddfine(i)+fluxddcoa(i)+fluxddsco(i)
4272	! SEA SALT EMISSIONS
4273	fluxssfine(i)=scale_param_ssacclmt_sea_salt(i,1)1.e4*1.e3
4274	fluxsscoa(i)=scale_param_sscoalmt_sea_salt(i,2)1.e4*1.e3
4275	fluxss(i)=fluxssfine(i)+fluxsscoa(i)
4276	ENDDO
4277	! prepare outputs cvltr
4278
4279	DO it=1, nbtr
4280	DO k=1,klev
4281	DO i=1,klon
4282	tmp_var(i,k)=d_tr_cv(i,k,it)
4283	ENDDO
4284	ENDDO
4285	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4286	DO k=1,klev
4287	DO i=1,klon
4288	d_tr_cv_o(i,k,it)=tmp_var(i,k) &
4289	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4290	ENDDO
4291	ENDDO
4292	ENDDO
4293	DO it=1, nbtr
4294	DO k=1,klev
4295	DO i=1,klon
4296	tmp_var(i,k)=d_tr_trsp(i,k,it)
4297	ENDDO
4298	ENDDO
4299	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4300	DO k=1,klev
4301	DO i=1,klon
4302	d_tr_trsp_o(i,k,it)=tmp_var(i,k) &
4303	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4304	ENDDO
4305	ENDDO
4306	ENDDO
4307	DO it=1, nbtr
4308	DO k=1,klev
4309	DO i=1,klon
4310	tmp_var(i,k)=d_tr_sscav(i,k,it)
4311	ENDDO
4312	ENDDO
4313	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4314	DO k=1,klev
4315	DO i=1,klon
4316	d_tr_sscav_o(i,k,it)=tmp_var(i,k) &
4317	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4318	ENDDO
4319	ENDDO
4320	ENDDO
4321	DO it=1, nbtr
4322	DO k=1,klev
4323	DO i=1,klon
4324	tmp_var(i,k)=d_tr_sat(i,k,it)
4325	ENDDO
4326	ENDDO
4327	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4328	DO k=1,klev
4329	DO i=1,klon
4330	d_tr_sat_o(i,k,it)=tmp_var(i,k) &
4331	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4332	ENDDO
4333	ENDDO
4334	ENDDO
4335	DO it=1, nbtr
4336	DO k=1,klev
4337	DO i=1,klon
4338	tmp_var(i,k)=d_tr_uscav(i,k,it)
4339	ENDDO
4340	ENDDO
4341	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4342	DO k=1,klev
4343	DO i=1,klon
4344	d_tr_uscav_o(i,k,it)=tmp_var(i,k) &
4345	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4346	ENDDO
4347	ENDDO
4348	ENDDO
4349	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4350	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4351	DO it=1, nbtr
4352	DO k=1,klev
4353	DO i=1,klon
4354	tmp_var(i,k)=d_tr_insc(i,k,it)
4355	ENDDO
4356	ENDDO
4357	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4358	DO k=1,klev
4359	DO i=1,klon
4360	d_tr_insc_o(i,k,it)=tmp_var(i,k) &
4361	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4362	ENDDO
4363	ENDDO
4364	ENDDO
4365
4366
4367	DO it=1, nbtr
4368	DO k=1,klev
4369	DO i=1,klon
4370	tmp_var(i,k)=d_tr_bcscav(i,k,it)
4371	ENDDO
4372	ENDDO
4373	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4374	DO k=1,klev
4375	DO i=1,klon
4376	d_tr_bcscav_o(i,k,it)=tmp_var(i,k) &
4377	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4378	ENDDO
4379	ENDDO
4380	ENDDO
4381
4382
4383	DO it=1, nbtr
4384	DO k=1,klev
4385	DO i=1,klon
4386	tmp_var(i,k)=d_tr_evapls(i,k,it)
4387	ENDDO
4388	ENDDO
4389	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4390	DO k=1,klev
4391	DO i=1,klon
4392	d_tr_evapls_o(i,k,it)=tmp_var(i,k) &
4393	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4394	ENDDO
4395	ENDDO
4396	ENDDO
4397
4398
4399	DO it=1, nbtr
4400	DO k=1,klev
4401	DO i=1,klon
4402	tmp_var(i,k)=d_tr_ls(i,k,it)
4403	ENDDO
4404	ENDDO
4405	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4406	DO k=1,klev
4407	DO i=1,klon
4408	d_tr_ls_o(i,k,it)=tmp_var(i,k) &
4409	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4410	ENDDO
4411	ENDDO
4412	ENDDO
4413
4414
4415	DO it=1, nbtr
4416	DO k=1,klev
4417	DO i=1,klon
4418	tmp_var(i,k)=d_tr_dyn(i,k,it)
4419	ENDDO
4420	ENDDO
4421	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4422	DO k=1,klev
4423	DO i=1,klon
4424	d_tr_dyn_o(i,k,it)=tmp_var(i,k) &
4425	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4426	ENDDO
4427	ENDDO
4428	ENDDO
4429
4430
4431	DO it=1, nbtr
4432	DO k=1,klev
4433	DO i=1,klon
4434	tmp_var(i,k)=d_tr_cl(i,k,it)
4435	ENDDO
4436	ENDDO
4437	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4438	DO k=1,klev
4439	DO i=1,klon
4440	d_tr_cl_o(i,k,it)=tmp_var(i,k) &
4441	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4442	ENDDO
4443	ENDDO
4444	ENDDO
4445
4446
4447	DO it=1, nbtr
4448	DO k=1,klev
4449	DO i=1,klon
4450	tmp_var(i,k)=d_tr_th(i,k,it)
4451	ENDDO
4452	ENDDO
4453	CALL kg_to_cm3(pplay,t_seri,tmp_var)
4454	DO k=1,klev
4455	DO i=1,klon
4456	d_tr_th_o(i,k,it)=tmp_var(i,k) &
4457	/RNAVOmasse(it)1.e31.e6zdz(i,k)/pdtphys
4458	ENDDO
4459	ENDDO
4460	ENDDO
4461	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4462	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4463
4464	DO it=1,nbtr
4465	WRITE(str2,'(i2.2)') it
4466	DO i=1, klon
4467	his_dh(i,it)= his_dhlsc(i,it)+his_dhcon(i,it)+ &
4468	his_dhbclsc(i,it)+his_dhbccon(i,it)
4469
4470	ENDDO
4471	ENDDO
4472
4473	IF (ok_histrac) THEN
4474	!
4475	! SAVING VARIABLES IN TRACEUR
4476	!
4477	call gather(diff_aod550_tot ,auxklon_glo )
4478	!$OMP MASTER
4479	IF (is_mpi_root .AND. is_omp_root) THEN
4480	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4481	CALL histwrite(nid_tra3,"taue550",itra,zx_tmp_2d_glo, &
4482	nbp_lon*(nbp_lat),ndex2d)
4483	ENDIF ! mpi root
4484	!$OMP END MASTER
4485	!$OMP BARRIER
4486	call gather( diag_aod670_tot , auxklon_glo )
4487	!$OMP MASTER
4488	IF (is_mpi_root .AND. is_omp_root) THEN
4489	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo,zx_tmp_2d_glo)
4490	CALL histwrite(nid_tra3,"taue670",itra,zx_tmp_2d_glo, &
4491	nbp_lon*(nbp_lat),ndex2d)
4492	!
4493	ENDIF ! mpi root
4494	!$OMP END MASTER
4495	!$OMP BARRIER
4496	call gather( diag_aod865_tot , auxklon_glo )
4497	!$OMP MASTER
4498	IF (is_mpi_root .AND. is_omp_root) THEN
4499	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo,zx_tmp_2d_glo)
4500	CALL histwrite(nid_tra3,"taue865",itra,zx_tmp_2d_glo, &
4501	nbp_lon*(nbp_lat),ndex2d)
4502	!
4503	ENDIF ! mpi root
4504	!$OMP END MASTER
4505	!$OMP BARRIER
4506	call gather( diff_aod550_tr2 , auxklon_glo )
4507	!$OMP MASTER
4508	IF (is_mpi_root .AND. is_omp_root) THEN
4509	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo,zx_tmp_2d_glo)
4510	CALL histwrite(nid_tra3,"taue550_tr2",itra,zx_tmp_2d_glo, &
4511	nbp_lon*(nbp_lat),ndex2d)
4512	!
4513	ENDIF ! mpi root
4514	!$OMP END MASTER
4515	!$OMP BARRIER
4516	call gather( diag_aod670_tr2 , auxklon_glo )
4517	!$OMP MASTER
4518	IF (is_mpi_root .AND. is_omp_root) THEN
4519	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo,zx_tmp_2d_glo)
4520	CALL histwrite(nid_tra3,"taue670_tr2",itra,zx_tmp_2d_glo, &
4521	nbp_lon*(nbp_lat),ndex2d)
4522	!
4523	ENDIF ! mpi root
4524	!$OMP END MASTER
4525	!$OMP BARRIER
4526	call gather( diag_aod865_tr2 , auxklon_glo )
4527	!$OMP MASTER
4528	IF (is_mpi_root .AND. is_omp_root) THEN
4529	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo,zx_tmp_2d_glo)
4530	CALL histwrite(nid_tra3,"taue865_tr2",itra,zx_tmp_2d_glo, &
4531	nbp_lon*(nbp_lat),ndex2d)
4532	!
4533	ENDIF ! mpi root
4534	!$OMP END MASTER
4535	!$OMP BARRIER
4536	call gather( diag_aod550_ss, auxklon_glo )
4537	!$OMP MASTER
4538	IF (is_mpi_root .AND. is_omp_root) THEN
4539	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4540	CALL histwrite(nid_tra3,"taue550_ss",itra,zx_tmp_2d_glo, &
4541	nbp_lon*(nbp_lat),ndex2d)
4542	!
4543	ENDIF ! mpi root
4544	!$OMP END MASTER
4545	!$OMP BARRIER
4546	call gather( diag_aod670_ss , auxklon_glo )
4547	!$OMP MASTER
4548	IF (is_mpi_root .AND. is_omp_root) THEN
4549	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4550	CALL histwrite(nid_tra3,"taue670_ss",itra,zx_tmp_2d_glo, &
4551	nbp_lon*(nbp_lat),ndex2d)
4552	!
4553	ENDIF ! mpi root
4554	!$OMP END MASTER
4555	!$OMP BARRIER
4556	call gather( diag_aod865_ss, auxklon_glo )
4557	!$OMP MASTER
4558	IF (is_mpi_root .AND. is_omp_root) THEN
4559	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4560	CALL histwrite(nid_tra3,"taue865_ss",itra,zx_tmp_2d_glo, &
4561	nbp_lon*(nbp_lat),ndex2d)
4562	!
4563	ENDIF ! mpi root
4564	!$OMP END MASTER
4565	!$OMP BARRIER
4566	call gather( diag_aod550_dust, auxklon_glo )
4567	!$OMP MASTER
4568	IF (is_mpi_root .AND. is_omp_root) THEN
4569	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4570	CALL histwrite(nid_tra3,"taue550_dust",itra,zx_tmp_2d_glo, &
4571	nbp_lon*(nbp_lat),ndex2d)
4572	!
4573	ENDIF ! mpi root
4574	!$OMP END MASTER
4575	!$OMP BARRIER
4576	call gather( diag_aod670_dust, auxklon_glo )
4577	!$OMP MASTER
4578	IF (is_mpi_root .AND. is_omp_root) THEN
4579	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4580	CALL histwrite(nid_tra3,"taue670_dust",itra,zx_tmp_2d_glo, &
4581	nbp_lon*(nbp_lat),ndex2d)
4582	!
4583	ENDIF ! mpi root
4584	!$OMP END MASTER
4585	!$OMP BARRIER
4586	call gather( diag_aod865_dust, auxklon_glo )
4587	!$OMP MASTER
4588	IF (is_mpi_root .AND. is_omp_root) THEN
4589	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4590	CALL histwrite(nid_tra3,"taue865_dust",itra,zx_tmp_2d_glo, &
4591	nbp_lon*(nbp_lat),ndex2d)
4592	!
4593	ENDIF ! mpi root
4594	!$OMP END MASTER
4595	!$OMP BARRIER
4596	call gather( diag_aod550_dustsco, auxklon_glo )
4597	!$OMP MASTER
4598	IF (is_mpi_root .AND. is_omp_root) THEN
4599	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4600	CALL histwrite(nid_tra3,"taue550_dustsco",itra,zx_tmp_2d_glo, &
4601	nbp_lon*(nbp_lat),ndex2d)
4602	!
4603	ENDIF ! mpi root
4604	!$OMP END MASTER
4605	!$OMP BARRIER
4606	call gather( diag_aod670_dustsco, auxklon_glo )
4607	!$OMP MASTER
4608	IF (is_mpi_root .AND. is_omp_root) THEN
4609	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4610	CALL histwrite(nid_tra3,"taue670_dustsco",itra,zx_tmp_2d_glo, &
4611	nbp_lon*(nbp_lat),ndex2d)
4612	!
4613	ENDIF ! mpi root
4614	!$OMP END MASTER
4615	!$OMP BARRIER
4616	call gather( diag_aod865_dustsco, auxklon_glo )
4617	!$OMP MASTER
4618	IF (is_mpi_root .AND. is_omp_root) THEN
4619	CALL gr_fi_ecrit(1, klon_glo,nbp_lon,nbp_lat, auxklon_glo ,zx_tmp_2d_glo)
4620	CALL histwrite(nid_tra3,"taue865_dustsco",itra,zx_tmp_2d_glo, &
4621	nbp_lon*(nbp_lat),ndex2d)
4622	ENDIF ! mpi root
4623	!$OMP END MASTER
4624	!$OMP BARRIER
4625
4626	!$OMP MASTER
4627	DO it=1,nbtr
4628	!
4629	WRITE(str2,'(i2.2)') it
4630	!
4631	call gather( trm, auxklonnbtr_glo )
4632	! !$OMP MASTER
4633	IF (is_mpi_root .AND. is_omp_root) THEN
4634	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) , zx_tmp_2d_glo)
4635	CALL histwrite(nid_tra3,"trm"//str2,itra,zx_tmp_2d_glo, &
4636	nbp_lon*(nbp_lat),ndex2d)
4637	!
4638	ENDIF ! mpi root
4639	! !$OMP END MASTER
4640	! !$OMP BARRIER
4641	call gather( sconc_seri, auxklonnbtr_glo )
4642	! !$OMP MASTER
4643	IF (is_mpi_root .AND. is_omp_root) THEN
4644	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4645	CALL histwrite(nid_tra3,"sconc"//str2,itra,zx_tmp_2d_glo, &
4646	nbp_lon*(nbp_lat),ndex2d)
4647	ENDIF ! mpi root
4648	! !$OMP END MASTER
4649	! !$OMP BARRIER
4650	!
4651	! SAVING VARIABLES IN LESSIVAGE
4652	!
4653	call gather( flux_tr, auxklonnbtr_glo )
4654	! !$OMP MASTER
4655	IF (is_mpi_root .AND. is_omp_root) THEN
4656	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4657	CALL histwrite(nid_tra2,"flux"//str2,itra,zx_tmp_2d_glo, &
4658	nbp_lon*(nbp_lat),ndex2d)
4659	!
4660	ENDIF ! mpi root
4661	! !$OMP END MASTER
4662	! !$OMP BARRIER
4663	call gather( his_ds, auxklonnbtr_glo )
4664	!! $OMP MASTER
4665	IF (is_mpi_root .AND. is_omp_root) THEN
4666	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4667	CALL histwrite(nid_tra2,"ds"//str2,itra,zx_tmp_2d_glo, &
4668	nbp_lon*(nbp_lat),ndex2d)
4669	!
4670	ENDIF
4671	! !$OMP END MASTER
4672	! !$OMP BARRIER
4673	ENDDO
4674
4675	DO it=1,nbtr
4676	WRITE(str2,'(i2.2)') it
4677	DO i=1, klon
4678	zx_tmp_fi2d(i) = his_dhlsc(i,it)+his_dhcon(i,it)+ &
4679	his_dhbclsc(i,it)+his_dhbccon(i,it)
4680	his_dh(i,it)= his_dhlsc(i,it)+his_dhcon(i,it)+ &
4681	his_dhbclsc(i,it)+his_dhbccon(i,it)
4682
4683	ENDDO
4684	!
4685	call gather( zx_tmp_fi2d, auxklon_glo )
4686	! !$OMP MASTER
4687	IF (is_mpi_root .AND. is_omp_root) THEN
4688	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4689	CALL histwrite(nid_tra2,"dh"//str2,itra,zx_tmp_2d_glo, &
4690	nbp_lon*(nbp_lat),ndex2d)
4691	!
4692	ENDIF ! mpi root
4693	! !$OMP END MASTER
4694	! !$OMP BARRIER
4695	call gather( his_dhkecv, auxklonnbtr_glo )
4696	! !$OMP MASTER
4697	IF (is_mpi_root .AND. is_omp_root) THEN
4698	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4699	CALL histwrite(nid_tra2,"dhkecv"//str2,itra,zx_tmp_2d_glo, &
4700	nbp_lon*(nbp_lat),ndex2d)
4701	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4702	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4703	!
4704	ENDIF ! mpi root
4705	! !$OMP END MASTER
4706	! !$OMP BARRIER
4707	call gather( his_dhkelsc, auxklonnbtr_glo )
4708	! !$OMP MASTER
4709	IF (is_mpi_root .AND. is_omp_root) THEN
4710	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4711	CALL histwrite(nid_tra2,"dhkelsc"//str2,itra,zx_tmp_2d_glo, &
4712	nbp_lon*(nbp_lat),ndex2d)
4713	!
4714
4715	ENDIF ! mpi root
4716	! !$OMP END MASTER
4717	! !$OMP BARRIER
4718	! call gather( d_tr_cv_o, auxklonklevnbtr_glo )
4719	call gather( d_tr_cv, auxklonklevnbtr_glo )
4720	! !$OMP MASTER
4721	IF (is_mpi_root .AND. is_omp_root) THEN
4722	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4723	zx_tmp_3d_glo)
4724	CALL histwrite(nid_tra2,"d_tr_cv"//str2,itra,zx_tmp_3d_glo, &
4725	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4726	!
4727	ENDIF ! mpi root
4728	! !$OMP END MASTER
4729	! !$OMP BARRIER
4730	call gather( d_tr_trsp_o, auxklonklevnbtr_glo )
4731	! !$OMP MASTER
4732	IF (is_mpi_root .AND. is_omp_root) THEN
4733	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4734	zx_tmp_3d_glo)
4735	CALL histwrite(nid_tra2,"d_tr_trsp"//str2,itra,zx_tmp_3d_glo, &
4736	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4737	!
4738	ENDIF ! mpi root
4739	! !$OMP END MASTER
4740	! !$OMP BARRIER
4741	call gather( d_tr_sscav_o, auxklonklevnbtr_glo )
4742	! !$OMP MASTER
4743	IF (is_mpi_root .AND. is_omp_root) THEN
4744	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4745	zx_tmp_3d_glo)
4746	CALL histwrite(nid_tra2,"d_tr_sscav"//str2,itra,zx_tmp_3d_glo, &
4747	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4748	!
4749	ENDIF ! mpi root
4750	! !$OMP END MASTER
4751	! !$OMP BARRIER
4752	call gather( d_tr_sat_o, auxklonklevnbtr_glo )
4753	! !$OMP MASTER
4754	IF (is_mpi_root .AND. is_omp_root) THEN
4755	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4756	zx_tmp_3d_glo)
4757	CALL histwrite(nid_tra2,"d_tr_sat"//str2,itra,zx_tmp_3d_glo, &
4758	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4759	!
4760	ENDIF ! mpi root
4761	! !$OMP END MASTER
4762	! !$OMP BARRIER
4763	call gather( d_tr_uscav_o, auxklonklevnbtr_glo )
4764	! !$OMP MASTER
4765	IF (is_mpi_root .AND. is_omp_root) THEN
4766	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4767	zx_tmp_3d_glo)
4768	CALL histwrite(nid_tra2,"d_tr_uscav"//str2,itra,zx_tmp_3d_glo, &
4769	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4770	!
4771	ENDIF ! mpi root
4772	! !$OMP END MASTER
4773	! !$OMP BARRIER
4774
4775	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4776	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4777	call gather( d_tr_insc_o, auxklonklevnbtr_glo )
4778	! !$OMP MASTER
4779	IF (is_mpi_root .AND. is_omp_root) THEN
4780	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4781	zx_tmp_3d_glo)
4782	CALL histwrite(nid_tra2,"d_tr_insc"//str2,itra,zx_tmp_3d_glo, &
4783	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4784	!
4785	ENDIF ! mpi root
4786	! !$OMP END MASTER
4787	! !$OMP BARRIER
4788
4789	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4790	call gather( d_tr_bcscav_o, auxklonklevnbtr_glo )
4791	! !$OMP MASTER
4792	IF (is_mpi_root .AND. is_omp_root) THEN
4793	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4794	zx_tmp_3d_glo)
4795	CALL histwrite(nid_tra2,"d_tr_bcscav"//str2,itra,zx_tmp_3d_glo, &
4796	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4797	!
4798	ENDIF ! mpi root
4799	! !$OMP END MASTER
4800	! !$OMP BARRIER
4801	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4802	call gather( d_tr_evapls_o, auxklonklevnbtr_glo )
4803	! !$OMP MASTER
4804	IF (is_mpi_root .AND. is_omp_root) THEN
4805	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4806	zx_tmp_3d_glo)
4807	CALL histwrite(nid_tra2,"d_tr_evapls"//str2,itra,zx_tmp_3d_glo, &
4808	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4809	!
4810	ENDIF ! mpi root
4811	! !$OMP END MASTER
4812	! !$OMP BARRIER
4813	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4814	! call gather( d_tr_ls_o, auxklonklevnbtr_glo )
4815	call gather( d_tr_ls, auxklonklevnbtr_glo )
4816	! !$OMP MASTER
4817	IF (is_mpi_root .AND. is_omp_root) THEN
4818	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4819	zx_tmp_3d_glo)
4820	CALL histwrite(nid_tra2,"d_tr_ls"//str2,itra,zx_tmp_3d_glo, &
4821	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4822
4823	ENDIF ! mpi root
4824	! !$OMP END MASTER
4825	! !$OMP BARRIER
4826
4827
4828	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4829	! call gather( d_tr_dyn_o, auxklonklevnbtr_glo )
4830	call gather( d_tr_dyn, auxklonklevnbtr_glo )
4831	! !$OMP MASTER
4832	IF (is_mpi_root .AND. is_omp_root) THEN
4833	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4834	zx_tmp_3d_glo)
4835	CALL histwrite(nid_tra2,"d_tr_dyn"//str2,itra,zx_tmp_3d_glo, &
4836	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4837
4838	print*,'ECRTIURES TENDANCES MODIFIEES NON MAIS'
4839	ENDIF ! mpi root
4840	! !$OMP END MASTER
4841	! !$OMP BARRIER
4842	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4843	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4844	! call gather( d_tr_cl_o, auxklonklevnbtr_glo )
4845	call gather( d_tr_cl, auxklonklevnbtr_glo )
4846	! !$OMP MASTER
4847	IF (is_mpi_root .AND. is_omp_root) THEN
4848	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4849	zx_tmp_3d_glo)
4850	CALL histwrite(nid_tra2,"d_tr_cl"//str2,itra,zx_tmp_3d_glo, &
4851	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4852
4853	ENDIF ! mpi root
4854	! !$OMP END MASTER
4855	! !$OMP BARRIER
4856	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4857	! call gather( d_tr_th_o, auxklonklevnbtr_glo )
4858	call gather( d_tr_th, auxklonklevnbtr_glo )
4859	! !$OMP MASTER
4860	IF (is_mpi_root .AND. is_omp_root) THEN
4861	CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,auxklonklevnbtr_glo(1,1,it) , &
4862	zx_tmp_3d_glo)
4863	CALL histwrite(nid_tra2,"d_tr_th"//str2,itra,zx_tmp_3d_glo, &
4864	nbp_lon(nbp_lat)nbp_lev,ndex3d)
4865
4866	ENDIF ! mpi root
4867	! !$OMP END MASTER
4868	! !$OMP BARRIER
4869	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4870	call gather( dtrconv,auxklonnbtr_glo )
4871	! !$OMP MASTER
4872	IF (is_mpi_root .AND. is_omp_root) THEN
4873	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4874	CALL histwrite(nid_tra2,"dtrconv"//str2,itra,zx_tmp_2d_glo, &
4875	nbp_lon*(nbp_lat),ndex2d)
4876	!
4877	ENDIF ! mpi root
4878	! !$OMP END MASTER
4879	! !$OMP BARRIER
4880	call gather( his_th, auxklonnbtr_glo )
4881	! !$OMP MASTER
4882	IF (is_mpi_root .AND. is_omp_root) THEN
4883	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklonnbtr_glo(1,it) ,zx_tmp_2d_glo)
4884	CALL histwrite(nid_tra2,"dtherm"//str2,itra,zx_tmp_2d_glo, &
4885	nbp_lon*(nbp_lat),ndex2d)
4886	ENDIF ! mpi root
4887	! !$OMP END MASTER
4888	! !$OMP BARRIER
4889	!
4890
4891	ENDDO
4892	!
4893	!$OMP END MASTER
4894	!$OMP BARRIER
4895	call gather( sed_ss, auxklon_glo )
4896	!$OMP MASTER
4897	IF (is_mpi_root .AND. is_omp_root) THEN
4898	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
4899	CALL histwrite(nid_tra2,"sed_ss",itra,zx_tmp_2d_glo, &
4900	nbp_lon*(nbp_lat),ndex2d)
4901	!
4902	ENDIF ! mpi root
4903	!$OMP END MASTER
4904	!$OMP BARRIER
4905	call gather( sed_dust, auxklon_glo )
4906	!$OMP MASTER
4907	IF (is_mpi_root .AND. is_omp_root) THEN
4908	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4909	CALL histwrite(nid_tra2,"sed_dust",itra,zx_tmp_2d_glo, &
4910	nbp_lon*(nbp_lat),ndex2d)
4911	!
4912	ENDIF ! mpi root
4913	!$OMP END MASTER
4914	!$OMP BARRIER
4915	call gather( sed_dustsco, auxklon_glo )
4916	!$OMP MASTER
4917	IF (is_mpi_root .AND. is_omp_root) THEN
4918	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4919	CALL histwrite(nid_tra2,"sed_dustsco",itra,zx_tmp_2d_glo, &
4920	nbp_lon*(nbp_lat),ndex2d)
4921	!
4922	ENDIF ! mpi root
4923	!$OMP END MASTER
4924	!$OMP BARRIER
4925	call gather( his_g2pgas, auxklon_glo )
4926	!$OMP MASTER
4927	IF (is_mpi_root .AND. is_omp_root) THEN
4928	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4929	CALL histwrite(nid_tra2,"g2p_gas",itra,zx_tmp_2d_glo, &
4930	nbp_lon*(nbp_lat),ndex2d)
4931	!
4932	ENDIF ! mpi root
4933	!$OMP END MASTER
4934	!$OMP BARRIER
4935	call gather( his_g2paer, auxklon_glo )
4936	!$OMP MASTER
4937	IF (is_mpi_root .AND. is_omp_root) THEN
4938	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4939	CALL histwrite(nid_tra2,"g2p_aer",itra,zx_tmp_2d_glo, &
4940	nbp_lon*(nbp_lat),ndex2d)
4941	! SAVING VARIABLES IN HISTRAC
4942	!
4943	ENDIF ! mpi root
4944	!$OMP END MASTER
4945	!$OMP BARRIER
4946	call gather( fluxbb, auxklon_glo )
4947	!$OMP MASTER
4948	IF (is_mpi_root .AND. is_omp_root) THEN
4949	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4950	CALL histwrite(nid_tra1,"fluxbb",itra,zx_tmp_2d_glo, &
4951	nbp_lon*(nbp_lat),ndex2d)
4952	!
4953	ENDIF ! mpi root
4954	!$OMP END MASTER
4955	!$OMP BARRIER
4956	call gather( fluxff, auxklon_glo )
4957	!$OMP MASTER
4958	IF (is_mpi_root .AND. is_omp_root) THEN
4959	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4960	CALL histwrite(nid_tra1,"fluxff",itra,zx_tmp_2d_glo, &
4961	nbp_lon*(nbp_lat),ndex2d)
4962	!
4963	! ======================== BC =============================
4964	ENDIF ! mpi root
4965	!$OMP END MASTER
4966	!$OMP BARRIER
4967	call gather( fluxbcbb, auxklon_glo )
4968	!$OMP MASTER
4969	IF (is_mpi_root .AND. is_omp_root) THEN
4970	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4971	CALL histwrite(nid_tra1,"fluxbcbb",itra,zx_tmp_2d_glo, &
4972	nbp_lon*(nbp_lat),ndex2d)
4973	!
4974	ENDIF ! mpi root
4975	!$OMP END MASTER
4976	!$OMP BARRIER
4977	call gather( fluxbcff, auxklon_glo )
4978	!$OMP MASTER
4979	IF (is_mpi_root .AND. is_omp_root) THEN
4980	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4981	CALL histwrite(nid_tra1,"fluxbcff",itra,zx_tmp_2d_glo, &
4982	nbp_lon*(nbp_lat),ndex2d)
4983	!
4984	ENDIF ! mpi root
4985	!$OMP END MASTER
4986	!$OMP BARRIER
4987	call gather( fluxbcnff, auxklon_glo )
4988	!$OMP MASTER
4989	IF (is_mpi_root .AND. is_omp_root) THEN
4990	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
4991	CALL histwrite(nid_tra1,"fluxbcnff",itra,zx_tmp_2d_glo, &
4992	nbp_lon*(nbp_lat),ndex2d)
4993	!
4994	ENDIF ! mpi root
4995	!$OMP END MASTER
4996	!$OMP BARRIER
4997	call gather( fluxbcba, auxklon_glo )
4998	!$OMP MASTER
4999	IF (is_mpi_root .AND. is_omp_root) THEN
5000	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5001	CALL histwrite(nid_tra1,"fluxbcba",itra,zx_tmp_2d_glo, &
5002	nbp_lon*(nbp_lat),ndex2d)
5003	!
5004	ENDIF ! mpi root
5005	!$OMP END MASTER
5006	!$OMP BARRIER
5007	call gather( fluxbc, auxklon_glo )
5008	!$OMP MASTER
5009	IF (is_mpi_root .AND. is_omp_root) THEN
5010	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5011	CALL histwrite(nid_tra1,"fluxbc",itra,zx_tmp_2d_glo, &
5012	nbp_lon*(nbp_lat),ndex2d)
5013	! ======================== OM =============================
5014	ENDIF ! mpi root
5015	!$OMP END MASTER
5016	!$OMP BARRIER
5017	call gather( fluxombb, auxklon_glo )
5018	!$OMP MASTER
5019	IF (is_mpi_root .AND. is_omp_root) THEN
5020	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5021	CALL histwrite(nid_tra1,"fluxombb",itra,zx_tmp_2d_glo, &
5022	nbp_lon*(nbp_lat),ndex2d)
5023	!
5024	ENDIF ! mpi root
5025	!$OMP END MASTER
5026	!$OMP BARRIER
5027	call gather( fluxomff, auxklon_glo )
5028	!$OMP MASTER
5029	IF (is_mpi_root .AND. is_omp_root) THEN
5030	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5031	CALL histwrite(nid_tra1,"fluxomff",itra,zx_tmp_2d_glo, &
5032	nbp_lon*(nbp_lat),ndex2d)
5033	!
5034	ENDIF ! mpi root
5035	!$OMP END MASTER
5036	!$OMP BARRIER
5037	call gather( fluxomnff, auxklon_glo )
5038	!$OMP MASTER
5039	IF (is_mpi_root .AND. is_omp_root) THEN
5040	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5041	CALL histwrite(nid_tra1,"fluxomnff",itra,zx_tmp_2d_glo, &
5042	nbp_lon*(nbp_lat),ndex2d)
5043	!
5044	ENDIF ! mpi root
5045	!$OMP END MASTER
5046	!$OMP BARRIER
5047	call gather( fluxomba, auxklon_glo )
5048	!$OMP MASTER
5049	IF (is_mpi_root .AND. is_omp_root) THEN
5050	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5051	CALL histwrite(nid_tra1,"fluxomba",itra,zx_tmp_2d_glo, &
5052	nbp_lon*(nbp_lat),ndex2d)
5053	!
5054	ENDIF ! mpi root
5055	!$OMP END MASTER
5056	!$OMP BARRIER
5057	call gather( fluxomnat, auxklon_glo )
5058	!$OMP MASTER
5059	IF (is_mpi_root .AND. is_omp_root) THEN
5060	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5061	CALL histwrite(nid_tra1,"fluxomnat",itra,zx_tmp_2d_glo, &
5062	nbp_lon*(nbp_lat),ndex2d)
5063	!
5064	ENDIF ! mpi root
5065	!$OMP END MASTER
5066	!$OMP BARRIER
5067	call gather( fluxom, auxklon_glo )
5068	!$OMP MASTER
5069	IF (is_mpi_root .AND. is_omp_root) THEN
5070	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5071	CALL histwrite(nid_tra1,"fluxom",itra,zx_tmp_2d_glo, &
5072	nbp_lon*(nbp_lat),ndex2d)
5073	! ======================== SO4 =============================
5074	ENDIF ! mpi root
5075	!$OMP END MASTER
5076	!$OMP BARRIER
5077	call gather( fluxso4ff, auxklon_glo )
5078	!$OMP MASTER
5079	IF (is_mpi_root .AND. is_omp_root) THEN
5080	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5081	CALL histwrite(nid_tra1,"fluxso4ff",itra,zx_tmp_2d_glo, &
5082	nbp_lon*(nbp_lat),ndex2d)
5083	!
5084	ENDIF ! mpi root
5085	!$OMP END MASTER
5086	!$OMP BARRIER
5087	call gather( fluxso4nff, auxklon_glo )
5088	!$OMP MASTER
5089	IF (is_mpi_root .AND. is_omp_root) THEN
5090	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5091	CALL histwrite(nid_tra1,"fluxso4nff",itra,zx_tmp_2d_glo, &
5092	nbp_lon*(nbp_lat),ndex2d)
5093	!
5094	ENDIF ! mpi root
5095	!$OMP END MASTER
5096	!$OMP BARRIER
5097	call gather( fluxso4bb, auxklon_glo )
5098	!$OMP MASTER
5099	IF (is_mpi_root .AND. is_omp_root) THEN
5100	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5101	CALL histwrite(nid_tra1,"fluxso4bb",itra,zx_tmp_2d_glo, &
5102	nbp_lon*(nbp_lat),ndex2d)
5103	!
5104	ENDIF ! mpi root
5105	!$OMP END MASTER
5106	!$OMP BARRIER
5107	call gather( fluxso4ba, auxklon_glo )
5108	!$OMP MASTER
5109	IF (is_mpi_root .AND. is_omp_root) THEN
5110	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5111	CALL histwrite(nid_tra1,"fluxso4ba",itra,zx_tmp_2d_glo, &
5112	nbp_lon*(nbp_lat),ndex2d)
5113	!
5114	ENDIF ! mpi root
5115	!$OMP END MASTER
5116	!$OMP BARRIER
5117	call gather( fluxso4, auxklon_glo )
5118	!$OMP MASTER
5119	IF (is_mpi_root .AND. is_omp_root) THEN
5120	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo ,zx_tmp_2d_glo)
5121	CALL histwrite(nid_tra1,"fluxso4",itra,zx_tmp_2d_glo, &
5122	nbp_lon*(nbp_lat),ndex2d)
5123	! ======================== H2S =============================
5124	ENDIF ! mpi root
5125	!$OMP END MASTER
5126	!$OMP BARRIER
5127	call gather( fluxh2sff, auxklon_glo )
5128	!$OMP MASTER
5129	IF (is_mpi_root .AND. is_omp_root) THEN
5130	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5131	CALL histwrite(nid_tra1,"fluxh2sff",itra,zx_tmp_2d_glo, &
5132	nbp_lon*(nbp_lat),ndex2d)
5133	!
5134	ENDIF ! mpi root
5135	!$OMP END MASTER
5136	!$OMP BARRIER
5137	call gather( fluxh2snff, auxklon_glo )
5138	!$OMP MASTER
5139	IF (is_mpi_root .AND. is_omp_root) THEN
5140	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5141	CALL histwrite(nid_tra1,"fluxh2snff",itra,zx_tmp_2d_glo, &
5142	nbp_lon*(nbp_lat),ndex2d)
5143	!
5144	ENDIF ! mpi root
5145	!$OMP END MASTER
5146	!$OMP BARRIER
5147	call gather( fluxh2sbio, auxklon_glo )
5148	!$OMP MASTER
5149	IF (is_mpi_root .AND. is_omp_root) THEN
5150	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5151	CALL histwrite(nid_tra1,"fluxh2sbio",itra,zx_tmp_2d_glo, &
5152	nbp_lon*(nbp_lat),ndex2d)
5153	! ======================== SO2 =============================
5154	ENDIF ! mpi root
5155	!$OMP END MASTER
5156	!$OMP BARRIER
5157	call gather( fluxso2ff, auxklon_glo )
5158	!$OMP MASTER
5159	IF (is_mpi_root .AND. is_omp_root) THEN
5160	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5161	CALL histwrite(nid_tra1,"fluxso2ff",itra,zx_tmp_2d_glo, &
5162	nbp_lon*(nbp_lat),ndex2d)
5163	!
5164	ENDIF ! mpi root
5165	!$OMP END MASTER
5166	!$OMP BARRIER
5167	call gather( fluxso2nff, auxklon_glo )
5168	!$OMP MASTER
5169	IF (is_mpi_root .AND. is_omp_root) THEN
5170	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5171	CALL histwrite(nid_tra1,"fluxso2nff",itra,zx_tmp_2d_glo, &
5172	nbp_lon*(nbp_lat),ndex2d)
5173	!
5174	ENDIF ! mpi root
5175	!$OMP END MASTER
5176	!$OMP BARRIER
5177	call gather( fluxso2bb, auxklon_glo )
5178	!$OMP MASTER
5179	IF (is_mpi_root .AND. is_omp_root) THEN
5180	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5181	CALL histwrite(nid_tra1,"fluxso2bb",itra,zx_tmp_2d_glo, &
5182	nbp_lon*(nbp_lat),ndex2d)
5183	!
5184	ENDIF ! mpi root
5185	!$OMP END MASTER
5186	!$OMP BARRIER
5187	call gather( fluxso2vol, auxklon_glo )
5188	!$OMP MASTER
5189	IF (is_mpi_root .AND. is_omp_root) THEN
5190	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5191	CALL histwrite(nid_tra1,"fluxso2vol",itra,zx_tmp_2d_glo, &
5192	nbp_lon*(nbp_lat),ndex2d)
5193	!
5194	ENDIF ! mpi root
5195	!$OMP END MASTER
5196	!$OMP BARRIER
5197	call gather( fluxso2ba, auxklon_glo )
5198	!$OMP MASTER
5199	IF (is_mpi_root .AND. is_omp_root) THEN
5200	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5201	CALL histwrite(nid_tra1,"fluxso2ba",itra,zx_tmp_2d_glo, &
5202	nbp_lon*(nbp_lat),ndex2d)
5203	!
5204	ENDIF ! mpi root
5205	!$OMP END MASTER
5206	!$OMP BARRIER
5207	call gather( fluxso2, auxklon_glo )
5208	!$OMP MASTER
5209	IF (is_mpi_root .AND. is_omp_root) THEN
5210	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5211	CALL histwrite(nid_tra1,"fluxso2",itra,zx_tmp_2d_glo, &
5212	nbp_lon*(nbp_lat),ndex2d)
5213	!
5214	ENDIF ! mpi root
5215	!$OMP END MASTER
5216	!$OMP BARRIER
5217	call gather( fluxdms, auxklon_glo )
5218	!$OMP MASTER
5219	IF (is_mpi_root .AND. is_omp_root) THEN
5220	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5221	CALL histwrite(nid_tra1,"fluxdms",itra,zx_tmp_2d_glo, &
5222	nbp_lon*(nbp_lat),ndex2d)
5223	! ======================== DD =============================
5224	ENDIF ! mpi root
5225	!$OMP END MASTER
5226	!$OMP BARRIER
5227	call gather( fluxdustec, auxklon_glo )
5228	!$OMP MASTER
5229	IF (is_mpi_root .AND. is_omp_root) THEN
5230	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5231	CALL histwrite(nid_tra1,"fluxdustec",itra,zx_tmp_2d_glo, &
5232	nbp_lon*(nbp_lat),ndex2d)
5233	!
5234	ENDIF ! mpi root
5235	!$OMP END MASTER
5236	!$OMP BARRIER
5237	call gather( fluxddfine, auxklon_glo )
5238	!$OMP MASTER
5239	IF (is_mpi_root .AND. is_omp_root) THEN
5240	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5241	CALL histwrite(nid_tra1,"fluxddfine",itra,zx_tmp_2d_glo, &
5242	nbp_lon*(nbp_lat),ndex2d)
5243	!
5244	ENDIF ! mpi root
5245	!$OMP END MASTER
5246	!$OMP BARRIER
5247	call gather( fluxddcoa, auxklon_glo )
5248	!$OMP MASTER
5249	IF (is_mpi_root .AND. is_omp_root) THEN
5250	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5251	CALL histwrite(nid_tra1,"fluxddcoa",itra,zx_tmp_2d_glo, &
5252	nbp_lon*(nbp_lat),ndex2d)
5253	!
5254	ENDIF ! mpi root
5255	!$OMP END MASTER
5256	!$OMP BARRIER
5257	call gather( fluxddsco, auxklon_glo )
5258	!$OMP MASTER
5259	IF (is_mpi_root .AND. is_omp_root) THEN
5260	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5261	CALL histwrite(nid_tra1,"fluxddsco",itra,zx_tmp_2d_glo, &
5262	nbp_lon*(nbp_lat),ndex2d)
5263	!
5264	ENDIF ! mpi root
5265	!$OMP END MASTER
5266	!$OMP BARRIER
5267	call gather( fluxdd, auxklon_glo )
5268	!$OMP MASTER
5269	IF (is_mpi_root .AND. is_omp_root) THEN
5270	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5271	CALL histwrite(nid_tra1,"fluxdd",itra,zx_tmp_2d_glo, &
5272	nbp_lon*(nbp_lat),ndex2d)
5273	! ======================== SS =============================
5274	ENDIF ! mpi root
5275	!$OMP END MASTER
5276	!$OMP BARRIER
5277	call gather( fluxssfine, auxklon_glo )
5278	!$OMP MASTER
5279	IF (is_mpi_root .AND. is_omp_root) THEN
5280	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5281	CALL histwrite(nid_tra1,"fluxssfine",itra,zx_tmp_2d_glo, &
5282	nbp_lon*(nbp_lat),ndex2d)
5283	!
5284	ENDIF ! mpi root
5285	!$OMP END MASTER
5286	!$OMP BARRIER
5287	call gather( fluxsscoa, auxklon_glo )
5288	!$OMP MASTER
5289	IF (is_mpi_root .AND. is_omp_root) THEN
5290	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5291	CALL histwrite(nid_tra1,"fluxsscoa",itra,zx_tmp_2d_glo, &
5292	nbp_lon*(nbp_lat),ndex2d)
5293	!
5294	ENDIF ! mpi root
5295	!$OMP END MASTER
5296	!$OMP BARRIER
5297	call gather( fluxss, auxklon_glo )
5298	!$OMP MASTER
5299	IF (is_mpi_root .AND. is_omp_root) THEN
5300	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5301	CALL histwrite(nid_tra1,"fluxss",itra,zx_tmp_2d_glo, &
5302	nbp_lon*(nbp_lat),ndex2d)
5303	!
5304	ENDIF ! mpi root
5305	!$OMP END MASTER
5306	!$OMP BARRIER
5307
5308	! call gather( , auxklon_glo )
5309	!!!! IF (is_mpi_root .AND. is_omp_root) THEN
5310	!nhl CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,fluxso4chem,zx_tmp_3d_glo)
5311	!nhl CALL histwrite(nid_tra1,"fluxso4chem",itra,zx_tmp_3d_glo, &
5312	!nhl . nbp_lon(nbp_lat)nbp_lev,ndex3d)
5313	!
5314	call gather( flux_sparam_ind, auxklon_glo )
5315	!$OMP MASTER
5316	IF (is_mpi_root .AND. is_omp_root) THEN
5317	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5318	CALL histwrite(nid_tra1,"flux_sparam_ind",itra,zx_tmp_2d_glo, &
5319	nbp_lon*(nbp_lat),ndex2d)
5320	!
5321	ENDIF ! mpi root
5322	!$OMP END MASTER
5323	!$OMP BARRIER
5324	call gather( flux_sparam_bb, auxklon_glo )
5325	!$OMP MASTER
5326	IF (is_mpi_root .AND. is_omp_root) THEN
5327	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5328	CALL histwrite(nid_tra1,"flux_sparam_bb",itra,zx_tmp_2d_glo, &
5329	nbp_lon*(nbp_lat),ndex2d)
5330	!
5331	ENDIF ! mpi root
5332	!$OMP END MASTER
5333	!$OMP BARRIER
5334	call gather( flux_sparam_ff, auxklon_glo )
5335	!$OMP MASTER
5336	IF (is_mpi_root .AND. is_omp_root) THEN
5337	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5338	CALL histwrite(nid_tra1,"flux_sparam_ff",itra,zx_tmp_2d_glo, &
5339	nbp_lon*(nbp_lat),ndex2d)
5340	!
5341	ENDIF ! mpi root
5342	!$OMP END MASTER
5343	!$OMP BARRIER
5344	call gather( flux_sparam_ddfine, auxklon_glo )
5345	!$OMP MASTER
5346	IF (is_mpi_root .AND. is_omp_root) THEN
5347	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5348	CALL histwrite(nid_tra1,"flux_sparam_ddfine",itra,zx_tmp_2d_glo, &
5349	nbp_lon*(nbp_lat),ndex2d)
5350	!
5351	ENDIF ! mpi root
5352	!$OMP END MASTER
5353	!$OMP BARRIER
5354	call gather( flux_sparam_ddcoa, auxklon_glo )
5355	!$OMP MASTER
5356	IF (is_mpi_root .AND. is_omp_root) THEN
5357	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5358	CALL histwrite(nid_tra1,"flux_sparam_ddcoa",itra,zx_tmp_2d_glo, &
5359	nbp_lon*(nbp_lat),ndex2d)
5360	!
5361	ENDIF ! mpi root
5362	!$OMP END MASTER
5363	!$OMP BARRIER
5364	call gather( flux_sparam_ddsco, auxklon_glo )
5365	!$OMP MASTER
5366	IF (is_mpi_root .AND. is_omp_root) THEN
5367	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5368	CALL histwrite(nid_tra1,"flux_sparam_ddsco",itra,zx_tmp_2d_glo, &
5369	nbp_lon*(nbp_lat),ndex2d)
5370	!
5371	ENDIF ! mpi root
5372	!$OMP END MASTER
5373	!$OMP BARRIER
5374	call gather( flux_sparam_ssfine, auxklon_glo )
5375	!$OMP MASTER
5376	IF (is_mpi_root .AND. is_omp_root) THEN
5377	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5378	CALL histwrite(nid_tra1,"flux_sparam_ssfine",itra,zx_tmp_2d_glo, &
5379	nbp_lon*(nbp_lat),ndex2d)
5380	!
5381	ENDIF ! mpi root
5382	!$OMP END MASTER
5383	!$OMP BARRIER
5384	call gather( flux_sparam_sscoa, auxklon_glo )
5385	!$OMP MASTER
5386	IF (is_mpi_root .AND. is_omp_root) THEN
5387	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5388	CALL histwrite(nid_tra1,"flux_sparam_sscoa",itra,zx_tmp_2d_glo, &
5389	nbp_lon*(nbp_lat),ndex2d)
5390	!
5391	ENDIF ! mpi root
5392	!$OMP END MASTER
5393	!$OMP BARRIER
5394	call gather( u10m_ec, auxklon_glo )
5395	!$OMP MASTER
5396	IF (is_mpi_root .AND. is_omp_root) THEN
5397	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5398	CALL histwrite(nid_tra1,"u10m",itra,zx_tmp_2d_glo, &
5399	nbp_lon*(nbp_lat),ndex2d)
5400	!
5401	ENDIF ! mpi root
5402	!$OMP END MASTER
5403	!$OMP BARRIER
5404	call gather( v10m_ec, auxklon_glo )
5405	!$OMP MASTER
5406	IF (is_mpi_root .AND. is_omp_root) THEN
5407	CALL gr_fi_ecrit(1,klon_glo,nbp_lon,nbp_lat,auxklon_glo,zx_tmp_2d_glo)
5408	CALL histwrite(nid_tra1,"v10m",itra,zx_tmp_2d_glo, &
5409	nbp_lon*(nbp_lat),ndex2d)
5410	!
5411	! call gather( , auxklon_glo )
5412	!!! !$OMP MASTER
5413	! IF (is_mpi_root .AND. is_omp_root) THEN
5414	!nhl CALL gr_fi_ecrit(nbp_lev,klon_glo,nbp_lon,nbp_lat,flux_sparam_sulf,zx_tmp_3d_glo)
5415	!nhl CALL histwrite(nid_tra1,"flux_sparam_sulf",itra,zx_tmp_3d_glo, &
5416	!nhl . nbp_lon(nbp_lat)nbp_lev,ndex3d)
5417	!
5418	ENDIF ! mpi root
5419	!$OMP END MASTER
5420	!$OMP BARRIER
5421
5422	ENDIF ! ok_histrac
5423
5424
5425
5426
5427	!JE20141224
5428	! saving variables for output
5429	! 2D outputs
5430	DO i=1, klon
5431	trm01(i)=0.
5432	trm02(i)=0.
5433	trm03(i)=0.
5434	trm04(i)=0.
5435	trm05(i)=0.
5436	sconc01(i)=0.
5437	sconc02(i)=0.
5438	sconc03(i)=0.
5439	sconc04(i)=0.
5440	sconc05(i)=0.
5441	flux01(i)=0.
5442	flux02(i)=0.
5443	flux03(i)=0.
5444	flux04(i)=0.
5445	flux05(i)=0.
5446	ds01(i)=0.
5447	ds02(i)=0.
5448	ds03(i)=0.
5449	ds04(i)=0.
5450	ds05(i)=0.
5451	dh01(i)=0.
5452	dh02(i)=0.
5453	dh03(i)=0.
5454	dh04(i)=0.
5455	dh05(i)=0.
5456	dtrconv01(i)=0.
5457	dtrconv02(i)=0.
5458	dtrconv03(i)=0.
5459	dtrconv04(i)=0.
5460	dtrconv05(i)=0.
5461	dtherm01(i)=0.
5462	dtherm02(i)=0.
5463	dtherm03(i)=0.
5464	dtherm04(i)=0.
5465	dtherm05(i)=0.
5466	dhkecv01(i)=0.
5467	dhkecv02(i)=0.
5468	dhkecv03(i)=0.
5469	dhkecv04(i)=0.
5470	dhkecv05(i)=0.
5471	d_tr_ds01(i)=0.
5472	d_tr_ds02(i)=0.
5473	d_tr_ds03(i)=0.
5474	d_tr_ds04(i)=0.
5475	d_tr_ds05(i)=0.
5476	dhkelsc01(i)=0.
5477	dhkelsc02(i)=0.
5478	dhkelsc03(i)=0.
5479	dhkelsc04(i)=0.
5480	dhkelsc05(i)=0.
5481	! u10m_ss(i)=u10m_ec(i)
5482	! v10m_ss(i)=v10m_ec(i)
5483	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5484
5485	if(id_prec>0) trm01(i)=trm(i,id_prec)
5486	if(id_fine>0) trm02(i)=trm(i,id_fine)
5487	if(id_coss>0) trm03(i)=trm(i,id_coss)
5488	if(id_codu>0) trm04(i)=trm(i,id_codu)
5489	if(id_scdu>0) trm05(i)=trm(i,id_scdu)
5490	if(id_prec>0) sconc01(i)=sconc_seri(i,id_prec)
5491	if(id_fine>0) sconc02(i)=sconc_seri(i,id_fine)
5492	if(id_coss>0) sconc03(i)=sconc_seri(i,id_coss)
5493	if(id_codu>0) sconc04(i)=sconc_seri(i,id_codu)
5494	if(id_scdu>0) sconc05(i)=sconc_seri(i,id_scdu)
5495	if(id_prec>0) flux01(i)=flux_tr(i,id_prec)
5496	if(id_fine>0) flux02(i)=flux_tr(i,id_fine)
5497	if(id_coss>0) flux03(i)=flux_tr(i,id_coss)
5498	if(id_codu>0) flux04(i)=flux_tr(i,id_codu)
5499	if(id_scdu>0) flux05(i)=flux_tr(i,id_scdu)
5500	if(id_prec>0) ds01(i)=his_ds(i,id_prec)
5501	if(id_fine>0) ds02(i)=his_ds(i,id_fine)
5502	if(id_coss>0) ds03(i)=his_ds(i,id_coss)
5503	if(id_codu>0) ds04(i)=his_ds(i,id_codu)
5504	if(id_scdu>0) ds05(i)=his_ds(i,id_scdu)
5505	if(id_prec>0) dh01(i)=his_dh(i,id_prec)
5506	if(id_fine>0) dh02(i)=his_dh(i,id_fine)
5507	if(id_coss>0) dh03(i)=his_dh(i,id_coss)
5508	if(id_codu>0) dh04(i)=his_dh(i,id_codu)
5509	if(id_scdu>0) dh05(i)=his_dh(i,id_scdu)
5510	if(id_prec>0) dtrconv01(i)=dtrconv(i,id_prec)
5511	if(id_fine>0) dtrconv02(i)=dtrconv(i,id_fine)
5512	if(id_coss>0) dtrconv03(i)=dtrconv(i,id_coss)
5513	if(id_codu>0) dtrconv04(i)=dtrconv(i,id_codu)
5514	if(id_scdu>0) dtrconv05(i)=dtrconv(i,id_scdu)
5515	if(id_prec>0) dtherm01(i)=his_th(i,id_prec)
5516	if(id_fine>0) dtherm02(i)=his_th(i,id_fine)
5517	if(id_coss>0) dtherm03(i)=his_th(i,id_coss)
5518	if(id_codu>0) dtherm04(i)=his_th(i,id_codu)
5519	if(id_scdu>0) dtherm05(i)=his_th(i,id_scdu)
5520	if(id_prec>0) dhkecv01(i)=his_dhkecv(i,id_prec)
5521	if(id_fine>0) dhkecv02(i)=his_dhkecv(i,id_fine)
5522	if(id_coss>0) dhkecv03(i)=his_dhkecv(i,id_coss)
5523	if(id_codu>0) dhkecv04(i)=his_dhkecv(i,id_codu)
5524	if(id_scdu>0) dhkecv05(i)=his_dhkecv(i,id_scdu)
5525	if(id_prec>0) d_tr_ds01(i)=his_ds(i,id_prec)
5526	if(id_fine>0) d_tr_ds02(i)=his_ds(i,id_fine)
5527	if(id_coss>0) d_tr_ds03(i)=his_ds(i,id_coss)
5528	if(id_codu>0) d_tr_ds04(i)=his_ds(i,id_codu)
5529	if(id_scdu>0) d_tr_ds05(i)=his_ds(i,id_scdu)
5530	if(id_prec>0) dhkelsc01(i)=his_dhkelsc(i,id_prec)
5531	if(id_fine>0) dhkelsc02(i)=his_dhkelsc(i,id_fine)
5532	if(id_coss>0) dhkelsc03(i)=his_dhkelsc(i,id_coss)
5533	if(id_codu>0) dhkelsc04(i)=his_dhkelsc(i,id_codu)
5534	if(id_scdu>0) dhkelsc05(i)=his_dhkelsc(i,id_scdu)
5535	u10m_ss(i)=u10m_ec(i)
5536	v10m_ss(i)=v10m_ec(i)
5537	ENDDO
5538	! 3D outs
5539	DO i=1, klon
5540	DO k=1,klev
5541	d_tr_cv01(i,k) =0.
5542	d_tr_cv02(i,k) =0.
5543	d_tr_cv03(i,k) =0.
5544	d_tr_cv04(i,k) =0.
5545	d_tr_cv05(i,k) =0.
5546	d_tr_trsp01(i,k) =0.
5547	d_tr_trsp02(i,k) =0.
5548	d_tr_trsp03(i,k) =0.
5549	d_tr_trsp04(i,k) =0.
5550	d_tr_trsp05(i,k) =0.
5551	d_tr_sscav01(i,k)=0.
5552	d_tr_sscav02(i,k)=0.
5553	d_tr_sscav03(i,k)=0.
5554	d_tr_sscav04(i,k)=0.
5555	d_tr_sscav05(i,k)=0.
5556	d_tr_sat01(i,k) =0.
5557	d_tr_sat02(i,k) =0.
5558	d_tr_sat03(i,k) =0.
5559	d_tr_sat04(i,k) =0.
5560	d_tr_sat05(i,k) =0.
5561	d_tr_uscav01(i,k)=0.
5562	d_tr_uscav02(i,k)=0.
5563	d_tr_uscav03(i,k)=0.
5564	d_tr_uscav04(i,k)=0.
5565	d_tr_uscav05(i,k)=0.
5566	d_tr_insc01(i,k)=0.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5567	d_tr_insc02(i,k)=0.
5568	d_tr_insc03(i,k)=0.
5569	d_tr_insc04(i,k)=0.
5570	d_tr_insc05(i,k)=0.
5571	d_tr_bcscav01(i,k)=0.
5572	d_tr_bcscav02(i,k)=0.
5573	d_tr_bcscav03(i,k)=0.
5574	d_tr_bcscav04(i,k)=0.
5575	d_tr_bcscav05(i,k)=0.
5576	d_tr_evapls01(i,k)=0.
5577	d_tr_evapls02(i,k)=0.
5578	d_tr_evapls03(i,k)=0.
5579	d_tr_evapls04(i,k)=0.
5580	d_tr_evapls05(i,k)=0.
5581	d_tr_ls01(i,k)=0.
5582	d_tr_ls02(i,k)=0.
5583	d_tr_ls03(i,k)=0.
5584	d_tr_ls04(i,k)=0.
5585	d_tr_ls05(i,k)=0.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5586	d_tr_dyn01(i,k)=0.
5587	d_tr_dyn02(i,k)=0.
5588	d_tr_dyn03(i,k)=0.
5589	d_tr_dyn04(i,k)=0.
5590	d_tr_dyn05(i,k)=0.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5591	d_tr_cl01(i,k)=0.
5592	d_tr_cl02(i,k)=0.
5593	d_tr_cl03(i,k)=0.
5594	d_tr_cl04(i,k)=0.
5595	d_tr_cl05(i,k)=0.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5596	d_tr_th01(i,k)=0.
5597	d_tr_th02(i,k)=0.
5598	d_tr_th03(i,k)=0.
5599	d_tr_th04(i,k)=0.
5600	d_tr_th05(i,k)=0.!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5601	if(id_prec>0) d_tr_cv01(i,k) =d_tr_cv_o(i,k,id_prec)
5602	if(id_fine>0) d_tr_cv02(i,k) =d_tr_cv_o(i,k,id_fine)
5603	if(id_coss>0) d_tr_cv03(i,k) =d_tr_cv_o(i,k,id_coss)
5604	if(id_codu>0) d_tr_cv04(i,k) =d_tr_cv_o(i,k,id_codu)
5605	if(id_scdu>0) d_tr_cv05(i,k) =d_tr_cv_o(i,k,id_scdu)
5606	if(id_prec>0) d_tr_trsp01(i,k) =d_tr_trsp_o(i,k,id_prec)
5607	if(id_fine>0) d_tr_trsp02(i,k) =d_tr_trsp_o(i,k,id_fine)
5608	if(id_coss>0) d_tr_trsp03(i,k) =d_tr_trsp_o(i,k,id_coss)
5609	if(id_codu>0) d_tr_trsp04(i,k) =d_tr_trsp_o(i,k,id_codu)
5610	if(id_scdu>0) d_tr_trsp05(i,k) =d_tr_trsp_o(i,k,id_scdu)
5611	if(id_prec>0) d_tr_sscav01(i,k)=d_tr_sscav_o(i,k,id_prec)
5612	if(id_fine>0) d_tr_sscav02(i,k)=d_tr_sscav_o(i,k,id_fine)
5613	if(id_coss>0) d_tr_sscav03(i,k)=d_tr_sscav_o(i,k,id_coss)
5614	if(id_codu>0) d_tr_sscav04(i,k)=d_tr_sscav_o(i,k,id_codu)
5615	if(id_scdu>0) d_tr_sscav05(i,k)=d_tr_sscav_o(i,k,id_scdu)
5616	if(id_prec>0) d_tr_sat01(i,k) =d_tr_sat_o(i,k,id_prec)
5617	if(id_fine>0) d_tr_sat02(i,k) =d_tr_sat_o(i,k,id_fine)
5618	if(id_coss>0) d_tr_sat03(i,k) =d_tr_sat_o(i,k,id_coss)
5619	if(id_codu>0) d_tr_sat04(i,k) =d_tr_sat_o(i,k,id_codu)
5620	if(id_scdu>0) d_tr_sat05(i,k) =d_tr_sat_o(i,k,id_scdu)
5621	if(id_prec>0) d_tr_uscav01(i,k)=d_tr_uscav_o(i,k,id_prec)
5622	if(id_fine>0) d_tr_uscav02(i,k)=d_tr_uscav_o(i,k,id_fine)
5623	if(id_coss>0) d_tr_uscav03(i,k)=d_tr_uscav_o(i,k,id_coss)
5624	if(id_codu>0) d_tr_uscav04(i,k)=d_tr_uscav_o(i,k,id_codu)
5625	if(id_scdu>0) d_tr_uscav05(i,k)=d_tr_uscav_o(i,k,id_scdu)
5626	if(id_prec>0) d_tr_insc01(i,k)=d_tr_insc_o(i,k,id_prec)
5627	if(id_fine>0) d_tr_insc02(i,k)=d_tr_insc_o(i,k,id_fine)
5628	if(id_coss>0) d_tr_insc03(i,k)=d_tr_insc_o(i,k,id_coss)
5629	if(id_codu>0) d_tr_insc04(i,k)=d_tr_insc_o(i,k,id_codu)
5630	if(id_scdu>0) d_tr_insc05(i,k)=d_tr_insc_o(i,k,id_scdu)
5631	if(id_prec>0) d_tr_bcscav01(i,k)=d_tr_bcscav_o(i,k,id_prec)
5632	if(id_fine>0) d_tr_bcscav02(i,k)=d_tr_bcscav_o(i,k,id_fine)
5633	if(id_coss>0) d_tr_bcscav03(i,k)=d_tr_bcscav_o(i,k,id_coss)
5634	if(id_codu>0) d_tr_bcscav04(i,k)=d_tr_bcscav_o(i,k,id_codu)
5635	if(id_scdu>0) d_tr_bcscav05(i,k)=d_tr_bcscav_o(i,k,id_scdu)
5636	if(id_prec>0) d_tr_evapls01(i,k)=d_tr_evapls_o(i,k,id_prec)
5637	if(id_fine>0) d_tr_evapls02(i,k)=d_tr_evapls_o(i,k,id_fine)
5638	if(id_coss>0) d_tr_evapls03(i,k)=d_tr_evapls_o(i,k,id_coss)
5639	if(id_codu>0) d_tr_evapls04(i,k)=d_tr_evapls_o(i,k,id_codu)
5640	if(id_scdu>0) d_tr_evapls05(i,k)=d_tr_evapls_o(i,k,id_scdu)
5641	ENDDO
5642	ENDDO
5643	IF(1==0) THEN
5644	DO i=1, klon
5645	DO k=1,klev
5646	if(id_prec>0) d_tr_ls01(i,k)=d_tr_ls_o(i,k,id_prec)
5647	if(id_fine>0) d_tr_ls02(i,k)=d_tr_ls_o(i,k,id_fine)
5648	if(id_coss>0) d_tr_ls03(i,k)=d_tr_ls_o(i,k,id_coss)
5649	if(id_codu>0) d_tr_ls04(i,k)=d_tr_ls_o(i,k,id_codu)
5650	if(id_scdu>0) d_tr_ls05(i,k)=d_tr_ls_o(i,k,id_scdu)
5651	if(id_prec>0) d_tr_dyn01(i,k)=d_tr_dyn_o(i,k,id_prec)
5652	if(id_fine>0) d_tr_dyn02(i,k)=d_tr_dyn_o(i,k,id_fine)
5653	if(id_coss>0) d_tr_dyn03(i,k)=d_tr_dyn_o(i,k,id_coss)
5654	if(id_codu>0) d_tr_dyn04(i,k)=d_tr_dyn_o(i,k,id_codu)
5655	if(id_scdu>0) d_tr_dyn05(i,k)=d_tr_dyn_o(i,k,id_scdu)
5656	if(id_prec>0) d_tr_cl01(i,k)=d_tr_cl_o(i,k,id_prec)
5657	if(id_fine>0) d_tr_cl02(i,k)=d_tr_cl_o(i,k,id_fine)
5658	if(id_coss>0) d_tr_cl03(i,k)=d_tr_cl_o(i,k,id_coss)
5659	if(id_codu>0) d_tr_cl04(i,k)=d_tr_cl_o(i,k,id_codu)
5660	if(id_scdu>0) d_tr_cl05(i,k)=d_tr_cl_o(i,k,id_scdu)
5661	if(id_prec>0) d_tr_th01(i,k)=d_tr_th_o(i,k,id_prec)
5662	if(id_fine>0) d_tr_th02(i,k)=d_tr_th_o(i,k,id_fine)
5663	if(id_coss>0) d_tr_th03(i,k)=d_tr_th_o(i,k,id_coss)
5664	if(id_codu>0) d_tr_th04(i,k)=d_tr_th_o(i,k,id_codu)
5665	if(id_scdu>0) d_tr_th05(i,k)=d_tr_th_o(i,k,id_scdu)
5666	ENDDO
5667	ENDDO
5668	ELSE
5669	DO i=1, klon
5670	DO k=1,klev
5671	if(id_prec>0) d_tr_ls01(i,k)=d_tr_ls(i,k,id_prec)/pdtphys
5672	if(id_fine>0) d_tr_ls02(i,k)=d_tr_ls(i,k,id_fine)/pdtphys
5673	if(id_coss>0) d_tr_ls03(i,k)=d_tr_ls(i,k,id_coss)/pdtphys
5674	if(id_codu>0) d_tr_ls04(i,k)=d_tr_ls(i,k,id_codu)/pdtphys
5675	if(id_scdu>0) d_tr_ls05(i,k)=d_tr_ls(i,k,id_scdu)/pdtphys
5676	if(id_prec>0) d_tr_dyn01(i,k)=d_tr_dyn(i,k,id_prec)/pdtphys
5677	if(id_fine>0) d_tr_dyn02(i,k)=d_tr_dyn(i,k,id_fine)/pdtphys
5678	if(id_coss>0) d_tr_dyn03(i,k)=d_tr_dyn(i,k,id_coss)/pdtphys
5679	if(id_codu>0) d_tr_dyn04(i,k)=d_tr_dyn(i,k,id_codu)/pdtphys
5680	if(id_scdu>0) d_tr_dyn05(i,k)=d_tr_dyn(i,k,id_scdu)/pdtphys
5681	if(id_prec>0) d_tr_cl01(i,k)=d_tr_cl(i,k,id_prec)/pdtphys
5682	if(id_fine>0) d_tr_cl02(i,k)=d_tr_cl(i,k,id_fine)/pdtphys
5683	if(id_coss>0) d_tr_cl03(i,k)=d_tr_cl(i,k,id_coss)/pdtphys
5684	if(id_codu>0) d_tr_cl04(i,k)=d_tr_cl(i,k,id_codu)/pdtphys
5685	if(id_scdu>0) d_tr_cl05(i,k)=d_tr_cl(i,k,id_scdu)/pdtphys
5686	if(id_prec>0) d_tr_th01(i,k)=d_tr_th(i,k,id_prec)/pdtphys
5687	if(id_fine>0) d_tr_th02(i,k)=d_tr_th(i,k,id_fine)/pdtphys
5688	if(id_coss>0) d_tr_th03(i,k)=d_tr_th(i,k,id_coss)/pdtphys
5689	if(id_codu>0) d_tr_th04(i,k)=d_tr_th(i,k,id_codu)/pdtphys
5690	if(id_scdu>0) d_tr_th05(i,k)=d_tr_th(i,k,id_scdu)/pdtphys
5691	ENDDO
5692	ENDDO
5693	ENDIF
5694
5695
5696	IF (logitime) THEN
5697	CALL SYSTEM_CLOCK(COUNT=clock_end)
5698
5699	dife=clock_end-clock_start
5700	ti_outs=dife*MAX(0,SIGN(1,dife)) &
5701	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
5702	tia_outs=tia_outs+REAL(ti_outs)/REAL(clock_rate)
5703	ENDIF
5704
5705	IF (logitime) THEN
5706	CALL SYSTEM_CLOCK(COUNT=clock_end)
5707
5708	dife=clock_end-clock_start_spla
5709	ti_spla=dife*MAX(0,SIGN(1,dife)) &
5710	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
5711
5712
5713	tia_spla=tia_spla+REAL(ti_spla)/REAL(clock_rate)
5714	print *,'times for this timestep:timeproc,timeproc/time_pytracr_spl-'
5715	print *,'time spla',REAL(ti_spla)/REAL(clock_rate) &
5716	,REAL(ti_spla)/REAL(ti_spla)
5717	print *,'time init',REAL(ti_init)/REAL(clock_rate) &
5718	,REAL(ti_init)/REAL(ti_spla)
5719	print *,'time inittype',REAL(ti_inittype)/REAL(clock_rate) &
5720	,REAL(ti_inittype)/REAL(ti_spla)
5721	print *,'time inittwrite',REAL(ti_inittwrite)/REAL(clock_rate) &
5722	,REAL(ti_inittwrite)/REAL(ti_spla)
5723	print *,'time emis',REAL(ti_emis)/REAL(clock_rate) &
5724	,REAL(ti_emis)/REAL(ti_spla)
5725	print *,'time depo ',REAL(ti_depo)/REAL(clock_rate) &
5726	,REAL(ti_depo)/REAL(ti_spla)
5727	print *,'time cltr',REAL(ti_cltr)/REAL(clock_rate) &
5728	,REAL(ti_cltr)/REAL(ti_spla)
5729	print *,'time ther',REAL(ti_ther)/REAL(clock_rate) &
5730	,REAL(ti_ther)/REAL(ti_spla)
5731	print *,'time sedi',REAL(ti_sedi)/REAL(clock_rate) &
5732	,REAL(ti_sedi)/REAL(ti_spla)
5733	print *,'time gas to part',REAL(ti_gasp)/REAL(clock_rate) &
5734	,REAL(ti_gasp)/REAL(ti_spla)
5735	print *,'time AP wet',REAL(ti_wetap)/REAL(clock_rate) &
5736	,REAL(ti_wetap)/REAL(ti_spla)
5737	print *,'time convective',REAL(ti_cvltr)/REAL(clock_rate) &
5738	,REAL(ti_cvltr)/REAL(ti_spla)
5739	print *,'time NP lsc scav',REAL(ti_lscs)/REAL(clock_rate) &
5740	,REAL(ti_lscs)/REAL(ti_spla)
5741	print *,'time opt,brdn,etc',REAL(ti_brop)/REAL(clock_rate) &
5742	,REAL(ti_brop)/REAL(ti_spla)
5743	print *,'time outputs',REAL(ti_outs)/REAL(clock_rate) &
5744	,REAL(ti_outs)/REAL(ti_spla)
5745
5746
5747	print *,'--time accumulated: time proc, time proc/time phytracr_spl--'
5748	print *,'time spla',tia_spla
5749	print *,'time init',tia_init,tia_init/tia_spla
5750	print *,'time inittype',tia_inittype,tia_inittype/tia_spla
5751	print *,'time inittwrite',tia_inittwrite,tia_inittwrite/tia_spla
5752	print *,'time emis',tia_emis,tia_emis/tia_spla
5753	print *,'time depo',tia_depo,tia_depo/tia_spla
5754	print *,'time cltr',tia_cltr,tia_cltr/tia_spla
5755	print *,'time ther',tia_ther,tia_ther/tia_spla
5756	print *,'time sedi',tia_sedi,tia_sedi/tia_spla
5757	print *,'time gas to part',tia_gasp,tia_gasp/tia_spla
5758	print *,'time AP wet',tia_wetap,tia_wetap/tia_spla
5759	print *,'time convective',tia_cvltr,tia_cvltr/tia_spla
5760	print *,'time NP lsc scav',tia_lscs,tia_lscs/tia_spla
5761	print *,'time opt,brdn,etc',tia_brop,tia_brop/tia_spla
5762	print *,'time outputs',tia_outs,tia_outs/tia_spla
5763
5764
5765
5766	dife=clock_end_outphytracr-clock_start_outphytracr
5767	ti_nophytracr=dife*MAX(0,SIGN(1,dife)) &
5768	+(dife+clock_per_max)*MAX(0,SIGN(1,-dife))
5769	tia_nophytracr=tia_nophytracr+REAL(ti_nophytracr)/REAL(clock_rate)
5770	print *,'Time outside phytracr; Time accum outside phytracr'
5771	print*,REAL(ti_nophytracr)/REAL(clock_rate),tia_nophytracr
5772
5773	clock_start_outphytracr=clock_end
5774
5775	ENDIF
5776	print *,'END PHYTRACR_SPL '
5777	print *,'lmt_so2ff_l FIN' , MINVAL(lmt_so2ff_l), MAXVAL(lmt_so2ff_l)
5778
5779	! CALL abort_gcm('TEST1', 'OK1', 1)
5780
5781	RETURN
5782	END SUBROUTINE phytracr_spl
5783
5784	SUBROUTINE readregionsdims2_spl(nbreg,fileregions)
5785
5786	USE mod_grid_phy_lmdz
5787	USE mod_phys_lmdz_para
5788
5789	IMPLICIT NONE
5790	CHARACTER*800 fileregions
5791	CHARACTER*800 auxstr
5792	INTEGER nbreg
5793
5794	IF (is_mpi_root .AND. is_omp_root) THEN
5795
5796	OPEN (UNIT=1,FILE=trim(adjustl(fileregions)))
5797	READ(1,'(a)') auxstr
5798	READ(1,'(i10)') nbreg
5799	CLOSE(UNIT=1)
5800	ENDIF
5801	CALL bcast(nbreg)
5802
5803	END SUBROUTINE readregionsdims2_spl
5804
5805	SUBROUTINE readregionsdims_spl(nbreg_ind,fileregionsdimsind, &
5806	nbreg_dust,fileregionsdimsdust, &
5807	nbreg_bb,fileregionsdimsbb)
5808	USE mod_grid_phy_lmdz
5809	USE mod_phys_lmdz_para
5810
5811	IMPLICIT NONE
5812	CHARACTER*800 fileregionsdimsind
5813	CHARACTER*800 fileregionsdimsdust
5814	CHARACTER*800 fileregionsdimsbb
5815	CHARACTER*800 auxstr
5816	INTEGER nbreg_ind,nbreg_dust,nbreg_bb
5817
5818	IF (is_mpi_root .AND. is_omp_root) THEN
5819
5820	OPEN (UNIT=1,FILE=trim(adjustl(fileregionsdimsind)))
5821	READ(1,'(a)') auxstr
5822	READ(1,'(i10)') nbreg_ind
5823	CLOSE(UNIT=1)
5824
5825	OPEN (UNIT=1,FILE=trim(adjustl(fileregionsdimsdust)))
5826	READ(1,'(a)') auxstr
5827	READ(1,'(i10)') nbreg_dust
5828	CLOSE(UNIT=1)
5829
5830	OPEN (UNIT=1,FILE=trim(adjustl(fileregionsdimsbb)))
5831	READ(1,'(a)') auxstr
5832	READ(1,'(i10)') nbreg_bb
5833	CLOSE(UNIT=1)
5834
5835
5836	ENDIF
5837	CALL bcast(nbreg_ind)
5838	CALL bcast(nbreg_dust)
5839	CALL bcast(nbreg_bb)
5840
5841	END SUBROUTINE readregionsdims_spl
5842
5843	SUBROUTINE readregions_spl(iregion,filenameregion)
5844	USE dimphy
5845	USE mod_grid_phy_lmdz
5846	USE mod_phys_lmdz_para
5847
5848	IMPLICIT NONE
5849	CHARACTER() filenameregion
5850	INTEGER iregion(klon)
5851	INTEGER iregion_glo(klon_glo)
5852	INTEGER k
5853
5854	IF (is_mpi_root .AND. is_omp_root) THEN
5855
5856	print *,trim(adjustl(filenameregion))
5857	OPEN(1,file=trim(adjustl(filenameregion)))
5858	DO k=1,klon_glo
5859	READ(1,'(i10)') iregion_glo(k)
5860	ENDDO
5861	CLOSE(UNIT=1)
5862	ENDIF
5863	CALL scatter(iregion_glo,iregion)
5864
5865	END SUBROUTINE readregions_spl
5866
5867	SUBROUTINE readscaleparams_spl(scale_param, nbreg, &
5868	filescaleparams)
5869	USE mod_grid_phy_lmdz
5870	USE mod_phys_lmdz_para
5871	IMPLICIT NONE
5872
5873	CHARACTER*800 filescaleparams
5874	INTEGER nbreg
5875	REAL scale_param(nbreg)
5876	INTEGER k
5877
5878	IF (is_mpi_root .AND. is_omp_root) THEN
5879	OPEN(1,file=trim(adjustl(filescaleparams)),form='unformatted')
5880	do k=1,nbreg
5881	read(1) scale_param(k)
5882	enddo
5883	CLOSE(1)
5884	ENDIF
5885	CALL bcast(scale_param)
5886	! print *,'holaaaaaaaaaaaa'
5887	! print *,scale_param
5888
5889	END SUBROUTINE readscaleparams_spl
5890
5891	SUBROUTINE readscaleparamsnc_spl(scale_param_ind, &
5892	nbreg_ind, paramname_ind, &
5893	scale_param_ff, nbreg_ff,paramname_ff, &
5894	scale_param_bb, nbreg_bb,paramname_bb, &
5895	scale_param_dustacc, nbreg_dustacc,paramname_dustacc, &
5896	scale_param_dustcoa, nbreg_dustcoa,paramname_dustcoa, &
5897	scale_param_dustsco, nbreg_dustsco,paramname_dustsco, &
5898	param_wstarBLperregion, nbreg_wstardustBL, paramname_wstarBL, &
5899	param_wstarWAKEperregion, nbreg_wstardustWAKE, paramname_wstarWAKE, &
5900	scale_param_ssacc , paramname_ssacc, &
5901	scale_param_sscoa , paramname_sscoa, &
5902	filescaleparams,julien,jH_phys, pdtphys,debutphy)
5903	! SUBROUTINE readscaleparamsnc_spl(scale_param, nbreg, &
5904	! filescaleparams,paramname,&
5905	! julien,jH_phys, pdtphys,debutphy)
5906	USE mod_grid_phy_lmdz
5907	USE mod_phys_lmdz_para
5908	IMPLICIT NONE
5909
5910	CHARACTER*800 filescaleparams
5911	CHARACTER*100 paramname_ind,paramname_ff,paramname_bb
5912	CHARACTER*100 paramname_dustacc, paramname_dustcoa
5913	CHARACTER*100 paramname_dustsco
5914	CHARACTER*100 paramname_ssacc
5915	CHARACTER*100 paramname_sscoa
5916	CHARACTER*100 paramname_wstarBL
5917	CHARACTER*100 paramname_wstarWAKE
5918
5919	INTEGER nbreg,iday
5920	INTEGER nbreg_ind, nbreg_ff, nbreg_bb , nbreg_dustacc
5921	INTEGER nbreg_dustcoa , nbreg_dustsco, nbreg_wstardustBL
5922	INTEGER nbreg_wstardustWAKE
5923	INTEGER,PARAMETER :: nbreg_ssacc=1
5924	INTEGER,PARAMETER :: nbreg_sscoa=1
5925	REAL,PARAMETER :: sca_resol = 24. ! resolution of scalig params in hours
5926	REAL scale_param_ind(nbreg_ind)
5927	REAL scale_param_bb(nbreg_bb)
5928	REAL scale_param_ff(nbreg_ff)
5929	REAL scale_param_dustacc(nbreg_dustacc)
5930	REAL scale_param_dustcoa(nbreg_dustcoa)
5931	REAL scale_param_dustsco(nbreg_dustsco)
5932	REAL param_wstarBLperregion(nbreg_wstardustBL)
5933	REAL param_wstarWAKEperregion(nbreg_wstardustWAKE)
5934	REAL scale_param_ssacc
5935	REAL scale_param_ssacc_tmp(nbreg_ssacc)
5936	REAL scale_param_sscoa
5937	REAL scale_param_sscoa_tmp(nbreg_sscoa)
5938
5939	INTEGER k,step_sca,test_sca
5940	REAL :: jH_phys, pdtphys
5941	REAL,SAVE :: jH_sca, jH_ini
5942	INTEGER julien
5943	LOGICAL debutphy
5944	SAVE step_sca,test_sca,iday
5945	!$OMP THREADPRIVATE(step_sca,test_sca,iday)
5946	!$OMP THREADPRIVATE(jH_sca,jH_ini)
5947
5948	IF (debutphy) THEN
5949	iday=julien
5950	step_sca=1
5951	test_sca=0
5952	jH_ini=jH_phys
5953	jH_sca=jH_phys
5954	ENDIF
5955
5956	IF (test_sca .EQ. 0 ) THEN
5957	! READ file!!
5958	call read_scalenc(filescaleparams,paramname_ind, &
5959	nbreg_ind,step_sca, &
5960	scale_param_ind)
5961	call read_scalenc(filescaleparams,paramname_bb, &
5962	nbreg_bb,step_sca, &
5963	scale_param_bb)
5964	call read_scalenc(filescaleparams,paramname_ff, &
5965	nbreg_ff,step_sca, &
5966	scale_param_ff)
5967	call read_scalenc(filescaleparams,paramname_dustacc, &
5968	nbreg_dustacc,step_sca, &
5969	scale_param_dustacc)
5970	call read_scalenc(filescaleparams,paramname_dustcoa, &
5971	nbreg_dustcoa,step_sca, &
5972	scale_param_dustcoa)
5973	call read_scalenc(filescaleparams,paramname_dustsco, &
5974	nbreg_dustsco,step_sca, &
5975	scale_param_dustsco)
5976	call read_scalenc(filescaleparams,paramname_wstarBL, &
5977	nbreg_wstardustBL,step_sca, &
5978	param_wstarBLperregion)
5979	call read_scalenc(filescaleparams,paramname_wstarWAKE, &
5980	nbreg_wstardustWAKE,step_sca, &
5981	param_wstarWAKEperregion)
5982	call read_scalenc(filescaleparams,paramname_ssacc, &
5983	nbreg_ssacc,step_sca, &
5984	scale_param_ssacc_tmp)
5985	call read_scalenc(filescaleparams,paramname_sscoa, &
5986	nbreg_sscoa,step_sca, &
5987	scale_param_sscoa_tmp)
5988	scale_param_ssacc=scale_param_ssacc_tmp(1)
5989	scale_param_sscoa=scale_param_sscoa_tmp(1)
5990
5991	!print *,'JEREADFILE',julien,jH_phys
5992	step_sca= step_sca + 1
5993	test_sca=1
5994	ENDIF
5995
5996	jH_sca=jH_sca+pdtphys/(24.*3600.)
5997	IF (jH_sca.GT.(sca_resol)/24.) THEN
5998	test_sca=0
5999	jH_sca=jH_ini
6000	ENDIF
6001
6002	END SUBROUTINE readscaleparamsnc_spl
6003
6004	SUBROUTINE read_scalenc(filescaleparams,paramname,nbreg,step_sca, &
6005	scale_param)
6006
6007	USE mod_grid_phy_lmdz
6008	USE mod_phys_lmdz_para
6009	IMPLICIT NONE
6010
6011	include "netcdf.inc"
6012
6013	CHARACTER*800 filescaleparams
6014	CHARACTER*100 paramname
6015	INTEGER nbreg, step_sca
6016	REAL scale_param(nbreg)
6017	!local vars
6018	integer nid,ierr,nvarid
6019	real rcode,auxreal
6020	integer start(4),count(4), status
6021	! local
6022	integer debutread,countread
6023	CHARACTER*104 varname
6024	CHARACTER*2 aux_2s
6025	integer i, j, ig
6026	!$OMP MASTER
6027	IF (is_mpi_root .AND. is_omp_root) THEN
6028	!nci=NCOPN(trim(adjustl(filescaleparams)),NCNOWRIT,rcode)
6029	ierr = NF_OPEN (trim(adjustl(filescaleparams)),NF_NOWRITE, nid)
6030	if (ierr .EQ. NF_NOERR) THEN
6031	debutread=step_sca
6032	countread=1
6033
6034	do i=1,nbreg
6035	WRITE(aux_2s,'(i2.2)') i
6036	varname= trim(adjustl(paramname))//aux_2s
6037	print *,varname
6038	ierr = NF_INQ_VARID (nid,trim(adjustl(varname)), nvarid)
6039	ierr = NF_GET_VARA_DOUBLE (nid, nvarid, debutread, &
6040	countread, auxreal)
6041	IF (ierr .NE. NF_NOERR) THEN
6042	PRINT*, 'Pb de lecture pour modvalues'
6043	print *,'JE scale_var, step_sca',trim(adjustl(varname)),step_sca
6044	CALL HANDLE_ERR(ierr)
6045	print *,'error ierr= ',ierr
6046	CALL exit(1)
6047	call abort_gcm('read_scalenc','error reading variable',1)
6048	ENDIF
6049
6050	print *,auxreal
6051	scale_param(i)=auxreal
6052	enddo
6053
6054	ierr = NF_CLOSE(nid)
6055	else
6056	print *,'File '//trim(adjustl(filescaleparams))//' not found'
6057	print *,'doing nothing...'
6058	endif
6059
6060	ENDIF ! mpi_root
6061	!$OMP END MASTER
6062	!$OMP BARRIER
6063	! CALL scatter(var local _glo,var local) o algo asi
6064	call bcast(scale_param)
6065	END SUBROUTINE read_scalenc
6066
6067
6068
6069	END MODULE

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

Download in other formats:

Original Format