Context Navigation

phys_local_var_mod.F90 @ 5456

Last change on this file since 5456 was 5425, checked in by jyg, 8 days ago

Correction des arguments d'appel de phytrac et de phytracr_spl dans
physiq_mod.F90 : remplacement de wdtrainA par wdtrainAS (avec, auparavant,
calcul de wdtrainAS=wdtrainA+wdtrainS). Le bug date de la mise en oeuvre
(le 10mai 2019 : svn3499) de l'ejection des precipitations liquides dans
le schema convectif, wdtrainA ayant alors change de signification.

De svn3499 a svn5412, le lessivage convectif est completement faux. A

partir de la presente release il y a a nouveau conservation des traceurs.

Property copyright set to
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory
Property svn:eol-style set to native
Property svn:keywords set to Id

File size: 70.4 KB

Rev	Line
[1279]	1	!
	2	! $Id: phys_local_var_mod.F90 5425 2024-12-18 12:12:33Z aborella $
	3	!
[904]	4	MODULE phys_local_var_mod
[5252]	5	USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
[904]	6	! Variables locales pour effectuer les appels en serie
	7	!======================================================================
	8	!
	9	!
	10	!======================================================================
	11	! Declaration des variables
	12
[987]	13	REAL, SAVE, ALLOCATABLE :: t_seri(:,:), q_seri(:,:)
	14	!$OMP THREADPRIVATE(t_seri, q_seri)
	15	REAL, SAVE, ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
	16	!$OMP THREADPRIVATE(ql_seri,qs_seri)
[5056]	17	! SN 15/07/2024 ISO 4D
	18	REAL, SAVE, ALLOCATABLE :: qx_seri(:,:,:)
	19	!$OMP THREADPRIVATE(qx_seri)
	20	! SN
[4523]	21	REAL, SAVE, ALLOCATABLE :: qbs_seri(:,:)
	22	!$OMP THREADPRIVATE(qbs_seri)
[987]	23	REAL, SAVE, ALLOCATABLE :: u_seri(:,:), v_seri(:,:)
	24	!$OMP THREADPRIVATE(u_seri, v_seri)
[5204]	25	REAL, SAVE, ALLOCATABLE :: cf_seri(:,:), rvc_seri(:,:)
	26	!$OMP THREADPRIVATE(cf_seri, rvc_seri)
[4881]	27	REAL, SAVE, ALLOCATABLE :: l_mixmin(:,:,:),l_mix(:,:,:),wprime(:,:,:)
	28	!$OMP THREADPRIVATE(l_mixmin, l_mix, wprime)
	29	REAL, SAVE, ALLOCATABLE :: pbl_eps(:,:,:)
	30	!$OMP THREADPRIVATE(pbl_eps)
[5039]	31	REAL, SAVE, ALLOCATABLE :: tke_shear(:,:,:), tke_buoy(:,:,:), tke_trans(:,:,:)
[5040]	32	!$OMP THREADPRIVATE(tke_shear,tke_buoy,tke_trans)
[987]	33	REAL, SAVE, ALLOCATABLE :: tr_seri(:,:,:)
	34	!$OMP THREADPRIVATE(tr_seri)
[4489]	35	REAL, SAVE, ALLOCATABLE :: rhcl(:,:)
	36	!$OMP THREADPRIVATE(rhcl)
[987]	37	REAL, SAVE, ALLOCATABLE :: d_t_dyn(:,:), d_q_dyn(:,:)
	38	!$OMP THREADPRIVATE(d_t_dyn, d_q_dyn)
[4523]	39	REAL, SAVE, ALLOCATABLE :: d_ql_dyn(:,:), d_qs_dyn(:,:), d_qbs_dyn(:,:)
	40	!$OMP THREADPRIVATE(d_ql_dyn, d_qs_dyn, d_qbs_dyn)
	41	REAL, SAVE, ALLOCATABLE :: d_q_dyn2d(:), d_ql_dyn2d(:), d_qs_dyn2d(:), d_qbs_dyn2d(:)
	42	!$OMP THREADPRIVATE(d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d, d_qbs_dyn2d)
[1054]	43	REAL, SAVE, ALLOCATABLE :: d_u_dyn(:,:), d_v_dyn(:,:)
	44	!$OMP THREADPRIVATE(d_u_dyn, d_v_dyn)
[5204]	45	REAL, SAVE, ALLOCATABLE :: d_cf_dyn(:,:), d_rvc_dyn(:,:)
	46	!$OMP THREADPRIVATE(d_cf_dyn, d_rvc_dyn)
[1742]	47	REAL, SAVE, ALLOCATABLE :: d_tr_dyn(:,:,:)
	48	!$OMP THREADPRIVATE(d_tr_dyn)
[4742]	49	REAL, SAVE, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:),d_q_con_zmasse(:,:)
	50	!$OMP THREADPRIVATE(d_t_con,d_q_con,d_q_con_zmasse)
[987]	51	REAL, SAVE, ALLOCATABLE :: d_u_con(:,:),d_v_con(:,:)
	52	!$OMP THREADPRIVATE(d_u_con,d_v_con)
	53	REAL, SAVE, ALLOCATABLE :: d_t_wake(:,:),d_q_wake(:,:)
	54	!$OMP THREADPRIVATE( d_t_wake,d_q_wake)
[2086]	55	REAL, SAVE, ALLOCATABLE :: d_t_lsc(:,:),d_q_lsc(:,:),d_ql_lsc(:,:),d_qi_lsc(:,:)
[2092]	56	!$OMP THREADPRIVATE(d_t_lsc,d_q_lsc,d_ql_lsc,d_qi_lsc)
[2194]	57	REAL, SAVE, ALLOCATABLE :: d_t_lwr(:,:),d_t_lw0(:,:),d_t_swr(:,:),d_t_sw0(:,:)
	58	!$OMP THREADPRIVATE(d_t_lwr,d_t_lw0,d_t_swr,d_t_sw0)
[987]	59	REAL, SAVE, ALLOCATABLE :: d_t_ajsb(:,:), d_q_ajsb(:,:)
	60	!$OMP THREADPRIVATE(d_t_ajsb, d_q_ajsb)
	61	REAL, SAVE, ALLOCATABLE :: d_t_ajs(:,:), d_q_ajs(:,:)
	62	!$OMP THREADPRIVATE(d_t_ajs, d_q_ajs)
	63	REAL, SAVE, ALLOCATABLE :: d_u_ajs(:,:), d_v_ajs(:,:)
	64	!$OMP THREADPRIVATE(d_u_ajs, d_v_ajs)
[2159]	65	!nrlmd<
	66	REAL, SAVE, ALLOCATABLE :: d_t_ajs_w(:,:), d_q_ajs_w(:,:)
	67	!$OMP THREADPRIVATE(d_t_ajs_w, d_q_ajs_w)
	68	REAL, SAVE, ALLOCATABLE :: d_t_ajs_x(:,:), d_q_ajs_x(:,:)
	69	!$OMP THREADPRIVATE(d_t_ajs_x, d_q_ajs_x)
	70	!>nrlmd
[2706]	71	REAL, SAVE, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:),d_ql_eva(:,:),d_qi_eva(:,:)
	72	!$OMP THREADPRIVATE(d_t_eva,d_q_eva,d_ql_eva,d_qi_eva)
[5056]	73	! SN 15/07/2024 ISO 4D
	74	REAL, SAVE, ALLOCATABLE :: d_qx_eva(:,:,:)
	75	!$OMP THREADPRIVATE(d_qx_eva)
	76	! SN
[1507]	77	REAL, SAVE, ALLOCATABLE :: d_t_lscst(:,:),d_q_lscst(:,:)
	78	!$OMP THREADPRIVATE(d_t_lscst,d_q_lscst)
	79	REAL, SAVE, ALLOCATABLE :: d_t_lscth(:,:),d_q_lscth(:,:)
	80	!$OMP THREADPRIVATE(d_t_lscth,d_q_lscth)
	81	REAL, SAVE, ALLOCATABLE :: plul_th(:),plul_st(:)
	82	!$OMP THREADPRIVATE(plul_th,plul_st)
[909]	83	!tendances dues a oro et lif
[987]	84	REAL, SAVE, ALLOCATABLE :: d_t_oli(:,:)
	85	!$OMP THREADPRIVATE(d_t_oli)
	86	REAL, SAVE, ALLOCATABLE :: d_u_oli(:,:), d_v_oli(:,:)
	87	!$OMP THREADPRIVATE(d_u_oli, d_v_oli)
[4523]	88	REAL, SAVE, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:), d_qbs_vdf(:,:), d_t_diss(:,:)
	89	!$OMP THREADPRIVATE( d_t_vdf, d_q_vdf, d_qbs_vdf, d_t_diss)
[987]	90	REAL, SAVE, ALLOCATABLE :: d_u_vdf(:,:), d_v_vdf(:,:)
	91	!$OMP THREADPRIVATE(d_u_vdf, d_v_vdf)
[2159]	92	!nrlmd+jyg<
	93	REAL, SAVE, ALLOCATABLE :: d_t_vdf_w(:,:), d_q_vdf_w(:,:)
	94	!$OMP THREADPRIVATE( d_t_vdf_w, d_q_vdf_w)
	95	REAL, SAVE, ALLOCATABLE :: d_t_vdf_x(:,:), d_q_vdf_x(:,:)
	96	!$OMP THREADPRIVATE( d_t_vdf_x, d_q_vdf_x)
[5050]	97	REAL, SAVE, ALLOCATABLE :: d_t_bsss(:,:), d_q_bsss(:,:), d_qbs_bsss(:,:)
	98	!$OMP THREADPRIVATE( d_t_bsss,d_q_bsss, d_qbs_bsss)
[2159]	99	!>nrlmd+jyg
[987]	100	REAL, SAVE, ALLOCATABLE :: d_t_oro(:,:)
	101	!$OMP THREADPRIVATE(d_t_oro)
	102	REAL, SAVE, ALLOCATABLE :: d_u_oro(:,:), d_v_oro(:,:)
	103	!$OMP THREADPRIVATE(d_u_oro, d_v_oro)
[2897]	104	REAL, SAVE, ALLOCATABLE :: d_t_oro_gw(:,:)
[2898]	105	!$OMP THREADPRIVATE(d_t_oro_gw)
[2897]	106	REAL, SAVE, ALLOCATABLE :: d_u_oro_gw(:,:), d_v_oro_gw(:,:)
	107	!$OMP THREADPRIVATE(d_u_oro_gw, d_v_oro_gw)
[987]	108	REAL, SAVE, ALLOCATABLE :: d_t_lif(:,:)
	109	!$OMP THREADPRIVATE(d_t_lif)
	110	REAL, SAVE, ALLOCATABLE :: d_u_lif(:,:), d_v_lif(:,:)
	111	!$OMP THREADPRIVATE(d_u_lif, d_v_lif)
[1001]	112	! Tendances Ondes de G non oro (runs strato).
[2333]	113	REAL, SAVE, ALLOCATABLE :: du_gwd_hines(:,:)
	114	!$OMP THREADPRIVATE(du_gwd_hines)
	115	REAL, SAVE, ALLOCATABLE :: dv_gwd_hines(:,:)
	116	!$OMP THREADPRIVATE(dv_gwd_hines)
	117	REAL, SAVE, ALLOCATABLE :: dv_gwd_rando(:,:)
	118	!$OMP THREADPRIVATE(dv_gwd_rando)
	119	REAL, SAVE, ALLOCATABLE :: dv_gwd_front(:,:)
	120	!$OMP THREADPRIVATE(dv_gwd_front)
	121	REAL, SAVE, ALLOCATABLE :: east_gwstress(:,:)
	122	!$OMP THREADPRIVATE(east_gwstress)
	123	REAL, SAVE, ALLOCATABLE :: west_gwstress(:,:)
	124	!$OMP THREADPRIVATE(west_gwstress)
[1001]	125	REAL, SAVE, ALLOCATABLE :: d_t_hin(:,:)
	126	!$OMP THREADPRIVATE(d_t_hin)
[2136]	127	! tendance due a l'oxydation du methane
	128	REAL, SAVE, ALLOCATABLE :: d_q_ch4(:,:)
	129	!$OMP THREADPRIVATE(d_q_ch4)
[5056]	130	#ifdef ISO
	131	REAL, SAVE, ALLOCATABLE :: xt_seri(:,:,:)
	132	!$OMP THREADPRIVATE( xt_seri)
	133	REAL, SAVE, ALLOCATABLE :: xtl_seri(:,:,:)
	134	!$OMP THREADPRIVATE( xtl_seri)
	135	REAL, SAVE, ALLOCATABLE :: xts_seri(:,:,:)
	136	!$OMP THREADPRIVATE( xts_seri)
	137	REAL, SAVE, ALLOCATABLE :: xtbs_seri(:,:,:)
	138	!$OMP THREADPRIVATE( xtbs_seri)
	139	REAL, SAVE, ALLOCATABLE :: d_xt_eva(:,:,:)
	140	!$OMP THREADPRIVATE( d_xt_eva)
	141	REAL, SAVE, ALLOCATABLE :: d_xtl_eva(:,:,:)
	142	!$OMP THREADPRIVATE( d_xtl_eva)
	143	REAL, SAVE, ALLOCATABLE :: d_xti_eva(:,:,:)
	144	!$OMP THREADPRIVATE( d_xti_eva)
	145	REAL, SAVE, ALLOCATABLE :: d_xt_vdf(:,:,:)
	146	!$OMP THREADPRIVATE( d_xt_vdf)
	147	REAL, SAVE, ALLOCATABLE :: d_xt_dyn(:,:,:)
	148	!$OMP THREADPRIVATE( d_xt_dyn)
	149	REAL, SAVE, ALLOCATABLE :: d_xtl_dyn(:,:,:), d_xts_dyn(:,:,:), d_xtbs_dyn(:,:,:)
	150	!$OMP THREADPRIVATE(d_xtl_dyn, d_xts_dyn, d_xtbs_dyn)
	151	REAL, SAVE, ALLOCATABLE :: d_xt_con(:,:,:)
	152	!$OMP THREADPRIVATE( d_xt_con)
	153	REAL, SAVE, ALLOCATABLE :: d_xt_wake(:,:,:)
	154	!$OMP THREADPRIVATE( d_xt_wake)
	155	REAL, SAVE, ALLOCATABLE :: d_xt_lsc(:,:,:),d_xtl_lsc(:,:,:),d_xti_lsc(:,:,:)
	156	!$OMP THREADPRIVATE( d_xt_lsc,d_xtl_lsc,d_xti_lsc)
	157	REAL, SAVE, ALLOCATABLE :: d_xt_ajsb(:,:,:)
	158	!$OMP THREADPRIVATE( d_xt_ajsb)
	159	REAL, SAVE, ALLOCATABLE :: d_xt_ajs(:,:,:)
	160	!$OMP THREADPRIVATE( d_xt_ajs)
	161	REAL, SAVE, ALLOCATABLE :: d_xt_ajs_w(:,:,:), d_xt_ajs_x(:,:,:)
	162	!$OMP THREADPRIVATE(d_xt_ajs_w, d_xt_ajs_x)
	163	REAL, SAVE, ALLOCATABLE :: d_xt_vdf_w(:,:,:), d_xt_vdf_x(:,:,:)
	164	!$OMP THREADPRIVATE(d_xt_vdf_w, d_xt_vdf_x)
	165	REAL, SAVE, ALLOCATABLE :: d_xt_ch4(:,:,:)
	166	!$OMP THREADPRIVATE( d_xt_ch4)
	167	REAL, SAVE, ALLOCATABLE :: d_xt_prod_nucl(:,:,:)
	168	!$OMP THREADPRIVATE( d_xt_prod_nucl)
	169	REAL, SAVE, ALLOCATABLE :: d_xt_cosmo(:,:,:)
	170	!$OMP THREADPRIVATE( d_xt_cosmo)
	171	REAL, SAVE, ALLOCATABLE :: d_xt_decroiss(:,:,:)
	172	!$OMP THREADPRIVATE( d_xt_decroiss)
	173	#endif
[1001]	174
[909]	175	! tendance du a la conersion Ec -> E thermique
[987]	176	REAL, SAVE, ALLOCATABLE :: d_t_ec(:,:)
	177	!$OMP THREADPRIVATE(d_t_ec)
	178	REAL, SAVE, ALLOCATABLE :: d_ts(:,:), d_tr(:,:,:)
	179	!$OMP THREADPRIVATE(d_ts, d_tr)
[1279]	180
	181	! diagnostique pour le rayonnement
	182	REAL, SAVE, ALLOCATABLE :: topswad_aero(:), solswad_aero(:) ! diag
	183	!$OMP THREADPRIVATE(topswad_aero,solswad_aero)
	184	REAL, SAVE, ALLOCATABLE :: topswai_aero(:), solswai_aero(:) ! diag
	185	!$OMP THREADPRIVATE(topswai_aero,solswai_aero)
	186	REAL, SAVE, ALLOCATABLE :: topswad0_aero(:), solswad0_aero(:) ! diag
	187	!$OMP THREADPRIVATE(topswad0_aero,solswad0_aero)
	188	REAL, SAVE, ALLOCATABLE :: topsw_aero(:,:), solsw_aero(:,:) ! diag
	189	!$OMP THREADPRIVATE(topsw_aero,solsw_aero)
	190	REAL, SAVE, ALLOCATABLE :: topsw0_aero(:,:), solsw0_aero(:,:) ! diag
	191	!$OMP THREADPRIVATE(topsw0_aero,solsw0_aero)
	192	REAL, SAVE, ALLOCATABLE :: topswcf_aero(:,:), solswcf_aero(:,:) ! diag
	193	!$OMP THREADPRIVATE(topswcf_aero,solswcf_aero)
[2146]	194	! LW radiation diagnostics CK
	195	REAL, SAVE, ALLOCATABLE :: toplwad_aero(:), sollwad_aero(:) ! diag
	196	!$OMP THREADPRIVATE(toplwad_aero,sollwad_aero)
	197	REAL, SAVE, ALLOCATABLE :: toplwai_aero(:), sollwai_aero(:) ! diag
	198	!$OMP THREADPRIVATE(toplwai_aero,sollwai_aero)
	199	REAL, SAVE, ALLOCATABLE :: toplwad0_aero(:), sollwad0_aero(:) ! diag
	200	!$OMP THREADPRIVATE(toplwad0_aero,sollwad0_aero)
[1989]	201	! Special RRTM
	202	REAL, SAVE, ALLOCATABLE :: ZLWFT0_i(:,:), ZSWFT0_i(:,:) ! diag
	203	!$OMP THREADPRIVATE(ZLWFT0_i,ZSWFT0_i)
	204	REAL, SAVE, ALLOCATABLE :: ZFLDN0(:,:), ZFLUP0(:,:) ! diag
	205	!$OMP THREADPRIVATE(ZFLDN0,ZFLUP0)
	206	REAL, SAVE, ALLOCATABLE :: ZFSDN0(:,:), ZFSUP0(:,:) ! diag
	207	!$OMP THREADPRIVATE(ZFSDN0,ZFSUP0)
	208	!
[2536]	209	REAL, SAVE, ALLOCATABLE :: stratomask(:,:)
	210	!$OMP THREADPRIVATE(stratomask)
[1279]	211	REAL, SAVE, ALLOCATABLE :: tausum_aero(:,:,:)
	212	!$OMP THREADPRIVATE(tausum_aero)
[2854]	213	REAL, SAVE, ALLOCATABLE :: drytausum_aero(:,:)
	214	!$OMP THREADPRIVATE(drytausum_aero)
[1279]	215	REAL, SAVE, ALLOCATABLE :: tau3d_aero(:,:,:,:)
	216	!$OMP THREADPRIVATE(tau3d_aero)
[3274]	217	REAL, SAVE, ALLOCATABLE :: dNovrN(:)
	218	!$OMP THREADPRIVATE(dNovrN)
[3124]	219	REAL, SAVE, ALLOCATABLE :: zfice(:,:)
	220	!$OMP THREADPRIVATE(zfice)
[2806]	221	REAL, SAVE, ALLOCATABLE :: od443aer(:)
	222	!$OMP THREADPRIVATE(od443aer)
[1337]	223	REAL, SAVE, ALLOCATABLE :: od550aer(:)
	224	!$OMP THREADPRIVATE(od550aer)
[2854]	225	REAL, SAVE, ALLOCATABLE :: dryod550aer(:)
	226	!$OMP THREADPRIVATE(dryod550aer)
[2842]	227	REAL, SAVE, ALLOCATABLE :: abs550aer(:)
	228	!$OMP THREADPRIVATE(abs550aer)
[1337]	229	REAL, SAVE, ALLOCATABLE :: od865aer(:)
	230	!$OMP THREADPRIVATE(od865aer)
	231	REAL, SAVE, ALLOCATABLE :: ec550aer(:,:)
	232	!$OMP THREADPRIVATE(ec550aer)
	233	REAL, SAVE, ALLOCATABLE :: od550lt1aer(:)
	234	!$OMP THREADPRIVATE(od550lt1aer)
	235	REAL, SAVE, ALLOCATABLE :: sconcso4(:)
	236	!$OMP THREADPRIVATE(sconcso4)
[2146]	237	REAL, SAVE, ALLOCATABLE :: sconcno3(:)
	238	!$OMP THREADPRIVATE(sconcno3)
[1337]	239	REAL, SAVE, ALLOCATABLE :: sconcoa(:)
	240	!$OMP THREADPRIVATE(sconcoa)
	241	REAL, SAVE, ALLOCATABLE :: sconcbc(:)
	242	!$OMP THREADPRIVATE(sconcbc)
	243	REAL, SAVE, ALLOCATABLE :: sconcss(:)
	244	!$OMP THREADPRIVATE(sconcss)
	245	REAL, SAVE, ALLOCATABLE :: sconcdust(:)
	246	!$OMP THREADPRIVATE(sconcdust)
	247	REAL, SAVE, ALLOCATABLE :: concso4(:,:)
	248	!$OMP THREADPRIVATE(concso4)
[2146]	249	REAL, SAVE, ALLOCATABLE :: concno3(:,:)
	250	!$OMP THREADPRIVATE(concno3)
[1337]	251	REAL, SAVE, ALLOCATABLE :: concoa(:,:)
	252	!$OMP THREADPRIVATE(concoa)
	253	REAL, SAVE, ALLOCATABLE :: concbc(:,:)
	254	!$OMP THREADPRIVATE(concbc)
	255	REAL, SAVE, ALLOCATABLE :: concss(:,:)
	256	!$OMP THREADPRIVATE(concss)
	257	REAL, SAVE, ALLOCATABLE :: concdust(:,:)
	258	!$OMP THREADPRIVATE(concdust)
	259	REAL, SAVE, ALLOCATABLE :: loadso4(:)
	260	!$OMP THREADPRIVATE(loadso4)
	261	REAL, SAVE, ALLOCATABLE :: loadoa(:)
	262	!$OMP THREADPRIVATE(loadoa)
	263	REAL, SAVE, ALLOCATABLE :: loadbc(:)
	264	!$OMP THREADPRIVATE(loadbc)
	265	REAL, SAVE, ALLOCATABLE :: loadss(:)
	266	!$OMP THREADPRIVATE(loadss)
	267	REAL, SAVE, ALLOCATABLE :: loaddust(:)
	268	!$OMP THREADPRIVATE(loaddust)
[2823]	269	REAL, SAVE, ALLOCATABLE :: loadno3(:)
	270	!$OMP THREADPRIVATE(loadno3)
[2953]	271	REAL, SAVE, ALLOCATABLE :: load_tmp1(:), load_tmp2(:)
	272	!$OMP THREADPRIVATE(load_tmp1, load_tmp2)
	273	REAL, SAVE, ALLOCATABLE :: load_tmp3(:), load_tmp4(:)
	274	!$OMP THREADPRIVATE(load_tmp3, load_tmp4)
	275	REAL, SAVE, ALLOCATABLE :: load_tmp5(:), load_tmp6(:)
	276	!$OMP THREADPRIVATE(load_tmp5, load_tmp6)
	277	REAL, SAVE, ALLOCATABLE :: load_tmp7(:), load_tmp8(:)
	278	!$OMP THREADPRIVATE(load_tmp7, load_tmp8)
	279	REAL, SAVE, ALLOCATABLE :: load_tmp9(:), load_tmp10(:)
	280	!$OMP THREADPRIVATE(load_tmp9, load_tmp10)
[1279]	281
[1539]	282	!IM ajout variables CFMIP2/CMIP5
	283	REAL,ALLOCATABLE,SAVE :: topswad_aerop(:), solswad_aerop(:)
	284	!$OMP THREADPRIVATE(topswad_aerop, solswad_aerop)
	285	REAL,ALLOCATABLE,SAVE :: topswai_aerop(:), solswai_aerop(:)
	286	!$OMP THREADPRIVATE(topswai_aerop, solswai_aerop)
	287	REAL,ALLOCATABLE,SAVE :: topswad0_aerop(:), solswad0_aerop(:)
	288	!$OMP THREADPRIVATE(topswad0_aerop, solswad0_aerop)
	289	REAL,ALLOCATABLE,SAVE :: topsw_aerop(:,:), topsw0_aerop(:,:)
	290	!$OMP THREADPRIVATE(topsw_aerop, topsw0_aerop)
	291	REAL,ALLOCATABLE,SAVE :: solsw_aerop(:,:), solsw0_aerop(:,:)
	292	!$OMP THREADPRIVATE(solsw_aerop, solsw0_aerop)
	293	REAL,ALLOCATABLE,SAVE :: topswcf_aerop(:,:), solswcf_aerop(:,:)
	294	!$OMP THREADPRIVATE(topswcf_aerop, solswcf_aerop)
	295
[2146]	296	! additional LW variables CK
	297	REAL,ALLOCATABLE,SAVE :: toplwad_aerop(:), sollwad_aerop(:)
	298	!$OMP THREADPRIVATE(toplwad_aerop, sollwad_aerop)
	299	REAL,ALLOCATABLE,SAVE :: toplwai_aerop(:), sollwai_aerop(:)
	300	!$OMP THREADPRIVATE(toplwai_aerop, sollwai_aerop)
	301	REAL,ALLOCATABLE,SAVE :: toplwad0_aerop(:), sollwad0_aerop(:)
	302	!$OMP THREADPRIVATE(toplwad0_aerop, sollwad0_aerop)
[1797]	303
[4677]	304	!AI 08 2023 ajout pour Ecrad
	305	REAL,ALLOCATABLE,SAVE :: topswad_aero_s2(:), solswad_aero_s2(:)
	306	!$OMP THREADPRIVATE(topswad_aero_s2, solswad_aero_s2)
	307	REAL,ALLOCATABLE,SAVE :: topswai_aero_s2(:), solswai_aero_s2(:)
	308	!$OMP THREADPRIVATE(topswai_aero_s2, solswai_aero_s2)
	309	REAL,ALLOCATABLE,SAVE :: topswad0_aero_s2(:), solswad0_aero_s2(:)
	310	!$OMP THREADPRIVATE(topswad0_aero_s2, solswad0_aero_s2)
	311	REAL,ALLOCATABLE,SAVE :: topsw_aero_s2(:,:), topsw0_aero_s2(:,:)
	312	!$OMP THREADPRIVATE(topsw_aero_s2, topsw0_aero_s2)
	313	REAL,ALLOCATABLE,SAVE :: solsw_aero_s2(:,:), solsw0_aero_s2(:,:)
	314	!$OMP THREADPRIVATE(solsw_aero_s2, solsw0_aero_s2)
	315	REAL,ALLOCATABLE,SAVE :: topswcf_aero_s2(:,:), solswcf_aero_s2(:,:)
	316	!$OMP THREADPRIVATE(topswcf_aero_s2, solswcf_aero_s2)
	317	! additional LW variables CK
	318	REAL,ALLOCATABLE,SAVE :: toplwad_aero_s2(:), sollwad_aero_s2(:)
	319	!$OMP THREADPRIVATE(toplwad_aero_s2, sollwad_aero_s2)
	320	REAL,ALLOCATABLE,SAVE :: toplwai_aero_s2(:), sollwai_aero_s2(:)
	321	!$OMP THREADPRIVATE(toplwai_aero_s2, sollwai_aero_s2)
	322	REAL,ALLOCATABLE,SAVE :: toplwad0_aero_s2(:), sollwad0_aero_s2(:)
	323	!$OMP THREADPRIVATE(toplwad0_aero_s2, sollwad0_aero_s2)
	324
[2897]	325	!Ajout de celles n??cessaires au phys_output_write_mod
[2385]	326	REAL, SAVE, ALLOCATABLE :: tal1(:), pal1(:), pab1(:), pab2(:)
	327	!$OMP THREADPRIVATE(tal1, pal1, pab1, pab2)
	328	REAL, SAVE, ALLOCATABLE :: ptstar(:), pt0(:), slp(:)
	329	!$OMP THREADPRIVATE(ptstar, pt0, slp)
[1797]	330	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sens, flwp, fiwp
	331	!$OMP THREADPRIVATE(sens, flwp, fiwp)
[2635]	332	!!
[4575]	333	!FC
	334	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zxfluxt, zxfluxq
	335	!$OMP THREADPRIVATE(zxfluxt, zxfluxq)
	336	!FC
[2635]	337	!! Wake variables
[3080]	338	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_wake
	339	!$OMP THREADPRIVATE(alp_wake)
[2849]	340	!!jyg! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: wake_h,wake_k
	341	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: wake_h
	342	INTEGER,ALLOCATABLE,SAVE,DIMENSION(:) :: wake_k
[2732]	343	!$OMP THREADPRIVATE(wake_h,wake_k)
[2635]	344	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wake_omg
	345	!$OMP THREADPRIVATE(wake_omg)
	346	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_wk, d_deltaq_wk
	347	!$OMP THREADPRIVATE(d_deltat_wk, d_deltaq_wk)
[4744]	348	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: d_s_wk, d_s_a_wk, d_dens_wk, d_dens_a_wk
	349	!$OMP THREADPRIVATE(d_s_wk, d_s_a_wk, d_dens_wk, d_dens_a_wk)
[2635]	350	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_wk_gw, d_deltaq_wk_gw
	351	!$OMP THREADPRIVATE(d_deltat_wk_gw, d_deltaq_wk_gw)
	352	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_vdf, d_deltaq_vdf
	353	!$OMP THREADPRIVATE(d_deltat_vdf, d_deltaq_vdf)
	354	!!! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: d_s_vdf, d_dens_vdf
[5084]	355	!!!OMP THREADPRIVATE(d_s_vdf, d_dens_vdf)
[2635]	356	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:) :: d_deltat_the, d_deltaq_the
	357	!$OMP THREADPRIVATE(d_deltat_the, d_deltaq_the)
	358	!!! REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: d_s_the, d_dens_the
[5084]	359	!!!OMP THREADPRIVATE(d_s_the, d_dens_the)
[2635]	360	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: d_deltat_ajs_cv, d_deltaq_ajs_cv
[5056]	361	!$OMP THREADPRIVATE(d_deltat_ajs_cv, d_deltaq_ajs_cv)
	362	#ifdef ISO
	363	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:,:) :: d_deltaxt_wk
	364	!$OMP THREADPRIVATE(d_deltaxt_wk)
	365	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:,:) :: d_deltaxt_wk_gw
	366	!$OMP THREADPRIVATE(d_deltaxt_wk_gw)
	367	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:,:) :: d_deltaxt_the
	368	!$OMP THREADPRIVATE(d_deltaxt_the)
	369	REAL, SAVE, ALLOCATABLE,DIMENSION(:,:,:) :: d_deltaxt_vdf
	370	!$OMP THREADPRIVATE(d_deltaxt_vdf)
	371	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: d_deltaxt_ajs_cv
	372	!$OMP THREADPRIVATE(d_deltaxt_ajs_cv)
	373	#endif
[2635]	374	!! End of Wake variables
	375	!!
	376	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: bils
	377	!$OMP THREADPRIVATE(bils)
[1797]	378	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragm, cdragh
	379	!$OMP THREADPRIVATE(cdragm, cdragh)
[2243]	380	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldh, cldl, cldm, cldq, cldt, qsat2m
[4737]	381	!$OMP THREADPRIVATE(cldh, cldl, cldm, cldq, cldt, qsat2m)
[3779]	382	!AS: cldhjn, cldljn, cldmjn,cldtjn pas utilisés en tant que variables, juste noms de diagnostics
[1924]	383	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt
	384	!$OMP THREADPRIVATE(JrNt)
[4887]	385	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw, water_budget
	386	!$OMP THREADPRIVATE(dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw, water_budget)
[1797]	387	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zustar, zu10m, zv10m, rh2m
	388	!$OMP THREADPRIVATE(zustar, zu10m, zv10m, rh2m)
	389	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: s_lcl, s_pblh, s_pblt, s_therm
	390	!$OMP THREADPRIVATE(s_lcl, s_pblh, s_pblt, s_therm)
[2159]	391	!
	392	!nrlmd+jyg<
	393	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: s_pblh_x, s_pblh_w
	394	!$OMP THREADPRIVATE(s_pblh_x, s_pblh_w)
	395	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: s_lcl_x, s_lcl_w
	396	!$OMP THREADPRIVATE(s_lcl_x, s_lcl_w)
	397	!>nrlmd+jyg
	398	!
[1797]	399	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: slab_wfbils
	400	!$OMP THREADPRIVATE(slab_wfbils)
[3257]	401	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: tpot, tpote, ue, uq, uwat, ve, vq, vwat, zxffonte
	402	!$OMP THREADPRIVATE(tpot, tpote, ue, uq, uwat, ve, vq, vwat, zxffonte)
[5188]	403	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxustartlic, zxrhoslic, zxqsaltlic, tempsmoothlic
	404	!$OMP THREADPRIVATE(zxustartlic, zxrhoslic, zxqsaltlic, tempsmoothlic)
[1797]	405	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfqcalving
	406	!$OMP THREADPRIVATE(zxfqcalving)
[2243]	407	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat, zxtsol, snow_lsc, zxfqfonte
	408	!$OMP THREADPRIVATE(zxfluxlat, zxtsol, snow_lsc, zxfqfonte)
[5109]	409	!SN runoffdiag
	410	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxrunofflic, runoff_diag
	411	!$OMP THREADPRIVATE(zxrunofflic, runoff_diag)
[2516]	412	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxqsurf, rain_lsc, rain_num
	413	!$OMP THREADPRIVATE(zxqsurf, rain_lsc, rain_num)
[5056]	414	#ifdef ISO
	415	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: xtevap,xtprw
	416	!$OMP THREADPRIVATE(xtevap,xtprw)
[5109]	417	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: h1_diag
[5056]	418	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: xtrunoff_diag
[5215]	419	!$OMP THREADPRIVATE(h1_diag,xtrunoff_diag)
[5056]	420	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zxfxtcalving
	421	!$OMP THREADPRIVATE(zxfxtcalving)
	422	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: xtsnow_lsc, zxfxtfonte
	423	!$OMP THREADPRIVATE(xtsnow_lsc, zxfxtfonte)
	424	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zxxtrunofflic
	425	!$OMP THREADPRIVATE(zxxtrunofflic)
	426	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: xtrain_lsc
	427	!$OMP THREADPRIVATE(xtrain_lsc)
	428	#endif
[2159]	429	!
	430	!jyg+nrlmd<
	431	!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	432	! c
	433	! Declarations liees a la couche limite differentiee w-x c
	434	! c
	435	!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	436	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sens_x, sens_w
	437	!$OMP THREADPRIVATE(sens_x, sens_w)
	438	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat_x, zxfluxlat_w
	439	!$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w)
[3888]	440	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: delta_qsurf
	441	!$OMP THREADPRIVATE(delta_qsurf)
[2181]	442	!jyg<
[3435]	443	!!! Entrees supplementaires couche-limite
[2181]	444	!! REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_x, t_w
	445	!!!$OMP THREADPRIVATE(t_x, t_w)
	446	!! REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: q_x, q_w
	447	!!!$OMP THREADPRIVATE(q_x, q_w)
	448	!>jyg
[3435]	449	!!! Sorties ferret
	450	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dtvdf_x, dtvdf_w
	451	!$OMP THREADPRIVATE(dtvdf_x, dtvdf_w)
	452	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dqvdf_x, dqvdf_w
	453	!$OMP THREADPRIVATE(dqvdf_x, dqvdf_w)
	454	! Variables supplementaires dans physiq.F relative au splitting de la surface
[2159]	455	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: pbl_tke_input
	456	!$OMP THREADPRIVATE(pbl_tke_input)
	457	! Entree supplementaire Thermiques :
[2607]	458	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_therm, q_therm, u_therm, v_therm
	459	!$OMP THREADPRIVATE(t_therm, q_therm, u_therm, v_therm)
[2159]	460	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragh_x, cdragh_w
	461	!$OMP THREADPRIVATE(cdragh_x, cdragh_w)
	462	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cdragm_x, cdragm_w
	463	!$OMP THREADPRIVATE(cdragm_x, cdragm_w)
	464	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: kh, kh_x, kh_w
	465	!$OMP THREADPRIVATE(kh, kh_x, kh_w)
[5056]	466	#ifdef ISO
	467	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: dxtvdf_x, dxtvdf_w
	468	!$OMP THREADPRIVATE(dxtvdf_x, dxtvdf_w)
	469	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xt_therm
	470	!$OMP THREADPRIVATE(xt_therm)
	471	#endif
[2159]	472	!!!
	473	!!!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
[2877]	474	LOGICAL, SAVE, ALLOCATABLE :: ptconv(:,:)
	475	!$OMP THREADPRIVATE(ptconv)
[3148]	476	REAL, SAVE, ALLOCATABLE :: ratqsc(:,:)
	477	!$OMP THREADPRIVATE(ratqsc)
[2159]	478	!>jyg+nrlmd
	479	!
[2824]	480	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: wbeff, convoccur, zmax_th, zq2m, zt2m
	481	!$OMP THREADPRIVATE(wbeff, convoccur, zmax_th, zq2m, zt2m)
[2103]	482	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zt2m_min_mon, zt2m_max_mon
	483	!$OMP THREADPRIVATE(zt2m_min_mon, zt2m_max_mon)
	484	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: t2m_min_mon, t2m_max_mon
	485	!$OMP THREADPRIVATE(t2m_min_mon, t2m_max_mon)
[1797]	486	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: weak_inversion
	487	!$OMP THREADPRIVATE(weak_inversion)
[3080]	488	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_conv,alp_bl_det
	489	!$OMP THREADPRIVATE(alp_bl_conv,alp_bl_det)
[1797]	490	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_fluct_m,alp_bl_fluct_tke
	491	!$OMP THREADPRIVATE(alp_bl_fluct_m,alp_bl_fluct_tke)
[4843]	492	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: alp_bl_stat, n2, s2, strig, zcong, zlcl_th
	493	!$OMP THREADPRIVATE(alp_bl_stat, n2, s2, strig, zcong, zlcl_th)
[1797]	494	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: proba_notrig, random_notrig
	495	!$OMP THREADPRIVATE(proba_notrig, random_notrig)
[4737]	496	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fsolsw, wfbils
	497	!$OMP THREADPRIVATE(fsolsw, wfbils)
	498	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wfevap
	499	!$OMP THREADPRIVATE(wfevap)
[2243]	500	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t2m, fluxlat, fsollw,evap_pot
	501	!$OMP THREADPRIVATE(t2m, fluxlat, fsollw,evap_pot)
[3134]	502	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dnwd0, omega
	503	!$OMP THREADPRIVATE(dnwd0, omega)
[2481]	504	REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: epmax_diag ! epmax_cape
	505	!$OMP THREADPRIVATE(epmax_diag)
[3134]	506	!
	507	! Deep convective variables used in phytrac
	508	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ep ! epmax_cape
[2481]	509	!$OMP THREADPRIVATE(ep)
[3134]	510	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dnwd, upwd
	511	!$OMP THREADPRIVATE(dnwd, upwd)
	512	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: pmflxr, pmflxs
	513	!$OMP THREADPRIVATE(pmflxr, pmflxs)
[5425]	514	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wdtrainA, wdtrainS, wdtrainM, wdtrainAS
	515	!$OMP THREADPRIVATE(wdtrainA, wdtrainS, wdtrainM, wdtrainAS)
[3134]	516	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: da, mp
	517	!$OMP THREADPRIVATE(da, mp)
	518	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wght_cvfd
	519	!$OMP THREADPRIVATE(wght_cvfd)
	520	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:):: phi, phi2, elij, epmlmMm
	521	!$OMP THREADPRIVATE(phi, phi2, elij, epmlmMm)
	522	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: d1a, dam
	523	!$OMP THREADPRIVATE(d1a, dam)
	524	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ev
	525	!$OMP THREADPRIVATE(ev)
[3496]	526	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qtaa
	527	!$OMP THREADPRIVATE(qtaa)
[3134]	528	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: clw
	529	!$OMP THREADPRIVATE(clw)
	530	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: eplaMm
	531	!$OMP THREADPRIVATE(eplaMm)
	532	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:):: sij
	533	!$OMP THREADPRIVATE(sij)
[5056]	534	#ifdef ISO
	535	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xtwdtrainA
	536	!$OMP THREADPRIVATE(xtwdtrainA)
	537	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xtev
	538	!$OMP THREADPRIVATE(xtev)
	539	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xttaa
	540	!$OMP THREADPRIVATE(xttaa)
	541	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xtclw
	542	!$OMP THREADPRIVATE(xtclw)
	543	#ifdef DIAGISO
	544	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qlp
	545	!$OMP THREADPRIVATE(qlp)
	546	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qvp
	547	!$OMP THREADPRIVATE(qvp)
	548	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fq_detrainement
	549	!$OMP THREADPRIVATE(fq_detrainement)
	550	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fq_ddft
	551	!$OMP THREADPRIVATE(fq_ddft)
	552	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fq_fluxmasse
	553	!$OMP THREADPRIVATE(fq_fluxmasse)
	554	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: fq_evapprecip
	555	!$OMP THREADPRIVATE(fq_evapprecip)
	556	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: f_detrainement
	557	!$OMP THREADPRIVATE(f_detrainement)
	558	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: q_detrainement
	559	!$OMP THREADPRIVATE(q_detrainement)
	560	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xt_detrainement
	561	!$OMP THREADPRIVATE(xt_detrainement)
	562	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xtlp
	563	!$OMP THREADPRIVATE(xtlp)
	564	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xtvp
	565	!$OMP THREADPRIVATE(xtvp)
	566	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: q_the
	567	!$OMP THREADPRIVATE(q_the)
	568	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xt_the
	569	!$OMP THREADPRIVATE(xt_the)
	570	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: fxt_detrainement
	571	!$OMP THREADPRIVATE(fxt_detrainement)
	572	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: fxt_ddft
	573	!$OMP THREADPRIVATE(fxt_ddft)
	574	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: fxt_fluxmasse
	575	!$OMP THREADPRIVATE(fxt_fluxmasse)
	576	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: fxt_evapprecip
	577	!$OMP THREADPRIVATE(fxt_evapprecip)
	578	#endif
	579	#endif
[3134]	580	!
[1797]	581	! REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: coefh, coefm, lambda_th
	582	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: lambda_th
	583	!$OMP THREADPRIVATE(lambda_th)
	584	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: cldemi, cldfra, cldtau, fiwc, fl, re, flwc
	585	!$OMP THREADPRIVATE(cldemi, cldfra, cldtau, fiwc, fl, re, flwc)
[4118]	586	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: qlth, qith, qsith, wiceth
	587	!$OMP THREADPRIVATE(qlth, qith, qsith, wiceth)
[1797]	588	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq, ref_ice, theta, zphi
	589	!$OMP THREADPRIVATE(ref_liq, ref_ice, theta, zphi)
[1989]	590	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq_pi, ref_ice_pi
	591	!$OMP THREADPRIVATE(ref_liq_pi, ref_ice_pi)
[3780]	592	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh, zx_rhl, zx_rhi
	593	!$OMP THREADPRIVATE(zx_rh, zx_rhl, zx_rhi)
[4523]	594	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: prfl, psfl, fraca, bsfl
	595	!$OMP THREADPRIVATE(prfl, psfl, fraca, bsfl)
[1797]	596	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: Vprecip, zw2
	597	!$OMP THREADPRIVATE(Vprecip, zw2)
	598	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: pmfd, pmfu
	599	!$OMP THREADPRIVATE(pmfd, pmfu)
	600	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: fluxt, fluxu, fluxv
	601	!$OMP THREADPRIVATE(fluxt, fluxu, fluxv)
	602	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: uwriteSTD, vwriteSTD, wwriteSTD
	603	!$OMP THREADPRIVATE(uwriteSTD, vwriteSTD, wwriteSTD)
[1828]	604	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: phiwriteSTD, qwriteSTD, twriteSTD, rhwriteSTD
	605	!$OMP THREADPRIVATE(phiwriteSTD, qwriteSTD, twriteSTD, rhwriteSTD)
[1797]	606
[4072]	607
[1797]	608	! ug et d'autres encore:
	609	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: beta_prec
	610	!$OMP THREADPRIVATE(beta_prec)
[2945]	611	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb,rnebjn,rneblsvol
	612	!$OMP THREADPRIVATE(rneb,rnebjn,rneblsvol)
[4530]	613	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: pfraclr,pfracld
	614	!$OMP THREADPRIVATE(pfraclr,pfracld)
[5007]	615	REAL, SAVE, ALLOCATABLE :: cldfraliq(:,:)
	616	!$OMP THREADPRIVATE(cldfraliq)
	617	REAL, SAVE, ALLOCATABLE ::mean_icefracturb(:,:)
	618	!$OMP THREADPRIVATE(mean_icefracturb)
	619	REAL, SAVE, ALLOCATABLE :: sigma2_icefracturb(:,:)
	620	!$OMP THREADPRIVATE(sigma2_icefracturb)
[1797]	621
[1865]	622	! variables de sorties MM
[1872]	623	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice
	624	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sissnow,runoff,albsol3_lic
	625	!$OMP THREADPRIVATE(zxsnow,snowhgt,qsnow,to_ice)
	626	!$OMP THREADPRIVATE(sissnow,runoff,albsol3_lic)
[5056]	627	#ifdef ISO
	628	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: zxxtsnow
	629	!$OMP THREADPRIVATE(zxxtsnow)
	630	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: xtVprecip,xtVprecipi
	631	!$OMP THREADPRIVATE(xtVprecip,xtVprecipi)
	632	REAL,ALLOCATABLE,SAVE,DIMENSION(:,:,:) :: pxtrfl, pxtsfl
	633	!$OMP THREADPRIVATE(pxtrfl, pxtsfl)
	634	#endif
[1865]	635
[2992]	636	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: p_tropopause, z_tropopause, t_tropopause
	637	!$OMP THREADPRIVATE(p_tropopause, z_tropopause, t_tropopause)
	638
[3817]	639	INTEGER,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zn2mout
	640	!$OMP THREADPRIVATE(zn2mout)
	641
[5204]	642	!-- LSCP - condensation and ice supersaturation variables
	643	REAL, SAVE, ALLOCATABLE :: qsub(:,:), qissr(:,:), qcld(:,:)
	644	!$OMP THREADPRIVATE(qsub, qissr, qcld)
	645	REAL, SAVE, ALLOCATABLE :: subfra(:,:), issrfra(:,:)
	646	!$OMP THREADPRIVATE(subfra, issrfra)
	647	REAL, SAVE, ALLOCATABLE :: gamma_cond(:,:)
	648	!$OMP THREADPRIVATE(gamma_cond)
[5396]	649	REAL, SAVE, ALLOCATABLE :: ql_seri_lscp(:,:)
	650	!$OMP THREADPRIVATE(ql_seri_lscp)
	651	REAL, SAVE, ALLOCATABLE :: ratio_ql_qtot(:,:)
	652	!$OMP THREADPRIVATE(ratio_ql_qtot)
	653	REAL, SAVE, ALLOCATABLE :: qi_seri_lscp(:,:)
	654	!$OMP THREADPRIVATE(qi_seri_lscp)
[5204]	655	REAL, SAVE, ALLOCATABLE :: ratio_qi_qtot(:,:)
	656	!$OMP THREADPRIVATE(ratio_qi_qtot)
	657	REAL, SAVE, ALLOCATABLE :: dcf_sub(:,:), dcf_con(:,:), dcf_mix(:,:)
	658	!$OMP THREADPRIVATE(dcf_sub, dcf_con, dcf_mix)
	659	REAL, SAVE, ALLOCATABLE :: dqi_adj(:,:), dqi_sub(:,:), dqi_con(:,:), dqi_mix(:,:)
	660	!$OMP THREADPRIVATE(dqi_adj, dqi_sub, dqi_con, dqi_mix)
	661	REAL, SAVE, ALLOCATABLE :: dqvc_adj(:,:), dqvc_sub(:,:), dqvc_con(:,:), dqvc_mix(:,:)
	662	!$OMP THREADPRIVATE(dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix)
	663	REAL, SAVE, ALLOCATABLE :: qsatliq(:,:), qsatice(:,:)
	664	!$OMP THREADPRIVATE(qsatliq, qsatice)
	665
	666	!-- LSCP - aviation and contrails variables
	667	REAL, SAVE, ALLOCATABLE :: Tcontr(:,:), qcontr(:,:), qcontr2(:,:)
	668	!$OMP THREADPRIVATE(Tcontr, qcontr, qcontr2)
	669	REAL, SAVE, ALLOCATABLE :: fcontrN(:,:), fcontrP(:,:)
	670	!$OMP THREADPRIVATE(fcontrN, fcontrP)
	671	REAL, SAVE, ALLOCATABLE :: dcf_avi(:,:), dqi_avi(:,:), dqvc_avi(:,:)
	672	!$OMP THREADPRIVATE(dcf_avi, dqi_avi, dqvc_avi)
	673	REAL, SAVE, ALLOCATABLE :: flight_dist(:,:), flight_h2o(:,:)
	674	!$OMP THREADPRIVATE(flight_dist, flight_h2o)
	675
	676	!-- LSCP - mixed phase clouds variables
[4562]	677	REAL, SAVE, ALLOCATABLE :: distcltop(:,:)
[4564]	678	!$OMP THREADPRIVATE(distcltop)
[4639]	679	REAL, SAVE, ALLOCATABLE :: temp_cltop(:,:)
[4677]	680	!$OMP THREADPRIVATE(temp_cltop)
[4059]	681
[5204]	682	!-- LSCP - POPRECIP variables
[4830]	683	REAL, SAVE, ALLOCATABLE :: qraindiag(:,:)
	684	!$OMP THREADPRIVATE(qraindiag)
	685	REAL, SAVE, ALLOCATABLE :: qsnowdiag(:,:)
	686	!$OMP THREADPRIVATE(qsnowdiag)
[4803]	687	REAL, SAVE, ALLOCATABLE :: dqreva(:,:)
	688	!$OMP THREADPRIVATE(dqreva)
	689	REAL, SAVE, ALLOCATABLE :: dqrauto(:,:)
	690	!$OMP THREADPRIVATE(dqrauto)
	691	REAL, SAVE, ALLOCATABLE :: dqrcol(:,:)
	692	!$OMP THREADPRIVATE(dqrcol)
	693	REAL, SAVE, ALLOCATABLE :: dqrmelt(:,:)
	694	!$OMP THREADPRIVATE(dqrmelt)
	695	REAL, SAVE, ALLOCATABLE :: dqrfreez(:,:)
	696	!$OMP THREADPRIVATE(dqrfreez)
	697	REAL, SAVE, ALLOCATABLE :: dqssub(:,:)
	698	!$OMP THREADPRIVATE(dqssub)
	699	REAL, SAVE, ALLOCATABLE :: dqsauto(:,:)
	700	!$OMP THREADPRIVATE(dqsauto)
	701	REAL, SAVE, ALLOCATABLE :: dqsagg(:,:)
	702	!$OMP THREADPRIVATE(dqsagg)
	703	REAL, SAVE, ALLOCATABLE :: dqsrim(:,:)
	704	!$OMP THREADPRIVATE(dqsrim)
	705	REAL, SAVE, ALLOCATABLE :: dqsmelt(:,:)
	706	!$OMP THREADPRIVATE(dqsmelt)
	707	REAL, SAVE, ALLOCATABLE :: dqsfreez(:,:)
	708	!$OMP THREADPRIVATE(dqsfreez)
	709
[2752]	710	! variables for stratospheric aerosol
[4601]	711	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: d_q_emiss
	712	!$OMP THREADPRIVATE(d_q_emiss)
[2690]	713	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: R2SO4
	714	!$OMP THREADPRIVATE(R2SO4)
[4950]	715	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: R2SO4B
	716	!$OMP THREADPRIVATE(R2SO4B)
[2690]	717	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: DENSO4
	718	!$OMP THREADPRIVATE(DENSO4)
[4950]	719	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:, :) :: DENSO4B
[5252]	720	!$OMP THREADPRIVATE(DENSO4B)
[2690]	721	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: f_r_wet
	722	!$OMP THREADPRIVATE(f_r_wet)
[4950]	723	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:, :) :: f_r_wetB
	724	!$OMP THREADPRIVATE(f_r_wetB)
[2690]	725	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: decfluxaer
	726	!$OMP THREADPRIVATE(decfluxaer)
	727	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: mdw
	728	!$OMP THREADPRIVATE(mdw)
	729	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: OCS_lifetime
	730	!$OMP THREADPRIVATE(OCS_lifetime)
	731	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SO2_lifetime
	732	!$OMP THREADPRIVATE(SO2_lifetime)
[4601]	733	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: H2SO4_lifetime
	734	!$OMP THREADPRIVATE(H2SO4_lifetime)
	735	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: O3_clim
	736	!$OMP THREADPRIVATE(O3_clim)
[2690]	737	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: alpha_bin
	738	!$OMP THREADPRIVATE(alpha_bin)
	739	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: piz_bin
	740	!$OMP THREADPRIVATE(piz_bin)
	741	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: cg_bin
	742	!$OMP THREADPRIVATE(cg_bin)
	743	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tau_strat_550
	744	!$OMP THREADPRIVATE(tau_strat_550)
	745	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tau_strat_1020
	746	!$OMP THREADPRIVATE(tau_strat_1020)
	747	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tausum_strat
	748	!$OMP THREADPRIVATE(tausum_strat)
	749	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: surf_PM25_sulf
	750	!$OMP THREADPRIVATE(surf_PM25_sulf)
	751	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: vsed_aer
	752	!$OMP THREADPRIVATE(vsed_aer)
[4998]	753	! Sulfate aerosol concentration (dry mixing ratio) (condensed H2SO4 mmr)
	754	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: sulfmmr
	755	!$OMP THREADPRIVATE(sulfmmr)
	756	! SAD all aerosols (cm2/cm3)
	757	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SAD_sulfate
	758	!$OMP THREADPRIVATE(SAD_sulfate)
[5150]	759	! Effective radius of wet surface aerosols (cm)
	760	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: reff_sulfate
	761	!$OMP THREADPRIVATE(reff_sulfate)
[4998]	762	! sulfate MMR in different modes (based on sulfmmr, it must be dry mmr)
	763	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: sulfmmr_mode
	764	!$OMP THREADPRIVATE(sulfmmr_mode)
	765	! particle concentration in different modes (part/m3)
	766	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: nd_mode
	767	!$OMP THREADPRIVATE(nd_mode)
[2752]	768	!
	769	!---3D budget variables
	770	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_nucl
	771	!$OMP THREADPRIVATE(budg_3D_nucl)
	772	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_cond_evap
	773	!$OMP THREADPRIVATE(budg_3D_cond_evap)
	774	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_ocs_to_so2
	775	!$OMP THREADPRIVATE(budg_3D_ocs_to_so2)
	776	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_so2_to_h2so4
	777	!$OMP THREADPRIVATE(budg_3D_so2_to_h2so4)
	778	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_backgr_ocs
	779	!$OMP THREADPRIVATE(budg_3D_backgr_ocs)
	780	REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: budg_3D_backgr_so2
	781	!$OMP THREADPRIVATE(budg_3D_backgr_so2)
	782	!
	783	!---2D budget variables
[3100]	784	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_ocs
	785	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_so2
[2752]	786	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_h2so4
	787	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_dry_part
[3100]	788	!$OMP THREADPRIVATE(budg_dep_dry_ocs,budg_dep_dry_so2,budg_dep_dry_h2so4,budg_dep_dry_part)
	789	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_ocs
	790	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_so2
[2752]	791	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_h2so4
	792	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_dep_wet_part
[3100]	793	!$OMP THREADPRIVATE(budg_dep_wet_ocs,budg_dep_wet_so2,budg_dep_wet_h2so4,budg_dep_wet_part)
[2752]	794	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_ocs
	795	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_so2
	796	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_h2so4
	797	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_emi_part
	798	!$OMP THREADPRIVATE(budg_emi_ocs,budg_emi_so2,budg_emi_h2so4,budg_emi_part)
	799	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_ocs_to_so2
	800	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_so2_to_h2so4
	801	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_h2so4_to_part
	802	!$OMP THREADPRIVATE(budg_ocs_to_so2,budg_so2_to_h2so4,budg_h2so4_to_part)
	803	REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: budg_sed_part
	804	!$OMP THREADPRIVATE(budg_sed_part)
[2690]	805
[904]	806	CONTAINS
	807
	808	!======================================================================
	809	SUBROUTINE phys_local_var_init
[1785]	810	USE dimphy
[5056]	811	USE infotrac_phy, ONLY : nbtr,nqtot
	812	#ifdef ISO
	813	USE infotrac_phy, ONLY : ntraciso=>ntiso,niso
	814	#endif
[1279]	815	USE aero_mod
[1785]	816	USE indice_sol_mod
[1797]	817	USE phys_output_var_mod
	818	USE phys_state_var_mod
[4950]	819	USE infotrac_phy, ONLY : nbtr_bin
[1279]	820
[3117]	821	IMPLICIT NONE
[4523]	822	ALLOCATE(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev), qbs_seri(klon,klev))
[5056]	823	! SN 4D ISO
	824	ALLOCATE(qx_seri(klon,klev,nqtot))
	825	! SN
[2854]	826	ALLOCATE(u_seri(klon,klev),v_seri(klon,klev))
[5204]	827	ALLOCATE(cf_seri(klon,klev),rvc_seri(klon,klev))
[4881]	828	ALLOCATE(l_mixmin(klon,klev+1,nbsrf),l_mix(klon,klev+1,nbsrf),wprime(klon,klev+1,nbsrf))
	829	ALLOCATE(pbl_eps(klon,klev+1,nbsrf+1))
[5039]	830	ALLOCATE(tke_shear(klon,klev+1,nbsrf), tke_buoy(klon,klev+1,nbsrf), tke_trans(klon,klev+1,nbsrf))
[4926]	831	pbl_eps(:,:,:)=0.
[5039]	832	tke_shear(:,:,:)=0.; tke_buoy(:,:,:)=0.; tke_trans(:,:,:)=0.
[4881]	833	l_mix(:,:,:)=0.;l_mixmin(:,:,:)=0.;wprime(:,:,:)=0. ! doit etre initialse car pas toujours remplis
[4489]	834	ALLOCATE(rhcl(klon,klev))
[2854]	835	ALLOCATE(tr_seri(klon,klev,nbtr))
	836	ALLOCATE(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
[4523]	837	ALLOCATE(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev), d_qbs_dyn(klon,klev))
	838	ALLOCATE(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon), d_qbs_dyn2d(klon))
[2854]	839	ALLOCATE(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
[5204]	840	ALLOCATE(d_cf_dyn(klon,klev),d_rvc_dyn(klon,klev))
[2854]	841	ALLOCATE(d_tr_dyn(klon,klev,nbtr)) !RomP
[4742]	842	ALLOCATE(d_t_con(klon,klev),d_q_con(klon,klev),d_q_con_zmasse(klon,klev))
[2854]	843	ALLOCATE(d_u_con(klon,klev),d_v_con(klon,klev))
	844	ALLOCATE(d_t_wake(klon,klev),d_q_wake(klon,klev))
	845	ALLOCATE(d_t_lsc(klon,klev),d_q_lsc(klon,klev))
	846	ALLOCATE(d_t_lwr(klon,klev),d_t_lw0(klon,klev))
	847	ALLOCATE(d_t_swr(klon,klev),d_t_sw0(klon,klev))
	848	ALLOCATE(d_ql_lsc(klon,klev),d_qi_lsc(klon,klev))
	849	ALLOCATE(d_t_ajsb(klon,klev),d_q_ajsb(klon,klev))
	850	ALLOCATE(d_t_ajs(klon,klev),d_q_ajs(klon,klev))
[2159]	851	!nrlmd<
[2854]	852	ALLOCATE(d_t_ajs_w(klon,klev),d_q_ajs_w(klon,klev))
	853	ALLOCATE(d_t_ajs_x(klon,klev),d_q_ajs_x(klon,klev))
[2159]	854	!>nrlmd
[2854]	855	ALLOCATE(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
	856	ALLOCATE(d_t_eva(klon,klev),d_q_eva(klon,klev))
[5056]	857	! SN 4D ISO
	858	ALLOCATE(d_qx_eva(klon,klev,nqtot))
	859	! SN
[2854]	860	ALLOCATE(d_ql_eva(klon,klev),d_qi_eva(klon,klev))
	861	ALLOCATE(d_t_lscst(klon,klev),d_q_lscst(klon,klev))
	862	ALLOCATE(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
	863	ALLOCATE(plul_st(klon),plul_th(klon))
	864	ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
[4523]	865	ALLOCATE (d_qbs_vdf(klon,klev))
[5050]	866	ALLOCATE(d_t_bsss(klon,klev),d_q_bsss(klon,klev),d_qbs_bsss(klon,klev))
[3435]	867	ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
	868	ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
[5056]	869	#ifdef ISO
	870	allocate(xt_seri(ntraciso,klon,klev))
	871	allocate(xtl_seri(ntraciso,klon,klev))
	872	allocate(xts_seri(ntraciso,klon,klev))
	873	allocate(xtbs_seri(ntraciso,klon,klev))
	874	allocate(d_xt_dyn(ntraciso,klon,klev))
	875	allocate(d_xtl_dyn(ntraciso,klon,klev))
	876	allocate(d_xts_dyn(ntraciso,klon,klev))
	877	allocate(d_xtbs_dyn(ntraciso,klon,klev))
	878	allocate(d_xt_con(ntraciso,klon,klev))
	879	allocate(d_xt_wake(ntraciso,klon,klev))
	880	allocate(d_xt_lsc(ntraciso,klon,klev))
	881	allocate(d_xtl_lsc(ntraciso,klon,klev))
	882	allocate(d_xti_lsc(ntraciso,klon,klev))
	883	allocate(d_xt_ajsb(ntraciso,klon,klev))
	884	allocate(d_xt_ajs(ntraciso,klon,klev))
	885	allocate(d_xt_ajs_w(ntraciso,klon,klev))
	886	allocate(d_xt_ajs_x(ntraciso,klon,klev))
	887	allocate(d_xt_eva(ntraciso,klon,klev))
	888	allocate(d_xtl_eva(ntraciso,klon,klev))
	889	allocate(d_xti_eva(ntraciso,klon,klev))
	890	allocate(d_xt_vdf(ntraciso,klon,klev))
	891	allocate(d_xt_vdf_w(ntraciso,klon,klev))
	892	allocate(d_xt_vdf_x(ntraciso,klon,klev))
	893	allocate(d_xt_ch4(ntraciso,klon,klev))
	894	allocate(d_xt_prod_nucl(ntraciso,klon,klev))
	895	allocate(d_xt_cosmo(ntraciso,klon,klev))
	896	allocate(d_xt_decroiss(ntraciso,klon,klev))
	897	#endif
[3435]	898
[2854]	899	ALLOCATE(d_u_vdf(klon,klev),d_v_vdf(klon,klev))
	900	ALLOCATE(d_t_oli(klon,klev),d_t_oro(klon,klev))
	901	ALLOCATE(d_u_oli(klon,klev),d_v_oli(klon,klev))
	902	ALLOCATE(d_u_oro(klon,klev),d_v_oro(klon,klev))
[2897]	903	ALLOCATE(d_u_oro_gw(klon,klev),d_v_oro_gw(klon,klev))
	904	ALLOCATE(d_t_oro_gw(klon,klev))
[2854]	905	ALLOCATE(d_t_lif(klon,klev),d_t_ec(klon,klev))
	906	ALLOCATE(d_u_lif(klon,klev),d_v_lif(klon,klev))
	907	ALLOCATE(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr))
[4489]	908
[1989]	909	! Special RRTM
[2854]	910	ALLOCATE(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1))
[3435]	911	ZFLDN0= 0.
[2854]	912	ALLOCATE(ZFLUP0(klon,klev+1),ZFSDN0(klon,klev+1),ZFSUP0(klon,klev+1))
[1989]	913	!
[2854]	914	ALLOCATE(topswad_aero(klon), solswad_aero(klon))
	915	ALLOCATE(topswai_aero(klon), solswai_aero(klon))
	916	ALLOCATE(topswad0_aero(klon), solswad0_aero(klon))
	917	ALLOCATE(toplwad_aero(klon), sollwad_aero(klon))
	918	ALLOCATE(toplwai_aero(klon), sollwai_aero(klon))
	919	ALLOCATE(toplwad0_aero(klon), sollwad0_aero(klon))
	920	ALLOCATE(topsw_aero(klon,naero_grp), solsw_aero(klon,naero_grp))
	921	ALLOCATE(topsw0_aero(klon,naero_grp), solsw0_aero(klon,naero_grp))
	922	ALLOCATE(topswcf_aero(klon,3), solswcf_aero(klon,3))
	923	ALLOCATE(du_gwd_hines(klon,klev),dv_gwd_hines(klon,klev))
	924	ALLOCATE(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
	925	ALLOCATE(east_gwstress(klon,klev),west_gwstress(klon,klev))
[3435]	926	east_gwstress(:,:)=0 !ym missing init
	927	west_gwstress(:,:)=0 !ym missing init
[2854]	928	ALLOCATE(d_t_hin(klon,klev))
	929	ALLOCATE(d_q_ch4(klon,klev))
	930	ALLOCATE(stratomask(klon,klev))
	931	ALLOCATE(tausum_aero(klon,nwave,naero_tot))
	932	ALLOCATE(drytausum_aero(klon,naero_tot))
	933	ALLOCATE(tau3d_aero(klon,klev,nwave,naero_tot))
[3274]	934	ALLOCATE(dNovrN(klon))
[3124]	935	ALLOCATE(zfice(klon, klev))
[2854]	936	ALLOCATE(od443aer(klon))
	937	ALLOCATE(od550aer(klon))
	938	ALLOCATE(od865aer(klon))
	939	ALLOCATE(dryod550aer(klon))
[3435]	940	dryod550aer(:) = 0.
[2854]	941	ALLOCATE(abs550aer(klon))
[3435]	942	abs550aer(:) = 0.
[2854]	943	ALLOCATE(ec550aer(klon,klev))
	944	ALLOCATE(od550lt1aer(klon))
	945	ALLOCATE(sconcso4(klon))
	946	ALLOCATE(sconcno3(klon))
	947	ALLOCATE(sconcoa(klon))
	948	ALLOCATE(sconcbc(klon))
	949	ALLOCATE(sconcss(klon))
	950	ALLOCATE(sconcdust(klon))
	951	ALLOCATE(concso4(klon,klev))
	952	ALLOCATE(concno3(klon,klev))
	953	ALLOCATE(concoa(klon,klev))
	954	ALLOCATE(concbc(klon,klev))
	955	ALLOCATE(concss(klon,klev))
	956	ALLOCATE(concdust(klon,klev))
	957	ALLOCATE(loadso4(klon))
	958	ALLOCATE(loadoa(klon))
	959	ALLOCATE(loadbc(klon))
	960	ALLOCATE(loadss(klon))
	961	ALLOCATE(loaddust(klon))
	962	ALLOCATE(loadno3(klon))
	963	ALLOCATE(load_tmp1(klon))
	964	ALLOCATE(load_tmp2(klon))
	965	ALLOCATE(load_tmp3(klon))
[2953]	966	ALLOCATE(load_tmp4(klon))
	967	ALLOCATE(load_tmp5(klon))
	968	ALLOCATE(load_tmp6(klon))
	969	ALLOCATE(load_tmp7(klon))
	970	ALLOCATE(load_tmp8(klon))
	971	ALLOCATE(load_tmp9(klon))
	972	ALLOCATE(load_tmp10(klon))
[1279]	973
[1539]	974	!IM ajout variables CFMIP2/CMIP5
	975	ALLOCATE(topswad_aerop(klon), solswad_aerop(klon))
	976	ALLOCATE(topswai_aerop(klon), solswai_aerop(klon))
	977	ALLOCATE(topswad0_aerop(klon), solswad0_aerop(klon))
	978	ALLOCATE(topsw_aerop(klon,naero_grp), topsw0_aerop(klon,naero_grp))
	979	ALLOCATE(solsw_aerop(klon,naero_grp), solsw0_aerop(klon,naero_grp))
	980	ALLOCATE(topswcf_aerop(klon,naero_grp), solswcf_aerop(klon,naero_grp))
	981
[2146]	982	! additional LW variables CK
	983	ALLOCATE(toplwad_aerop(klon), sollwad_aerop(klon))
	984	ALLOCATE(toplwai_aerop(klon), sollwai_aerop(klon))
	985	ALLOCATE(toplwad0_aerop(klon), sollwad0_aerop(klon))
	986
[4677]	987	!AI Ajout Ecrad (3Deffect)
	988	ALLOCATE(topswad_aero_s2(klon), solswad_aero_s2(klon))
	989	ALLOCATE(topswai_aero_s2(klon), solswai_aero_s2(klon))
	990	ALLOCATE(topswad0_aero_s2(klon), solswad0_aero_s2(klon))
	991	ALLOCATE(topsw_aero_s2(klon,naero_grp), topsw0_aero_s2(klon,naero_grp))
	992	ALLOCATE(solsw_aero_s2(klon,naero_grp), solsw0_aero_s2(klon,naero_grp))
	993	ALLOCATE(topswcf_aero_s2(klon,naero_grp), solswcf_aero_s2(klon,naero_grp))
	994	! additional LW variables CK
	995	ALLOCATE(toplwad_aero_s2(klon), sollwad_aero_s2(klon))
	996	ALLOCATE(toplwai_aero_s2(klon), sollwai_aero_s2(klon))
	997	ALLOCATE(toplwad0_aero_s2(klon), sollwad0_aero_s2(klon))
	998
[3435]	999	! FH Ajout de celles necessaires au phys_output_write_mod
[1797]	1000
[2385]	1001	ALLOCATE(tal1(klon), pal1(klon), pab1(klon), pab2(klon))
	1002	ALLOCATE(ptstar(klon),pt0(klon),slp(klon))
[2635]	1003	!!
	1004	!! Wake variables
[3080]	1005	ALLOCATE(alp_wake(klon))
[2732]	1006	ALLOCATE(wake_h(klon),wake_k(klon))
[2635]	1007	ALLOCATE(wake_omg(klon, klev))
	1008	ALLOCATE(d_deltat_wk(klon, klev), d_deltaq_wk(klon, klev))
[4744]	1009	ALLOCATE(d_s_wk(klon), d_s_a_wk(klon), d_dens_wk(klon), d_dens_a_wk(klon))
[2635]	1010	ALLOCATE(d_deltat_wk_gw(klon, klev), d_deltaq_wk_gw(klon, klev))
	1011	ALLOCATE(d_deltat_vdf(klon, klev), d_deltaq_vdf(klon, klev))
	1012	!! ALLOCATE( d_s_vdf(klon), d_dens_vdf(klon))
	1013	ALLOCATE(d_deltat_the(klon, klev), d_deltaq_the(klon, klev))
	1014	!! ALLOCATE( d_s_the(klon), d_dens_the(klon))
	1015	ALLOCATE(d_deltat_ajs_cv(klon, klev), d_deltaq_ajs_cv(klon, klev))
[5056]	1016	#ifdef ISO
	1017	ALLOCATE(d_deltaxt_wk(ntraciso,klon, klev))
	1018	ALLOCATE(d_deltaxt_wk_gw(ntraciso,klon, klev))
	1019	ALLOCATE(d_deltaxt_the(ntraciso,klon, klev))
	1020	ALLOCATE(d_deltaxt_vdf(ntraciso,klon, klev))
	1021	ALLOCATE(d_deltaxt_ajs_cv(ntraciso,klon, klev))
	1022	#endif
[2635]	1023	!! End of wake variables
	1024	!!
	1025	ALLOCATE(bils(klon))
[1797]	1026	ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon))
[2243]	1027	ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon))
[1924]	1028	ALLOCATE(JrNt(klon))
[4523]	1029	ALLOCATE(dthmin(klon), evap(klon), snowerosion(klon), fder(klon), plcl(klon), plfc(klon))
[4887]	1030	ALLOCATE(prw(klon), prlw(klon), prsw(klon), prbsw(klon), water_budget(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
[1797]	1031	ALLOCATE(s_lcl(klon))
	1032	ALLOCATE(s_pblh(klon), s_pblt(klon), s_therm(klon))
[2159]	1033	!
	1034	!nrlmd+jyg<
	1035	ALLOCATE(s_pblh_x(klon), s_pblh_w(klon))
	1036	ALLOCATE(s_lcl_x(klon), s_lcl_w(klon))
	1037	!>nrlmd+jyg
	1038	!
[1797]	1039	ALLOCATE(slab_wfbils(klon), tpot(klon), tpote(klon), ue(klon))
	1040	ALLOCATE(uq(klon), ve(klon), vq(klon), zxffonte(klon))
[3257]	1041	ALLOCATE(uwat(klon), vwat(klon))
[2243]	1042	ALLOCATE(zxfqcalving(klon), zxfluxlat(klon))
[1797]	1043	ALLOCATE(zxtsol(klon), snow_lsc(klon), zxfqfonte(klon), zxqsurf(klon))
[5109]	1044	! SN add runoff_diag
	1045	ALLOCATE(zxrunofflic(klon), runoff_diag(klon))
	1046	runoff_diag(:)=0.
[5188]	1047	ALLOCATE(zxustartlic(klon), zxrhoslic(klon), zxqsaltlic(klon), tempsmoothlic(klon))
	1048	zxustartlic(:)=0. ; zxrhoslic(:)=0. ; zxqsaltlic(:)=0. ; tempsmoothlic(:)=0.
[2159]	1049	ALLOCATE(rain_lsc(klon))
[2516]	1050	ALLOCATE(rain_num(klon))
[4118]	1051	ALLOCATE(qlth(klon,klev), qith(klon,klev), qsith(klon,klev), wiceth(klon,klev))
[3999]	1052	!
[5056]	1053	#ifdef ISO
	1054	ALLOCATE(xtevap(ntraciso,klon))
	1055	ALLOCATE(xtprw(ntraciso,klon))
	1056	ALLOCATE(zxfxtcalving(niso,klon))
	1057	ALLOCATE(xtsnow_lsc(ntraciso,klon), zxfxtfonte(niso,klon))
	1058	ALLOCATE(zxxtrunofflic(niso,klon))
	1059	ALLOCATE(xtrain_lsc(ntraciso,klon))
	1060	ALLOCATE(xtrunoff_diag(niso,klon))
[5109]	1061	ALLOCATE(h1_diag(klon))
[5056]	1062	!SN
[5109]	1063	xtrunoff_diag(:,:)=0. ! because variables are only given values on knon grid points
[5056]	1064	#endif
	1065	!
[2159]	1066	ALLOCATE(sens_x(klon), sens_w(klon))
	1067	ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon))
[3888]	1068	ALLOCATE(delta_qsurf(klon))
[2181]	1069	!jyg<
	1070	!! ALLOCATE(t_x(klon,klev), t_w(klon,klev))
	1071	!! ALLOCATE(q_x(klon,klev), q_w(klon,klev))
	1072	!>jyg
[3435]	1073	ALLOCATE(dtvdf_x(klon,klev), dtvdf_w(klon,klev))
	1074	dtvdf_x = 0 ; dtvdf_w=0 ; !ym missing init
	1075	ALLOCATE(dqvdf_x(klon,klev), dqvdf_w(klon,klev))
	1076	dqvdf_x = 0 ; dqvdf_w=0 ; !ym missing init
[2159]	1077	ALLOCATE(pbl_tke_input(klon,klev+1,nbsrf))
[2607]	1078	ALLOCATE(t_therm(klon,klev), q_therm(klon,klev),u_therm(klon,klev), v_therm(klon,klev))
[2159]	1079	ALLOCATE(cdragh_x(klon), cdragh_w(klon))
	1080	ALLOCATE(cdragm_x(klon), cdragm_w(klon))
	1081	ALLOCATE(kh(klon), kh_x(klon), kh_w(klon))
[5056]	1082	#ifdef ISO
	1083	ALLOCATE(dxtvdf_x(ntraciso,klon,klev), dxtvdf_w(ntraciso,klon,klev))
	1084	ALLOCATE(xt_therm(ntraciso,klon,klev))
	1085	#endif
[2159]	1086	!
[2877]	1087	ALLOCATE(ptconv(klon,klev))
[3148]	1088	ALLOCATE(ratqsc(klon,klev))
[2877]	1089	!
[2824]	1090	ALLOCATE(wbeff(klon), convoccur(klon), zmax_th(klon))
[1797]	1091	ALLOCATE(zq2m(klon), zt2m(klon), weak_inversion(klon))
[2103]	1092	ALLOCATE(zt2m_min_mon(klon), zt2m_max_mon(klon))
	1093	ALLOCATE(t2m_min_mon(klon), t2m_max_mon(klon))
[1797]	1094	ALLOCATE(sens(klon), flwp(klon), fiwp(klon))
[3080]	1095	ALLOCATE(alp_bl_conv(klon), alp_bl_det(klon))
[3439]	1096	alp_bl_conv(:)=0 ; alp_bl_det(:)=0
[1797]	1097	ALLOCATE(alp_bl_fluct_m(klon), alp_bl_fluct_tke(klon))
[3435]	1098	alp_bl_fluct_m(:)=0 ; alp_bl_fluct_tke(:)= 0.
[4843]	1099	ALLOCATE(alp_bl_stat(klon), n2(klon), s2(klon), strig(klon), zcong(klon), zlcl_th(klon))
[3435]	1100	alp_bl_stat(:)=0
[1797]	1101	ALLOCATE(proba_notrig(klon), random_notrig(klon))
	1102
[3134]	1103	ALLOCATE(dnwd0(klon, klev))
[1797]	1104	! ALLOCATE(upwd(klon, klev), omega(klon, klev), coefh(klon, klev))
[3134]	1105	ALLOCATE(omega(klon, klev))
[2481]	1106	ALLOCATE(epmax_diag(klon)) ! epmax_cape
[1797]	1107	! ALLOCATE(coefm(klon, klev), lambda_th(klon, klev), cldemi(klon, klev))
	1108	ALLOCATE(lambda_th(klon, klev), cldemi(klon, klev))
	1109	ALLOCATE(cldfra(klon, klev), cldtau(klon, klev), fiwc(klon, klev))
	1110	ALLOCATE(fl(klon, klev), re(klon, klev), flwc(klon, klev))
	1111	ALLOCATE(ref_liq(klon, klev), ref_ice(klon, klev), theta(klon, klev))
[1989]	1112	ALLOCATE(ref_liq_pi(klon, klev), ref_ice_pi(klon, klev))
[3780]	1113	ALLOCATE(zphi(klon, klev), zx_rh(klon, klev), zx_rhl(klon,klev), zx_rhi(klon,klev))
[4072]	1114	zx_rhl(:,:)=0.; zx_rhi(:,:)=0. ! because not always defined
[1797]	1115	ALLOCATE(pmfd(klon, klev), pmfu(klon, klev))
	1116
[2243]	1117	ALLOCATE(t2m(klon, nbsrf), fluxlat(klon, nbsrf))
	1118	ALLOCATE(fsollw(klon, nbsrf))
[4737]	1119	ALLOCATE(fsolsw(klon, nbsrf), wfbils(klon, nbsrf))
	1120	ALLOCATE(wfevap(klon, nbsrf))
[1797]	1121	ALLOCATE(evap_pot(klon, nbsrf))
[4575]	1122	! FC
	1123	ALLOCATE(zxfluxq(klon,klev),zxfluxt(klon,klev))
[3134]	1124	!
	1125	! Deep convective variables used in phytrac
	1126	ALLOCATE(pmflxr(klon, klev+1), pmflxs(klon, klev+1))
[5425]	1127	ALLOCATE(wdtrainA(klon,klev),wdtrainS(klon,klev),wdtrainM(klon,klev),wdtrainAS(klon,klev))
[4737]	1128	ALLOCATE(dnwd(klon, klev), upwd(klon, klev))
[3134]	1129	ALLOCATE(ep(klon,klev)) ! epmax_cape
[4737]	1130	ALLOCATE(da(klon,klev), mp(klon,klev))
	1131	ALLOCATE(phi(klon,klev,klev))
	1132	ALLOCATE(wght_cvfd(klon,klev))
	1133	ALLOCATE(phi2(klon,klev,klev))
[3134]	1134	ALLOCATE(d1a(klon,klev), dam(klon,klev))
[4737]	1135	ALLOCATE(ev(klon,klev))
	1136	ALLOCATE(elij(klon,klev,klev))
	1137	ALLOCATE(qtaa(klon,klev))
	1138	ALLOCATE(clw(klon,klev))
	1139	ALLOCATE(epmlmMm(klon,klev,klev), eplaMm(klon,klev))
	1140	ALLOCATE(sij(klon,klev,klev))
[5056]	1141	#ifdef ISO
	1142	ALLOCATE(xtwdtrainA(ntraciso,klon,klev))
	1143	ALLOCATE(xtev(ntraciso,klon,klev) )
	1144	ALLOCATE(xttaa(ntraciso,klon,klev) )
	1145	ALLOCATE(xtclw(ntraciso,klon,klev) )
	1146	#ifdef DIAGISO
	1147	ALLOCATE(qlp(klon,klev))
	1148	ALLOCATE(qvp(klon,klev))
	1149	ALLOCATE(fq_detrainement(klon,klev))
	1150	ALLOCATE(fq_ddft(klon,klev))
	1151	ALLOCATE(fq_fluxmasse(klon,klev))
	1152	ALLOCATE(fq_evapprecip(klon,klev))
	1153	ALLOCATE(f_detrainement(klon,klev), q_detrainement(klon,klev))
	1154	ALLOCATE(xtlp(ntraciso,klon,klev))
	1155	ALLOCATE(xtvp(ntraciso,klon,klev))
	1156	ALLOCATE(q_the(klon,klev), xt_the(ntraciso,klon,klev))
	1157	ALLOCATE(fxt_detrainement(ntraciso,klon,klev))
	1158	ALLOCATE(fxt_ddft(ntraciso,klon,klev))
	1159	ALLOCATE(fxt_fluxmasse(ntraciso,klon,klev))
	1160	ALLOCATE(fxt_evapprecip(ntraciso,klon,klev))
	1161	ALLOCATE(xt_detrainement(ntraciso,klon,klev))
	1162	#endif
	1163	#endif
[1797]	1164
[3134]	1165	ALLOCATE(prfl(klon, klev+1))
[1797]	1166	ALLOCATE(psfl(klon, klev+1), fraca(klon, klev+1), Vprecip(klon, klev+1))
[4523]	1167	ALLOCATE(bsfl(klon,klev+1))
[1797]	1168	ALLOCATE(zw2(klon, klev+1))
	1169
	1170	ALLOCATE(fluxu(klon, klev, nbsrf), fluxv(klon, klev, nbsrf))
	1171	ALLOCATE(fluxt(klon, klev, nbsrf))
	1172
	1173	ALLOCATE(uwriteSTD(klon,nlevSTD,nfiles), vwriteSTD(klon,nlevSTD,nfiles))
	1174	ALLOCATE(wwriteSTD(klon,nlevSTD,nfiles), phiwriteSTD(klon,nlevSTD,nfiles))
	1175	ALLOCATE(qwriteSTD(klon,nlevSTD,nfiles), twriteSTD(klon,nlevSTD,nfiles))
[1828]	1176	ALLOCATE(rhwriteSTD(klon,nlevSTD,nfiles))
[1797]	1177
	1178	! ug et d'autres encore:
	1179	ALLOCATE(beta_prec(klon,klev))
[2945]	1180	ALLOCATE(rneb(klon,klev),rnebjn(klon,klev),rneblsvol(klon,klev))
[4530]	1181	ALLOCATE(pfraclr(klon,klev),pfracld(klon,klev))
	1182	pfraclr(:,:)=0. ; pfracld(:,:)=0. ! because not always defined
[5007]	1183	ALLOCATE(cldfraliq(klon,klev))
	1184	ALLOCATE(sigma2_icefracturb(klon,klev))
	1185	ALLOCATE(mean_icefracturb(klon,klev))
[4562]	1186	ALLOCATE(distcltop(klon,klev))
[4639]	1187	ALLOCATE(temp_cltop(klon,klev))
[1797]	1188
[4677]	1189
[1872]	1190	ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon))
	1191	ALLOCATE (sissnow(klon),runoff(klon),albsol3_lic(klon))
[5056]	1192	#ifdef ISO
	1193	ALLOCATE (zxxtsnow(niso,klon))
	1194	ALLOCATE(xtVprecip(ntraciso,klon, klev+1),xtVprecipi(ntraciso,klon, klev+1))
	1195	ALLOCATE(pxtsfl(ntraciso,klon, klev+1),pxtrfl(ntraciso,klon, klev+1))
	1196	#endif
[1865]	1197
[2992]	1198	ALLOCATE (p_tropopause(klon))
	1199	ALLOCATE (z_tropopause(klon))
	1200	ALLOCATE (t_tropopause(klon))
	1201
[3817]	1202	ALLOCATE(zn2mout(klon,6))
	1203
[5204]	1204	!-- LSCP - condensation and ice supersaturation variables
	1205	ALLOCATE(qsub(klon,klev), qissr(klon,klev), qcld(klon,klev))
	1206	ALLOCATE(subfra(klon,klev), issrfra(klon,klev))
[5396]	1207	ALLOCATE(gamma_cond(klon,klev), ql_seri_lscp(klon,klev), ratio_ql_qtot(klon,klev))
	1208	ALLOCATE(qi_seri_lscp(klon,klev), ratio_qi_qtot(klon,klev))
[5204]	1209	ALLOCATE(dcf_sub(klon,klev), dcf_con(klon,klev), dcf_mix(klon,klev))
	1210	ALLOCATE(dqi_adj(klon,klev), dqi_sub(klon,klev), dqi_con(klon,klev), dqi_mix(klon,klev))
	1211	ALLOCATE(dqvc_adj(klon,klev), dqvc_sub(klon,klev), dqvc_con(klon,klev), dqvc_mix(klon,klev))
	1212	ALLOCATE(qsatliq(klon,klev), qsatice(klon,klev))
[4059]	1213
[5204]	1214	!-- LSCP - aviation and contrails variables
	1215	ALLOCATE(Tcontr(klon,klev), qcontr(klon,klev), qcontr2(klon,klev))
	1216	ALLOCATE(fcontrN(klon,klev), fcontrP(klon,klev))
	1217	ALLOCATE(dcf_avi(klon,klev), dqi_avi(klon,klev), dqvc_avi(klon,klev))
	1218	ALLOCATE(flight_dist(klon,klev), flight_h2o(klon,klev))
	1219
	1220	!-- LSCP - POPRECIP variables
[4830]	1221	ALLOCATE(qraindiag(klon,klev), qsnowdiag(klon,klev))
[4819]	1222	ALLOCATE(dqreva(klon,klev), dqssub(klon,klev))
[4803]	1223	ALLOCATE(dqrauto(klon,klev), dqrcol(klon,klev), dqrmelt(klon,klev), dqrfreez(klon,klev))
	1224	ALLOCATE(dqsauto(klon,klev), dqsagg(klon,klev), dqsrim(klon,klev), dqsmelt(klon,klev), dqsfreez(klon,klev))
	1225
[5252]	1226	IF (CPPKEY_STRATAER) THEN
[4601]	1227	ALLOCATE (d_q_emiss(klon,klev))
[2690]	1228	ALLOCATE (R2SO4(klon,klev))
[4950]	1229	ALLOCATE (R2SO4B(klon,klev,nbtr_bin))
[2690]	1230	ALLOCATE (DENSO4(klon,klev))
[4950]	1231	ALLOCATE (DENSO4B(klon,klev,nbtr_bin))
[2690]	1232	ALLOCATE (f_r_wet(klon,klev))
[4950]	1233	ALLOCATE (f_r_wetB(klon,klev,nbtr_bin))
[2690]	1234	ALLOCATE (decfluxaer(klon,nbtr))
	1235	ALLOCATE (mdw(nbtr))
[2752]	1236	ALLOCATE (budg_3D_nucl(klon,klev))
	1237	ALLOCATE (budg_3D_cond_evap(klon,klev))
	1238	ALLOCATE (budg_3D_ocs_to_so2(klon,klev))
	1239	ALLOCATE (budg_3D_so2_to_h2so4(klon,klev))
	1240	ALLOCATE (budg_3D_backgr_ocs(klon,klev))
	1241	ALLOCATE (budg_3D_backgr_so2(klon,klev))
[2690]	1242	ALLOCATE (OCS_lifetime(klon,klev))
	1243	ALLOCATE (SO2_lifetime(klon,klev))
[4601]	1244	ALLOCATE (H2SO4_lifetime(klon,klev))
	1245	ALLOCATE (O3_clim(klon,klev))
[3662]	1246	ALLOCATE (alpha_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
	1247	ALLOCATE (piz_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
	1248	ALLOCATE (cg_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
[2690]	1249	ALLOCATE (tau_strat_550(klon,klev))
	1250	ALLOCATE (tau_strat_1020(klon,klev))
	1251	ALLOCATE (tausum_strat(klon,3))
[3100]	1252	ALLOCATE (budg_dep_dry_ocs(klon))
	1253	ALLOCATE (budg_dep_wet_ocs(klon))
	1254	ALLOCATE (budg_dep_dry_so2(klon))
	1255	ALLOCATE (budg_dep_wet_so2(klon))
[2752]	1256	ALLOCATE (budg_dep_dry_h2so4(klon))
	1257	ALLOCATE (budg_dep_wet_h2so4(klon))
	1258	ALLOCATE (budg_dep_dry_part(klon))
	1259	ALLOCATE (budg_dep_wet_part(klon))
	1260	ALLOCATE (budg_emi_ocs(klon))
	1261	ALLOCATE (budg_emi_so2(klon))
	1262	ALLOCATE (budg_emi_h2so4(klon))
	1263	ALLOCATE (budg_emi_part(klon))
	1264	ALLOCATE (budg_ocs_to_so2(klon))
	1265	ALLOCATE (budg_so2_to_h2so4(klon))
	1266	ALLOCATE (budg_h2so4_to_part(klon))
	1267	ALLOCATE (budg_sed_part(klon))
[2690]	1268	ALLOCATE (surf_PM25_sulf(klon))
	1269	ALLOCATE (vsed_aer(klon,klev))
[4998]	1270	ALLOCATE (sulfmmr(klon,klev))
	1271	ALLOCATE (SAD_sulfate(klon,klev))
[5150]	1272	ALLOCATE (reff_sulfate(klon,klev))
[4998]	1273	ALLOCATE (sulfmmr_mode(klon,klev,nbtr_bin))
	1274	ALLOCATE (nd_mode(klon,klev,nbtr_bin))
[5252]	1275	END IF
[1865]	1276
[904]	1277	END SUBROUTINE phys_local_var_init
	1278
	1279	!======================================================================
	1280	SUBROUTINE phys_local_var_end
[1785]	1281	USE dimphy
	1282	USE indice_sol_mod
[904]	1283	IMPLICIT NONE
[4523]	1284	DEALLOCATE(t_seri,q_seri,ql_seri,qs_seri, qbs_seri)
[5056]	1285	! SN 4D ISO
	1286	DEALLOCATE(qx_seri)
	1287	! SN
[2854]	1288	DEALLOCATE(u_seri,v_seri)
[5204]	1289	DEALLOCATE(cf_seri,rvc_seri)
[4881]	1290	DEALLOCATE(l_mixmin,l_mix,wprime)
[5039]	1291	DEALLOCATE(tke_shear,tke_buoy,tke_trans)
[4881]	1292	DEALLOCATE(pbl_eps)
[4489]	1293	DEALLOCATE(rhcl)
[2854]	1294	DEALLOCATE(tr_seri)
	1295	DEALLOCATE(d_t_dyn,d_q_dyn)
[4523]	1296	DEALLOCATE(d_ql_dyn,d_qs_dyn, d_qbs_dyn)
	1297	DEALLOCATE(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d, d_qbs_dyn2d)
[2854]	1298	DEALLOCATE(d_u_dyn,d_v_dyn)
[5204]	1299	DEALLOCATE(d_cf_dyn,d_rvc_dyn)
[2854]	1300	DEALLOCATE(d_tr_dyn) !RomP
[4742]	1301	DEALLOCATE(d_t_con,d_q_con,d_q_con_zmasse)
[2854]	1302	DEALLOCATE(d_u_con,d_v_con)
	1303	DEALLOCATE(d_t_wake,d_q_wake)
	1304	DEALLOCATE(d_t_lsc,d_q_lsc)
	1305	DEALLOCATE(d_t_lwr,d_t_lw0)
	1306	DEALLOCATE(d_t_swr,d_t_sw0)
	1307	DEALLOCATE(d_ql_lsc,d_qi_lsc)
	1308	DEALLOCATE(d_t_ajsb,d_q_ajsb)
	1309	DEALLOCATE(d_t_ajs,d_q_ajs)
[2159]	1310	!nrlmd<
[2854]	1311	DEALLOCATE(d_t_ajs_w,d_q_ajs_w)
	1312	DEALLOCATE(d_t_ajs_x,d_q_ajs_x)
[2159]	1313	!>nrlmd
[2854]	1314	DEALLOCATE(d_u_ajs,d_v_ajs)
	1315	DEALLOCATE(d_t_eva,d_q_eva)
[5056]	1316	! SN 4D ISO
	1317	DEALLOCATE(d_qx_eva)
	1318	! SN
[2854]	1319	DEALLOCATE(d_ql_eva,d_qi_eva)
	1320	DEALLOCATE(d_t_lscst,d_q_lscst)
	1321	DEALLOCATE(d_t_lscth,d_q_lscth)
	1322	DEALLOCATE(plul_st,plul_th)
	1323	DEALLOCATE(d_t_vdf,d_q_vdf,d_t_diss)
[4523]	1324	DEALLOCATE(d_qbs_vdf)
[5050]	1325	DEALLOCATE(d_t_bsss,d_q_bsss,d_qbs_bsss)
[5056]	1326	#ifdef ISO
	1327	deallocate(xt_seri,xtl_seri,xts_seri,xtbs_seri)
	1328	DEALLOCATE(d_xtl_eva,d_xti_eva)
	1329	deallocate(d_xt_dyn,d_xtl_dyn,d_xts_dyn,d_xtbs_dyn)
	1330	deallocate(d_xt_con)
	1331	deallocate(d_xt_wake)
	1332	deallocate(d_xt_lsc)
	1333	deallocate(d_xtl_lsc,d_xti_lsc)
	1334	deallocate(d_xt_ajsb)
	1335	deallocate(d_xt_ajs)
	1336	deallocate(d_xt_ajs_w,d_xt_ajs_x)
	1337	deallocate(d_xt_eva)
	1338	deallocate(d_xtl_eva)
	1339	deallocate(d_xti_eva)
	1340	deallocate(d_xt_vdf)
	1341	deallocate(d_xt_vdf_w,d_xt_vdf_x)
	1342	deallocate(d_xt_ch4)
	1343	deallocate(d_xt_prod_nucl)
	1344	deallocate(d_xt_cosmo)
	1345	deallocate(d_xt_decroiss)
	1346	#endif
	1347
[2854]	1348	DEALLOCATE(d_u_vdf,d_v_vdf)
	1349	DEALLOCATE(d_t_oli,d_t_oro)
	1350	DEALLOCATE(d_u_oli,d_v_oli)
	1351	DEALLOCATE(d_u_oro,d_v_oro)
[2897]	1352	DEALLOCATE(d_t_oro_gw)
	1353	DEALLOCATE(d_u_oro_gw,d_v_oro_gw)
[2854]	1354	DEALLOCATE(d_t_lif,d_t_ec)
	1355	DEALLOCATE(d_u_lif,d_v_lif)
	1356	DEALLOCATE(d_ts, d_tr)
	1357	DEALLOCATE(topswad_aero,solswad_aero)
	1358	DEALLOCATE(topswai_aero,solswai_aero)
	1359	DEALLOCATE(topswad0_aero,solswad0_aero)
	1360	DEALLOCATE(toplwad_aero,sollwad_aero)
	1361	DEALLOCATE(toplwai_aero,sollwai_aero)
	1362	DEALLOCATE(toplwad0_aero,sollwad0_aero)
	1363	DEALLOCATE(topsw_aero,solsw_aero)
	1364	DEALLOCATE(topsw0_aero,solsw0_aero)
	1365	DEALLOCATE(topswcf_aero,solswcf_aero)
	1366	DEALLOCATE(stratomask)
	1367	DEALLOCATE(tausum_aero)
	1368	DEALLOCATE(drytausum_aero)
	1369	DEALLOCATE(tau3d_aero)
[3274]	1370	DEALLOCATE(dNovrN)
[3124]	1371	DEALLOCATE(zfice)
[2854]	1372	DEALLOCATE(od443aer)
	1373	DEALLOCATE(od550aer)
	1374	DEALLOCATE(od865aer)
	1375	DEALLOCATE(dryod550aer)
	1376	DEALLOCATE(abs550aer)
	1377	DEALLOCATE(ec550aer)
	1378	DEALLOCATE(od550lt1aer)
	1379	DEALLOCATE(sconcso4)
	1380	DEALLOCATE(sconcno3)
	1381	DEALLOCATE(sconcoa)
	1382	DEALLOCATE(sconcbc)
	1383	DEALLOCATE(sconcss)
	1384	DEALLOCATE(sconcdust)
	1385	DEALLOCATE(concso4)
	1386	DEALLOCATE(concno3)
	1387	DEALLOCATE(concoa)
	1388	DEALLOCATE(concbc)
	1389	DEALLOCATE(concss)
	1390	DEALLOCATE(concdust)
	1391	DEALLOCATE(loadso4)
	1392	DEALLOCATE(loadoa)
	1393	DEALLOCATE(loadbc)
	1394	DEALLOCATE(loadss)
	1395	DEALLOCATE(loaddust)
	1396	DEALLOCATE(loadno3)
	1397	DEALLOCATE(load_tmp1)
	1398	DEALLOCATE(load_tmp2)
	1399	DEALLOCATE(load_tmp3)
[2953]	1400	DEALLOCATE(load_tmp4)
	1401	DEALLOCATE(load_tmp5)
	1402	DEALLOCATE(load_tmp6)
	1403	DEALLOCATE(load_tmp7)
	1404	DEALLOCATE(load_tmp8)
	1405	DEALLOCATE(load_tmp9)
	1406	DEALLOCATE(load_tmp10)
[2854]	1407	DEALLOCATE(du_gwd_hines,dv_gwd_hines,d_t_hin)
	1408	DEALLOCATE(d_q_ch4)
	1409	DEALLOCATE(dv_gwd_rando,dv_gwd_front)
	1410	DEALLOCATE(east_gwstress,west_gwstress)
[1279]	1411
[1539]	1412	!IM ajout variables CFMIP2/CMIP5
[2854]	1413	DEALLOCATE(topswad_aerop, solswad_aerop)
	1414	DEALLOCATE(topswai_aerop, solswai_aerop)
	1415	DEALLOCATE(topswad0_aerop, solswad0_aerop)
	1416	DEALLOCATE(topsw_aerop, topsw0_aerop)
	1417	DEALLOCATE(solsw_aerop, solsw0_aerop)
	1418	DEALLOCATE(topswcf_aerop, solswcf_aerop)
[2146]	1419	!CK LW diagnostics
[2854]	1420	DEALLOCATE(toplwad_aerop, sollwad_aerop)
	1421	DEALLOCATE(toplwai_aerop, sollwai_aerop)
	1422	DEALLOCATE(toplwad0_aerop, sollwad0_aerop)
[1797]	1423
[4677]	1424	!AI Ajout pour Ecrad (3Deffect)
	1425	DEALLOCATE(topswad_aero_s2, solswad_aero_s2)
	1426	DEALLOCATE(topswai_aero_s2, solswai_aero_s2)
	1427	DEALLOCATE(topswad0_aero_s2, solswad0_aero_s2)
	1428	DEALLOCATE(topsw_aero_s2, topsw0_aero_s2)
	1429	DEALLOCATE(solsw_aero_s2, solsw0_aero_s2)
	1430	DEALLOCATE(topswcf_aero_s2, solswcf_aero_s2)
	1431	!CK LW diagnostics
	1432	DEALLOCATE(toplwad_aero_s2, sollwad_aero_s2)
	1433	DEALLOCATE(toplwai_aero_s2, sollwai_aero_s2)
	1434	DEALLOCATE(toplwad0_aero_s2, sollwad0_aero_s2)
	1435
[3435]	1436	! FH Ajout de celles necessaires au phys_output_write_mod
[2385]	1437	DEALLOCATE(tal1, pal1, pab1, pab2)
	1438	DEALLOCATE(ptstar, pt0, slp)
[2635]	1439	!
[3080]	1440	DEALLOCATE(alp_wake)
[2732]	1441	DEALLOCATE(wake_h,wake_k)
[2635]	1442	DEALLOCATE(wake_omg)
	1443	DEALLOCATE(d_deltat_wk, d_deltaq_wk)
[4744]	1444	DEALLOCATE(d_s_wk, d_s_a_wk, d_dens_wk, d_dens_a_wk)
[2635]	1445	DEALLOCATE(d_deltat_wk_gw, d_deltaq_wk_gw)
	1446	DEALLOCATE(d_deltat_vdf, d_deltaq_vdf)
	1447	!! DEALLOCATE( d_s_vdf, d_dens_vdf)
	1448	DEALLOCATE(d_deltat_the, d_deltaq_the)
	1449	!! DEALLOCATE( d_s_the, d_dens_the)
	1450	DEALLOCATE(d_deltat_ajs_cv, d_deltaq_ajs_cv)
[5056]	1451	#ifdef ISO
	1452	DEALLOCATE(d_deltaxt_wk)
	1453	DEALLOCATE(d_deltaxt_wk_gw)
	1454	DEALLOCATE(d_deltaxt_ajs_cv)
	1455	DEALLOCATE(d_deltaxt_vdf)
	1456	#endif
[2635]	1457	!
	1458	DEALLOCATE(bils)
[1797]	1459	DEALLOCATE(cdragm, cdragh, cldh, cldl)
[2243]	1460	DEALLOCATE(cldm, cldq, cldt, qsat2m)
[3779]	1461	DEALLOCATE(JrNt)
[4523]	1462	DEALLOCATE(dthmin, evap, snowerosion, fder, plcl, plfc)
[4887]	1463	DEALLOCATE(prw, prlw, prsw, prbsw, water_budget, zustar, zu10m, zv10m, rh2m, s_lcl)
[1797]	1464	DEALLOCATE(s_pblh, s_pblt, s_therm)
[2159]	1465	!
	1466	!nrlmd+jyg<
	1467	DEALLOCATE(s_pblh_x, s_pblh_w)
	1468	DEALLOCATE(s_lcl_x, s_lcl_w)
	1469	!>nrlmd+jyg
	1470	!
[1797]	1471	DEALLOCATE(slab_wfbils, tpot, tpote, ue)
	1472	DEALLOCATE(uq, ve, vq, zxffonte)
[3257]	1473	DEALLOCATE(uwat, vwat)
[2243]	1474	DEALLOCATE(zxfqcalving, zxfluxlat)
[5109]	1475	! SN runoff_diag
	1476	DEALLOCATE(zxrunofflic, runoff_diag)
[5188]	1477	DEALLOCATE(zxustartlic, zxrhoslic, zxqsaltlic, tempsmoothlic)
[1797]	1478	DEALLOCATE(zxtsol, snow_lsc, zxfqfonte, zxqsurf)
[2159]	1479	DEALLOCATE(rain_lsc)
[2516]	1480	DEALLOCATE(rain_num)
[4118]	1481	DEALLOCATE(qlth, qith, qsith, wiceth)
[2159]	1482	!
	1483	DEALLOCATE(sens_x, sens_w)
	1484	DEALLOCATE(zxfluxlat_x, zxfluxlat_w)
[3888]	1485	DEALLOCATE(delta_qsurf)
[2181]	1486	!jyg<
	1487	!! DEALLOCATE(t_x, t_w)
	1488	!! DEALLOCATE(q_x, q_w)
	1489	!>jyg
[3179]	1490	DEALLOCATE(d_t_vdf_x, d_t_vdf_w)
	1491	DEALLOCATE(d_q_vdf_x, d_q_vdf_w)
[2159]	1492	DEALLOCATE(pbl_tke_input)
[2607]	1493	DEALLOCATE(t_therm, q_therm, u_therm, v_therm)
[2159]	1494	DEALLOCATE(cdragh_x, cdragh_w)
	1495	DEALLOCATE(cdragm_x, cdragm_w)
	1496	DEALLOCATE(kh, kh_x, kh_w)
[5056]	1497	#ifdef ISO
	1498	DEALLOCATE(xtevap,xtprw)
	1499	DEALLOCATE(zxfxtcalving)
	1500	DEALLOCATE(zxxtrunofflic)
	1501	DEALLOCATE(xtsnow_lsc, zxfxtfonte)
	1502	DEALLOCATE(xtrain_lsc)
	1503	DEALLOCATE(dxtvdf_x, dxtvdf_w)
	1504	DEALLOCATE(xt_therm)
[5109]	1505	DEALLOCATE(h1_diag,xtrunoff_diag)
[5056]	1506	#endif
[2159]	1507	!
[2877]	1508	DEALLOCATE(ptconv)
[3148]	1509	DEALLOCATE(ratqsc)
[2877]	1510	!
[2824]	1511	DEALLOCATE(wbeff, convoccur, zmax_th)
[1797]	1512	DEALLOCATE(zq2m, zt2m, weak_inversion)
[2103]	1513	DEALLOCATE(zt2m_min_mon, zt2m_max_mon)
	1514	DEALLOCATE(t2m_min_mon, t2m_max_mon)
[1797]	1515	DEALLOCATE(sens, flwp, fiwp)
[3080]	1516	DEALLOCATE(alp_bl_conv,alp_bl_det)
[1797]	1517	DEALLOCATE(alp_bl_fluct_m,alp_bl_fluct_tke)
[4843]	1518	DEALLOCATE(alp_bl_stat, n2, s2, strig, zcong, zlcl_th)
[1797]	1519	DEALLOCATE(proba_notrig, random_notrig)
[4575]	1520	!FC
	1521	DEALLOCATE(zxfluxq,zxfluxt)
[1797]	1522
[3134]	1523	DEALLOCATE(dnwd0)
[1797]	1524	! DEALLOCATE(upwd, omega, coefh)
[3134]	1525	DEALLOCATE(omega)
[2481]	1526	DEALLOCATE(epmax_diag)
[1797]	1527	! DEALLOCATE(coefm, lambda_th, cldemi)
	1528	DEALLOCATE(lambda_th, cldemi)
	1529	DEALLOCATE(cldfra, cldtau, fiwc)
	1530	DEALLOCATE(fl, re, flwc)
	1531	DEALLOCATE(ref_liq, ref_ice, theta)
[1989]	1532	DEALLOCATE(ref_liq_pi, ref_ice_pi)
[3780]	1533	DEALLOCATE(zphi, zx_rh, zx_rhl, zx_rhi)
[1797]	1534	DEALLOCATE(pmfd, pmfu)
	1535
[2243]	1536	DEALLOCATE(t2m, fluxlat)
	1537	DEALLOCATE(fsollw, evap_pot)
[4737]	1538	DEALLOCATE(fsolsw, wfbils)
	1539	DEALLOCATE(wfevap)
[1797]	1540
[3134]	1541	DEALLOCATE(pmflxr, pmflxs)
[5425]	1542	DEALLOCATE(wdtrainA, wdtrainS, wdtrainM, wdtrainAS)
[3134]	1543	DEALLOCATE(upwd, dnwd)
	1544	DEALLOCATE(ep)
[4737]	1545	DEALLOCATE(da, mp)
	1546	DEALLOCATE(phi)
	1547	DEALLOCATE(wght_cvfd)
	1548	DEALLOCATE(phi2)
[3134]	1549	DEALLOCATE(d1a, dam)
[4737]	1550	DEALLOCATE(ev)
	1551	DEALLOCATE(elij)
	1552	DEALLOCATE(qtaa)
	1553	DEALLOCATE(clw)
	1554	DEALLOCATE(epmlmMm, eplaMm)
	1555	DEALLOCATE(sij)
[5056]	1556	#ifdef ISO
	1557	DEALLOCATE(xtwdtrainA)
	1558	DEALLOCATE(xttaa )
	1559	DEALLOCATE(xtclw )
	1560	DEALLOCATE(xtev )
	1561	#ifdef DIAGISO
	1562	DEALLOCATE(qlp)
	1563	DEALLOCATE(qvp)
	1564	DEALLOCATE(fq_detrainement)
	1565	DEALLOCATE(fq_ddft)
	1566	DEALLOCATE(fq_fluxmasse)
	1567	DEALLOCATE(fq_evapprecip)
	1568	DEALLOCATE(f_detrainement,q_detrainement)
	1569	DEALLOCATE(xtlp)
	1570	DEALLOCATE(xtvp)
	1571	DEALLOCATE(q_the,xt_the)
	1572	DEALLOCATE(fxt_detrainement)
	1573	DEALLOCATE(fxt_ddft)
	1574	DEALLOCATE(fxt_fluxmasse)
	1575	DEALLOCATE(fxt_evapprecip)
	1576	DEALLOCATE(xt_detrainement)
	1577	#endif
	1578	#endif
[3134]	1579
	1580
[4523]	1581	DEALLOCATE(prfl, psfl, bsfl, fraca, Vprecip)
[1797]	1582	DEALLOCATE(zw2)
	1583
	1584	DEALLOCATE(fluxu, fluxv)
	1585	DEALLOCATE(fluxt)
	1586
	1587	DEALLOCATE(uwriteSTD, vwriteSTD)
	1588	DEALLOCATE(wwriteSTD, phiwriteSTD)
[1828]	1589	DEALLOCATE(qwriteSTD, twriteSTD, rhwriteSTD)
[1797]	1590
	1591	! ug et d'autres encore:
	1592	DEALLOCATE(beta_prec)
	1593	DEALLOCATE(rneb)
[4530]	1594	DEALLOCATE(pfraclr,pfracld)
[5007]	1595	DEALLOCATE(cldfraliq)
	1596	DEALLOCATE(sigma2_icefracturb)
	1597	DEALLOCATE(mean_icefracturb)
[1865]	1598	DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
[4562]	1599	DEALLOCATE(distcltop)
[4639]	1600	DEALLOCATE(temp_cltop)
[5056]	1601	#ifdef ISO
	1602	DEALLOCATE (zxxtsnow,xtVprecip,xtVprecipi,pxtrfl,pxtsfl)
	1603	#endif
	1604
[2992]	1605	DEALLOCATE (p_tropopause)
	1606	DEALLOCATE (z_tropopause)
	1607	DEALLOCATE (t_tropopause)
[3817]	1608	DEALLOCATE(zn2mout)
[2992]	1609
[5204]	1610	!-- LSCP - condensation and ice supersaturation variables
	1611	DEALLOCATE(qsub, qissr, qcld)
	1612	DEALLOCATE(subfra, issrfra)
[5396]	1613	DEALLOCATE(gamma_cond, ql_seri_lscp, ratio_ql_qtot, qi_seri_lscp, ratio_qi_qtot)
[5204]	1614	DEALLOCATE(dcf_sub, dcf_con, dcf_mix)
	1615	DEALLOCATE(dqi_adj, dqi_sub, dqi_con, dqi_mix)
	1616	DEALLOCATE(dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix)
	1617	DEALLOCATE(qsatliq, qsatice)
[4059]	1618
[5204]	1619	!-- LSCP - aviation and contrails variables
	1620	DEALLOCATE(Tcontr, qcontr, qcontr2)
	1621	DEALLOCATE(fcontrN, fcontrP)
	1622	DEALLOCATE(dcf_avi, dqi_avi, dqvc_avi)
	1623	DEALLOCATE(flight_dist, flight_h2o)
	1624
	1625	!-- LSCP - POPRECIP variables
[4830]	1626	DEALLOCATE(qraindiag, qsnowdiag)
[4819]	1627	DEALLOCATE(dqreva, dqssub)
	1628	DEALLOCATE(dqrauto, dqrcol, dqrmelt, dqrfreez)
	1629	DEALLOCATE(dqsauto, dqsagg, dqsrim, dqsmelt, dqsfreez)
[4803]	1630
[5252]	1631	IF (CPPKEY_STRATAER) THEN
[2690]	1632	! variables for strat. aerosol CK
[4601]	1633	DEALLOCATE (d_q_emiss)
[4950]	1634	DEALLOCATE (R2SO4, R2SO4B)
	1635	DEALLOCATE (DENSO4, DENSO4B)
	1636	DEALLOCATE (f_r_wet, f_r_wetB)
[2690]	1637	DEALLOCATE (decfluxaer)
	1638	DEALLOCATE (mdw)
	1639	DEALLOCATE (SO2_lifetime)
	1640	DEALLOCATE (OCS_lifetime)
[4601]	1641	DEALLOCATE (H2SO4_lifetime)
	1642	DEALLOCATE (O3_clim)
[2690]	1643	DEALLOCATE (alpha_bin)
	1644	DEALLOCATE (piz_bin)
	1645	DEALLOCATE (cg_bin)
	1646	DEALLOCATE (tau_strat_550)
	1647	DEALLOCATE (tau_strat_1020)
	1648	DEALLOCATE (tausum_strat)
	1649	DEALLOCATE (surf_PM25_sulf)
	1650	DEALLOCATE (vsed_aer)
[4998]	1651	DEALLOCATE (sulfmmr)
	1652	DEALLOCATE (SAD_sulfate)
[5150]	1653	DEALLOCATE (reff_sulfate)
[4998]	1654	DEALLOCATE (sulfmmr_mode)
	1655	DEALLOCATE (nd_mode)
[2752]	1656	DEALLOCATE (budg_3D_ocs_to_so2)
	1657	DEALLOCATE (budg_3D_so2_to_h2so4)
	1658	DEALLOCATE (budg_3D_backgr_ocs)
	1659	DEALLOCATE (budg_3D_backgr_so2)
	1660	DEALLOCATE (budg_3D_nucl)
	1661	DEALLOCATE (budg_3D_cond_evap)
[3100]	1662	DEALLOCATE (budg_dep_dry_ocs)
	1663	DEALLOCATE (budg_dep_wet_ocs)
	1664	DEALLOCATE (budg_dep_dry_so2)
	1665	DEALLOCATE (budg_dep_wet_so2)
[2752]	1666	DEALLOCATE (budg_dep_dry_h2so4)
	1667	DEALLOCATE (budg_dep_wet_h2so4)
	1668	DEALLOCATE (budg_dep_dry_part)
	1669	DEALLOCATE (budg_dep_wet_part)
	1670	DEALLOCATE (budg_emi_ocs)
	1671	DEALLOCATE (budg_emi_so2)
	1672	DEALLOCATE (budg_emi_h2so4)
	1673	DEALLOCATE (budg_emi_part)
	1674	DEALLOCATE (budg_ocs_to_so2)
	1675	DEALLOCATE (budg_so2_to_h2so4)
	1676	DEALLOCATE (budg_h2so4_to_part)
	1677	DEALLOCATE (budg_sed_part)
[5252]	1678	END IF
[2690]	1679
[904]	1680	END SUBROUTINE phys_local_var_end
	1681
[2898]	1682	END MODULE phys_local_var_mod

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

Download in other formats:

Original Format