Context Navigation

source: LMDZ4/trunk/libf/phylmd/ini_histmth.h @ 1136

Last change on this file since 1136 was 905, checked in by Laurent Fairhead, 17 years ago
Comme quoi faut faire gaffe quand on veut reintegrer des vieilles modifs MAFO LF
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 76.3 KB

Rev	Line
[644]	1	c
	2	c $Header$
	3	c
[524]	4	IF (ok_mensuel) THEN
[766]	5	c$OMP MASTER
[524]	6	c
[644]	7	zstophy = dtime
[684]	8	zstomth = ecrit_mth !valeurs mensuelles "instantannees"
[644]	9	zstorad = dtime * FLOAT(radpas) !variables stockees toutes les 2h
[684]	10	zstohf = ecrit_hf !variables stockees toutes les 6h
	11	zout = ecrit_mth !frequence des sorties : 1 val. par mois
[524]	12	c
	13	idayref = day_ref
	14	CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
	15	c
[766]	16	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
	17	cym DO i = 1, iim
	18	cym zx_lon(i,1) = rlon(i+1)
	19	cym zx_lon(i,jjmp1) = rlon(i+1)
	20	cym ENDDO
[524]	21	DO ll=1,klev
	22	znivsig(ll)=float(ll)
	23	ENDDO
[766]	24	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
	25	cym CALL histbeg("histmth.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
	26	cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
	27	cym . nhori, nid_mth)
	28
	29	CALL histbeg_phy("histmth",itau_phy, zjulian, dtime,
[524]	30	. nhori, nid_mth)
[766]	31
	32	write(,)'Mensuel ', itau_phy, zjulian
[524]	33	CALL histvert(nid_mth, "presnivs", "Vertical levels", "mb",
[644]	34	. klev, presnivs/100., nvert)
[524]	35	c
[895]	36	! CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s",
	37	! . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	38	! . "ave(X)", zstophy,zout)
	39	!
	40	! CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
	41	! . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	42	! . "ave(X)", zstophy,zout)
[879]	43	c
[644]	44	IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN
[524]	45	c
	46	IF(lev_histmth.GE.1) THEN
[644]	47	c
	48	CALL histdef(nid_mth, "phis",
	49	. "Surface geop. height", "m2/s2",
[776]	50	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	51	. "once", zstophy,zout)
[524]	52	c
	53	CALL histdef(nid_mth, "aire", "Grid area", "-",
[776]	54	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	55	. "once", zstophy,zout)
[524]	56	c
[644]	57	CALL histdef(nid_mth, "pourc_"//clnsurf(is_ter),
	58	. "% "//clnsurf(is_ter), "%",
[776]	59	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	60	. "once", zstophy,zout)
[524]	61	c
[644]	62	CALL histdef(nid_mth, "fract_"//clnsurf(is_ter),
	63	. "Fraction "//clnsurf(is_ter), "1",
[776]	64	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	65	. "once", zstophy,zout)
	66	c
[524]	67	c Champs 2D:
	68	c
	69	CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa",
[776]	70	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	71	. "ave(X)", zstophy,zout)
[524]	72	c
	73	CALL histdef(nid_mth, "tsol", "Surface Temperature", "K",
[776]	74	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	75	. "ave(X)", zstophy,zout)
[524]	76	c
	77	CALL histdef(nid_mth, "t2m", "Temperature 2m", "K",
[776]	78	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	79	. "ave(X)", zstophy,zout)
	80	c
[524]	81	c ENSEMBLES BEG
[879]	82	c CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
	83	c . "K",
	84	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
	85	c . t2mincels, zstophy,zout)
[524]	86	c
[879]	87	c CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
	88	c . "K",
	89	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
	90	c . t2maxcels, zstophy,zout)
[524]	91	c
	92	c CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",
	93	c . "K",
[776]	94	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	95	c . "ave(X)", zstophy,zout)
[524]	96	c
	97	CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s",
[776]	98	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	99	. "ave(X)", zstophy,zout)
[524]	100	c
	101	CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
[776]	102	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	103	. "ave(X)", zstophy,zout)
[524]	104	c
	105	c ENSEMBLES END
	106	CALL histdef(nid_mth, "q2m", "Specific humidity 2m", "kg/kg",
[776]	107	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	108	. "ave(X)", zstophy,zout)
[524]	109	c
	110	CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s",
[776]	111	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	112	. "ave(X)", zstophy,zout)
[524]	113	c
	114	CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s",
[776]	115	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	116	. "ave(X)", zstophy,zout)
[524]	117	c
	118	CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa",
[776]	119	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	120	. "ave(X)", zstophy,zout)
[524]	121	c
	122	CALL histdef(nid_mth, "qsurf", "Surface Air humidity", "kg/kg",
[776]	123	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	124	. "ave(X)", zstophy,zout)
[524]	125	c
	126	if (.not. ok_veget) then
	127	CALL histdef(nid_mth, "qsol", "Soil watter content", "mm",
[776]	128	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	129	. "ave(X)", zstophy,zout)
[524]	130	endif
	131	c
[879]	132	c CALL histdef(nid_mth, "ndayrain",
	133	c . "Number of day with rain (liq+sol)", "-",
	134	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
	135	c . "inst(X)", zstomth,zout)
[524]	136	c
	137	CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol",
	138	. "kg/(s*m2)",
[776]	139	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	140	. "ave(X)", zstophy,zout)
[524]	141	c
	142	CALL histdef(nid_mth, "plul", "Large-scale Precip.",
	143	. "kg/(s*m2)",
[776]	144	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	145	. "ave(X)", zstophy,zout)
[524]	146	c
	147	CALL histdef(nid_mth, "pluc", "Convective Precip.",
	148	. "kg/(s*m2)",
[776]	149	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	150	. "ave(X)", zstophy,zout)
[524]	151	c
	152	CALL histdef(nid_mth, "snow", "Snow fall", "kg/(s*m2)",
[776]	153	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	154	. "ave(X)", zstophy,zout)
[524]	155	c
[644]	156	c CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2",
[776]	157	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	158	c . "ave(X)", zstophy,zout)
[524]	159	c
	160	CALL histdef(nid_mth, "evap", "Evaporation", "kg/(s*m2)",
[776]	161	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	162	. "ave(X)", zstophy,zout)
[524]	163	c
	164	CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2",
[776]	165	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	166	. "ave(X)", zstophy,zout)
[524]	167	c
[644]	168	CALL histdef(nid_mth, "tops0", "CS Solar rad. at TOA", "W/m2",
[776]	169	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	170	. "ave(X)", zstophy,zout)
[524]	171	c
	172	CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2",
[776]	173	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	174	. "ave(X)", zstophy,zout)
[524]	175	c
	176	CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2",
[776]	177	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	178	. "ave(X)", zstophy,zout)
[524]	179	c
	180	CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2",
[776]	181	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	182	. 32, "ave(X)", zstophy,zout)
[524]	183	c
	184	CALL histdef(nid_mth, "SWupTOAclr",
	185	. "SWup clear sky at TOA","W/m2",
[776]	186	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	187	. 32, "ave(X)", zstophy,zout)
[524]	188	c
	189	CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2",
[776]	190	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	191	. 32, "ave(X)", zstophy,zout)
[524]	192	c
	193	CALL histdef(nid_mth, "SWdnTOAclr",
	194	. "SWdn clear sky at TOA","W/m2",
[776]	195	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	196	. 32, "ave(X)", zstophy,zout)
[524]	197	c
[644]	198	CALL histdef(nid_mth, "SWup200", "SWup at 200mb","W/m2",
[776]	199	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	200	. 32, "ave(X)", zstophy,zout)
[524]	201	c
	202	CALL histdef(nid_mth, "SWup200clr",
[644]	203	. "SWup clear sky at 200mb","W/m2",
[776]	204	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	205	. 32, "ave(X)", zstophy,zout)
[524]	206	c
[644]	207	CALL histdef(nid_mth, "SWdn200", "SWdn at 200mb","W/m2",
[776]	208	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	209	. 32, "ave(X)", zstophy,zout)
[524]	210	c
	211	CALL histdef(nid_mth, "SWdn200clr",
[644]	212	. "SWdn clear sky at 200mb","W/m2",
[776]	213	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	214	. 32, "ave(X)", zstophy,zout)
[524]	215	c
[644]	216	CALL histdef(nid_mth, "LWup200", "LWup at 200mb","W/m2",
[776]	217	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	218	. 32, "ave(X)", zstophy,zout)
[524]	219	c
	220	CALL histdef(nid_mth, "LWup200clr",
[644]	221	. "LWup clear sky at 200mb","W/m2",
[776]	222	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	223	. 32, "ave(X)", zstophy,zout)
[524]	224	c
[644]	225	CALL histdef(nid_mth, "LWdn200", "LWdn at 200mb","W/m2",
[776]	226	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	227	. 32, "ave(X)", zstophy,zout)
[524]	228	c
	229	CALL histdef(nid_mth, "LWdn200clr",
[644]	230	. "LWdn clear sky at 200mb","W/m2",
[776]	231	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	232	. 32, "ave(X)", zstophy,zout)
[524]	233	c
	234	CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2",
[776]	235	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	236	. "ave(X)", zstophy,zout)
[524]	237	c
	238	CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2",
[776]	239	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	240	. "ave(X)", zstophy,zout)
[524]	241	c
	242	CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2",
[776]	243	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	244	. "ave(X)", zstophy,zout)
[524]	245	c
[684]	246	CALL histdef(nid_mth, "radsol", "Rayonnement au sol", "W/m2",
[776]	247	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[684]	248	. "ave(X)", zstophy,zout)
	249	c
[524]	250	CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2",
[776]	251	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	252	. "ave(X)", zstophy,zout)
[524]	253	c
	254	CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2",
[776]	255	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	256	. 32, "ave(X)", zstophy,zout)
[524]	257	c
	258	CALL histdef(nid_mth, "SWupSFCclr",
	259	. "SWup clear sky at surface","W/m2",
[776]	260	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	261	. 32, "ave(X)", zstophy,zout)
[524]	262	c
	263	CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2",
[776]	264	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	265	. 32, "ave(X)", zstophy,zout)
[524]	266	c
	267	CALL histdef(nid_mth, "SWdnSFCclr",
	268	. "SWdn clear sky at surface","W/m2",
[776]	269	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	270	. 32, "ave(X)", zstophy,zout)
[524]	271	c
	272	CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface",
[776]	273	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	274	. "ave(X)", zstophy,zout)
[524]	275	c
	276	CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface",
[776]	277	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	278	. "ave(X)", zstophy,zout)
[524]	279	c
	280	CALL histdef(nid_mth,"LWupSFCclr",
	281	. "CS Upwd. IR rad. at surface",
[776]	282	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	283	. "ave(X)", zstophy,zout)
[524]	284	c
	285	CALL histdef(nid_mth,"LWdnSFCclr",
	286	. "Down. CS IR rad. at surface",
[776]	287	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	288	. "ave(X)", zstophy,zout)
[524]	289	c
	290	CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2",
[776]	291	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	292	. "ave(X)", zstophy,zout)
[524]	293	c
	294	CALL histdef(nid_mth, "sens", "Sensible heat flux", "W/m2",
[851]	295	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	296	. "ave(X)", zstophy,zout)
[524]	297	c
	298	CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2",
[776]	299	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	300	. "ave(X)", zstophy,zout)
[524]	301	c
[903]	302	c Effets des aerosols
	303	c
	304	IF (ok_ade.OR.ok_aie) THEN
	305	CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
	306	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	307	. "ave(X)", zstophy,zout)
	308	c
	309	CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
	310	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	311	. "ave(X)", zstophy,zout)
	312	c
	313	CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
	314	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	315	. "ave(X)", zstophy,zout)
	316	c
	317	CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
	318	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	319	. "ave(X)", zstophy,zout)
	320	endif
	321	c
[524]	322	c CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
[776]	323	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	324	c . "ave(X)", zstophy,zout)
[524]	325	c
	326	c CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
[776]	327	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	328	c . "ave(X)", zstophy,zout)
[524]	329	c
	330	CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
[776]	331	. "W/m2",iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	332	. "ave(X)", zstophy,zout)
[524]	333	c
	334	CALL histdef(nid_mth, "fqcalving","Ice Calving",
[776]	335	. "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	336	. "ave(X)", zstophy,zout)
	337	c
[766]	338	CALL histdef(nid_mth, "fqfonte","Land ice melt",
[776]	339	. "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
[851]	340	. "ave(X)", zstophy,zout)
[766]	341
[524]	342	DO nsrf = 1, nbsrf
	343	call histdef(nid_mth, "taux_"//clnsurf(nsrf),
	344	$ "Zonal wind stress"//clnsurf(nsrf), "Pa",
[776]	345	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	346	$ "ave(X)", zstophy,zout)
[524]	347
	348	call histdef(nid_mth, "tauy_"//clnsurf(nsrf),
[644]	349	$ "Meridional wind stress "//clnsurf(nsrf), "Pa",
[776]	350	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	351	$ "ave(X)", zstophy,zout)
[524]	352	ENDDO
	353	c
	354	DO nsrf = 1, nbsrf
	355	C
[890]	356	IF(nsrf.GE.2) THEN
[524]	357	call histdef(nid_mth, "pourc_"//clnsurf(nsrf),
[644]	358	$ "% "//clnsurf(nsrf), "%",
[776]	359	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	360	$ "ave(X)", zstophy,zout)
	361	c
	362	call histdef(nid_mth, "fract_"//clnsurf(nsrf),
	363	$ "Fraction "//clnsurf(nsrf), "1",
[776]	364	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	365	$ "ave(X)", zstophy,zout)
	366	ENDIF !nsrf.GT.2
[524]	367	C
	368	call histdef(nid_mth, "tsol_"//clnsurf(nsrf),
[644]	369	$ "Temperature "//clnsurf(nsrf), "K",
[776]	370	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	371	$ "ave(X)", zstophy,zout)
[524]	372	C
	373	call histdef(nid_mth, "sens_"//clnsurf(nsrf),
	374	$ "Sensible heat flux "//clnsurf(nsrf), "W/m2",
[776]	375	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	376	$ "ave(X)", zstophy,zout)
[524]	377	c
	378	call histdef(nid_mth, "lat_"//clnsurf(nsrf),
	379	$ "Latent heat flux "//clnsurf(nsrf), "W/m2",
[776]	380	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	381	$ "ave(X)", zstophy,zout)
[524]	382	C
	383	call histdef(nid_mth, "flw_"//clnsurf(nsrf),
	384	$ "LW "//clnsurf(nsrf), "W/m2",
[776]	385	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	386	$ "ave(X)", zstophy,zout)
[524]	387	c
	388	call histdef(nid_mth, "fsw_"//clnsurf(nsrf),
	389	$ "SW "//clnsurf(nsrf), "W/m2",
[776]	390	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	391	$ "ave(X)", zstophy,zout)
[524]	392	C
	393	call histdef(nid_mth, "wbils_"//clnsurf(nsrf),
	394	$ "Bilan sol "//clnsurf(nsrf), "W/m2",
[776]	395	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	396	$ "ave(X)", zstophy,zout)
[524]	397	C
[684]	398	call histdef(nid_mth, "wbilo_"//clnsurf(nsrf),
	399	$ "Bilan eau "//clnsurf(nsrf), "kg/(m2*s)",
[776]	400	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[684]	401	$ "ave(X)", zstophy,zout)
	402	C
[644]	403	cIM 250105 BEG
	404	IF(1.EQ.0) THEN
	405	C
	406	call histdef(nid_mth, "evapour_"//clnsurf(nsrf),
	407	$ "Evappourc "//clnsurf(nsrf), "kg/(sm2)",
[776]	408	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	409	$ "ave(X)", zstophy,zout)
	410	C
	411	call histdef(nid_mth, "prepour_"//clnsurf(nsrf),
	412	$ "Precippourc "//clnsurf(nsrf), "kg/(sm2)",
[776]	413	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	414	$ "ave(X)", zstophy,zout)
	415	C
	416	ENDIF !(1.EQ.0) THEN
	417	cIM 250105 END
	418	C
[524]	419	END DO
	420	c
	421	CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-",
[776]	422	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	423	. "ave(X)", zstophy,zout)
[524]	424	c
	425	CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-",
[776]	426	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	427	. "ave(X)", zstophy,zout)
[524]	428	c
	429	CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
[776]	430	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	431	. "ave(X)", zstophy,zout)
[524]	432	c
	433	CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
[776]	434	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	435	. "ave(X)", zstophy,zout)
[524]	436	c
	437	CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
[776]	438	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	439	. "ave(X)", zstophy,zout)
[524]	440	c
	441	CALL histdef(nid_mth, "cldt", "Total cloudiness", "-",
[776]	442	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	443	. "ave(X)", zstophy,zout)
[524]	444	c
	445	CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2",
[776]	446	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	447	. "ave(X)", zstophy,zout)
	448	c
[524]	449	CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2",
[776]	450	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	451	. "ave(X)", zstophy,zout)
[524]	452	c
	453	CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2",
[776]	454	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	455	. "ave(X)", zstophy,zout)
[524]	456	c
	457	CALL histdef(nid_mth, "ue", "Zonal energy transport", "-",
[776]	458	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	459	. "ave(X)", zstophy,zout)
[524]	460	c
	461	CALL histdef(nid_mth, "ve", "Merid energy transport", "-",
[776]	462	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	463	. "ave(X)", zstophy,zout)
[524]	464	c
	465	CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-",
[776]	466	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	467	. "ave(X)", zstophy,zout)
[524]	468	c
	469	CALL histdef(nid_mth, "vq", "Merid humidity transport", "-",
[776]	470	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	471	. "ave(X)", zstophy,zout)
[524]	472	cKE43
	473	IF(iflag_con.GE.3) THEN ! sb
	474	c
	475	CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg",
[776]	476	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	477	. "ave(X)", zstophy,zout)
[524]	478	c
[644]	479	CALL histdef(nid_mth, "pbase", "Cld base pressure", "mb",
[776]	480	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	481	. "ave(X)", zstophy,zout)
[524]	482	c
[644]	483	CALL histdef(nid_mth, "ptop", "Cld top pressure", "mb",
[776]	484	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	485	. "ave(X)", zstophy,zout)
[524]	486	c
	487	CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s",
[776]	488	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	489	. "ave(X)", zstophy,zout)
[524]	490	c
	491	CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
[776]	492	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	493	. "ave(X)", zstophy,zout)
[524]	494	c
[644]	495	ENDIF !iflag_con .GE. 3
[524]	496	c34EK
[644]	497	cIM cf. AM 081204 BEG
	498	c34EK
	499	c HBTM2
	500	CALL histdef(nid_mth, "s_pblh", "Boundary Layer Height", "m",
[776]	501	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	502	. "ave(X)", zstophy,zout)
	503	CALL histdef(nid_mth, "s_pblt", "t at Boundary Layer Height",
	504	. "K",
[776]	505	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	506	. "ave(X)", zstophy,zout)
	507	CALL histdef(nid_mth, "s_lcl", "Condensation level", "m",
[776]	508	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	509	. "ave(X)", zstophy,zout)
	510	CALL histdef(nid_mth, "s_capCL", "Conv avlbl pot ener
	511	. for ABL", "J/m2",
[776]	512	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	513	. "ave(X)", zstophy,zout)
	514	CALL histdef(nid_mth, "s_oliqCL", "Liq Water in BL", "kg/m2",
[776]	515	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	516	. "ave(X)", zstophy,zout)
	517	CALL histdef(nid_mth, "s_cteiCL", "Instability criteria
	518	. (ABL)", "K",
[776]	519	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	520	. "ave(X)", zstophy,zout)
	521	CALL histdef(nid_mth, "s_therm", "Exces du thermique", "K",
[776]	522	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	523	. "ave(X)", zstophy,zout)
	524	CALL histdef(nid_mth, "s_trmb1", "deep_cape(HBTM2)", "J/m2",
[776]	525	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	526	. "ave(X)", zstophy,zout)
	527	CALL histdef(nid_mth, "s_trmb2", "inhibition (HBTM2)", "J/m2",
[776]	528	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	529	. "ave(X)", zstophy,zout)
	530	CALL histdef(nid_mth, "s_trmb3", "Point Omega (HBTM2)", "m",
[776]	531	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	532	. "ave(X)", zstophy,zout)
[524]	533	c
[644]	534	cIM cf. AM 081204 END
	535	c
[524]	536	c Champs interpolles sur des niveaux de pression
[644]	537	DO k=1, nlevSTD
	538	c
	539	c bb=clevSTD(k)
	540	c
	541	c IF(k.GE.2) THEN
	542	IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
	543	IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
	544	c aa=clevSTD(k)
	545	c bb=aa(1:lnblnk1(aa))
	546	c ENDIF
	547	c
	548	IF(bb2.EQ."850".OR.bb2.EQ."700".OR.
	549	$ bb2.EQ."500".OR.bb2.EQ."200") THEN
	550	c
	551	CALL histdef(nid_mth, "u"//bb2,
	552	. "Zonal wind "//bb2//"mb","m/s",
[776]	553	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	554	. "inst(X)", zout,zout)
[524]	555	c
[644]	556	CALL histdef(nid_mth, "v"//bb2,
	557	. "Meridional wind "//bb2//"mb","m/s",
[776]	558	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	559	. "inst(X)", zout,zout)
[524]	560	c
[644]	561	CALL histdef(nid_mth, "w"//bb2,
	562	. "Vertical wind "//bb2//"mb","m/s",
[776]	563	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	564	. "inst(X)", zout,zout)
[524]	565	c
[644]	566	CALL histdef(nid_mth, "phi"//bb2,
	567	. "Geopotential "//bb2//"mb","m",
[776]	568	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	569	. "inst(X)", zout,zout)
[524]	570	c
[644]	571	ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.
	572	ENDDO
	573	c
	574	cIM diagnostiques flux ocean-atm ou ocean-glace de mer
	575	cIM pour utilisation dans un modele de "slab" ocean
	576	c
	577	CALL histdef(nid_mth, "fluxo",
	578	. "Flux turbulents ocean-atmosphere", "W/m2",
[776]	579	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	580	. "ave(X)", zstophy,zout)
	581	c
	582	CALL histdef(nid_mth, "fluxg",
	583	. "Flux turbulents ocean-glace de mer","W/m2",
[776]	584	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	585	. "ave(X)", zstophy,zout)
	586	c
[684]	587	CALL histdef(nid_mth, "t_oce_sic",
	588	. "Temp. mixte oce-sic","K",
[776]	589	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[684]	590	. "ave(X)", zstophy,zout)
	591	c
[644]	592	IF (OCEAN.EQ.'force ') THEN
	593	c
	594	CALL histdef(nid_mth, "lmt_bils",
	595	. "Bilan au sol atmosphere forcee", "W/m2",
[776]	596	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	597	. "ave(X)", zstophy,zout)
	598	c
	599	ELSE IF (OCEAN.EQ.'slab ') THEN
	600	c
	601	CALL histdef(nid_mth, "slab_bils",
	602	. "Bilan au sol Slab", "W/m2",
[776]	603	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	604	. "ave(X)", zstophy,zout)
	605	c
	606	CALL histdef(nid_mth, "tslab", "Slab SST ", "K",
[776]	607	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	608	. "ave(X)", zstophy,zout)
	609	c
	610	CALL histdef(nid_mth, "seaice", "Slab seaice", "kg/m2",
[776]	611	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	612	. "ave(X)", zstophy,zout)
	613	c
	614	CALL histdef(nid_mth, "siceh", "Slab seaice height", "m",
[776]	615	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	616	. "ave(X)", zstophy,zout)
	617	c
	618	ENDIF
	619	c
[524]	620	ENDIF !lev_histmth.GE.1
	621	c
	622	IF(lev_histmth.GE.2) THEN
	623	c
	624	c Champs 3D:
	625	c
	626	c
[644]	627	CALL histdef(nid_mth,"lwcon","Cloud liquid water content",
	628	. "kg/kg",
[776]	629	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
[644]	630	. "ave(X)", zstophy,zout)
[524]	631	c
	632	CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg",
[776]	633	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
[644]	634	. "ave(X)", zstophy,zout)
[524]	635	c
	636	CALL histdef(nid_mth, "temp", "Air temperature", "K",
[776]	637	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	638	. "ave(X)", zstophy,zout)
[524]	639	c
	640	CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg",
[776]	641	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	642	. "ave(X)", zstophy,zout)
[524]	643	c
	644	c CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg",
[776]	645	c . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	646	c . "ave(X)", zstophy,zout)
[524]	647	c
[644]	648	CALL histdef(nid_mth, "geop", "Geopotential height", "m2/s2",
[776]	649	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	650	. "ave(X)", zstophy,zout)
[524]	651	c
	652	CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s",
[776]	653	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	654	. "ave(X)", zstophy,zout)
[524]	655	c
	656	CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s",
[776]	657	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	658	. "ave(X)", zstophy,zout)
[524]	659	c
[860]	660	CALL histdef(nid_mth, "vitw", "Vertical wind", "Pa/s",
[776]	661	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	662	. "ave(X)", zstophy,zout)
[524]	663	c
	664	CALL histdef(nid_mth, "pres", "Air pressure", "Pa",
[776]	665	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	666	. "ave(X)", zstophy,zout)
[524]	667	c
	668	CALL histdef(nid_mth, "rneb", "Cloud fraction", "-",
[776]	669	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	670	. "ave(X)", zstophy,zout)
[524]	671	c
	672	CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
	673	. , "-",
[776]	674	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	675	. "ave(X)", zstophy,zout)
[524]	676	c
	677	CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
[776]	678	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	679	. "ave(X)", zstophy,zout)
[524]	680	c
[644]	681	CALL histdef(nid_mth, "ozone", "Ozone concentration", "ppmv",
[776]	682	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	683	. "ave(X)", zstophy,zout)
[524]	684	c
[644]	685	CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s",
[776]	686	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	687	. "ave(X)", zstophy,zout)
	688	c
[524]	689	CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s",
[776]	690	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	691	. "ave(X)", zstophy,zout)
[524]	692	c
[644]	693	CALL histdef(nid_mth, "dqphy", "Physics dQ", "(kg/kg)/s",
[776]	694	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	695	. "ave(X)", zstophy,zout)
[524]	696	c
	697	ENDIF !lev_histmth.GE.2
	698	c
	699	IF(lev_histmth.GE.3) THEN
	700	c
	701	DO nsrf=1, nbsrf
	702	c
	703	call histdef(nid_mth, "albe_"//clnsurf(nsrf),
	704	$ "Albedo surf. "//clnsurf(nsrf), "-",
[776]	705	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	706	$ "ave(X)", zstophy,zout)
[524]	707	c
	708	call histdef(nid_mth, "rugs_"//clnsurf(nsrf),
	709	$ "Latent heat flux "//clnsurf(nsrf), "W/m2",
[776]	710	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	711	$ "ave(X)", zstophy,zout)
[524]	712	c
	713	CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day",
[776]	714	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	715	. "ave(X)", zstophy,zout)
[524]	716	c
	717	ENDDO !nsrf=1, nbsrf
	718	c
	719	CALL histdef(nid_mth, "albs", "Surface albedo", "-",
[776]	720	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	721	. "ave(X)", zstophy,zout)
[524]	722	CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-",
[776]	723	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	724	. "ave(X)", zstophy,zout)
[524]	725	c
	726	ENDIF !lev_histmth.GE.3
	727	c
	728	IF(lev_histmth.GE.4) THEN
	729	c
[878]	730	!FH Sorties pour la couche limite
	731	if (iflag_pbl>1) then
	732	CALL histdef(nid_mth, "tke","TKE","m2/s2",
	733	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	734	. "ave(X)", zstophy,zout)
	735	c
	736	CALL histdef(nid_mth, "tke_max","TKE max","m2/s2",
	737	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	738	. "t_max(X)", zstophy,zout)
	739	endif
	740	c
	741	CALL histdef(nid_mth, "kz","Kz melange","m2/s",
	742	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	743	. "ave(X)", zstophy,zout)
	744	c
	745	CALL histdef(nid_mth, "kz_max","Kz melange max","m2/s",
	746	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	747	. "t_max(X)", zstophy,zout)
	748
	749
[524]	750	CALL histdef(nid_mth, "clwcon",
	751	. "Convective Cloud Liquid water content"
	752	. , "kg/kg",
[776]	753	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	754	. "ave(X)", zstophy,zout)
[524]	755	c
	756	CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s",
[776]	757	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	758	. "ave(X)", zstophy,zout)
[524]	759	c
	760	CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s",
[776]	761	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	762	. "ave(X)", zstophy,zout)
[524]	763	c
	764	CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s",
[776]	765	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	766	. "ave(X)", zstophy,zout)
[524]	767	c
	768	CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s",
[776]	769	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	770	. "ave(X)", zstophy,zout)
[524]	771	c
[644]	772	CALL histdef(nid_mth, "dqdyn", "Dynamics dQ", "(kg/kg)/s",
[776]	773	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	774	. "ave(X)", zstophy,zout)
[524]	775	c
	776	CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
[776]	777	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	778	. "ave(X)", zstophy,zout)
[524]	779	c
[878]	780
	781
	782	c
[524]	783	c CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
[776]	784	c . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	785	c . "ave(X)", zstophy,zout)
[524]	786	c
[644]	787	CALL histdef(nid_mth, "dqcon", "Convection dQ", "(kg/kg)/s",
[776]	788	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	789	. "ave(X)", zstophy,zout)
[524]	790	c
	791	CALL histdef(nid_mth, "dtlsc", "Condensation dT", "K/s",
[776]	792	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	793	. "ave(X)", zstophy,zout)
	794	c
[524]	795	CALL histdef(nid_mth, "dtlschr",
[776]	796	$ "Large-scale condensational heating rate", "K/s",iim,jj_nb
[766]	797	$ ,nhori, klev,1,klev,nvert, 32,"ave(X)", zstophy,zout)
[524]	798	c
[644]	799	CALL histdef(nid_mth, "dqlsc", "Condensation dQ", "(kg/kg)/s",
[776]	800	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	801	. "ave(X)", zstophy,zout)
[524]	802	c
	803	CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s",
[776]	804	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	805	. "ave(X)", zstophy,zout)
[524]	806	c
[644]	807	CALL histdef(nid_mth, "dqvdf","Boundary-layer dQ","(kg/kg)/s",
[776]	808	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	809	. "ave(X)", zstophy,zout)
[524]	810	c
	811	CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s",
[776]	812	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	813	. "ave(X)", zstophy,zout)
[524]	814	c
[644]	815	CALL histdef(nid_mth, "dqeva","Reevaporation dQ","(kg/kg)/s",
[776]	816	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	817	. "ave(X)", zstophy,zout)
[524]	818
	819	CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ",
[776]	820	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	821	. "ave(X)", zstophy,zout)
[524]	822
	823	CALL histdef(nid_mth, "ratqs", "RATQS"," ",
[776]	824	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	825	. "ave(X)", zstophy,zout)
[524]	826
	827	c
[878]	828	CALL histdef(nid_mth, "dtthe", "Dry adjust. dT", "K/s",
	829	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	830	. "ave(X)", zstophy,zout)
	831
	832	CALL histdef(nid_mth,"dqthe","Dry adjust. dQ","(kg/kg)/s",
	833	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	834	. "ave(X)", zstophy,zout)
	835	c
[524]	836	CALL histdef(nid_mth, "dtajs", "Dry adjust. dT", "K/s",
[776]	837	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	838	. "ave(X)", zstophy,zout)
[524]	839
[644]	840	CALL histdef(nid_mth,"dqajs","Dry adjust. dQ","(kg/kg)/s",
[776]	841	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	842	. "ave(X)", zstophy,zout)
[524]	843	c
	844	CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s",
[776]	845	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	846	. "ave(X)", zstophy,zout)
[524]	847	c
	848	CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s",
[776]	849	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	850	. "ave(X)", zstophy,zout)
[524]	851	c
	852	CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s",
[776]	853	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	854	. "ave(X)", zstophy,zout)
[524]	855	c
	856	CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s",
[776]	857	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	858	. "ave(X)", zstophy,zout)
[524]	859	c
	860	CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s",
[776]	861	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	862	. "ave(X)", zstophy,zout)
[524]	863	c
	864	CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2",
[776]	865	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	866	. "ave(X)", zstophy,zout)
[524]	867	c
	868	CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2",
[776]	869	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	870	. "ave(X)", zstophy,zout)
[524]	871	c
	872	IF (ok_orodr) THEN
	873	CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2",
[776]	874	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	875	. "ave(X)", zstophy,zout)
[524]	876	c
	877	CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2",
[776]	878	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	879	. "ave(X)", zstophy,zout)
[524]	880	c
	881	ENDIF
	882	C
	883	IF (ok_orolf) THEN
	884	CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2",
[776]	885	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	886	. "ave(X)", zstophy,zout)
[524]	887	c
	888	CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2",
[776]	889	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	890	. "ave(X)", zstophy,zout)
[524]	891	ENDIF
[644]	892	C
[864]	893	#if defined(INCA_AER) && defined(CPP_COUPLE)
	894	CALL histdef(nid_mth, "tau", "cloud opt thickness", "-",
	895	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	896	. "ave(X)", zstophy,zout)
	897	CALL histdef(nid_mth, "CCM1", "CCM1", "",
	898	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	899	. "ave(X)", zstophy,zout)
	900	CALL histdef(nid_mth, "CCM2", "CCM2", "",
	901	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	902	. "ave(X)", zstophy,zout)
	903	CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-",
	904	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	905	. "ave(X)", zstophy,zout)
	906	CALL histdef(nid_mth, "cldemi", "emissivite IR", "-",
	907	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	908	. "ave(X)", zstophy,zout)
	909	CALL histdef(nid_mth, "SWTOAAS_ZERO", "?", "?",
	910	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	911	. "ave(X)", zstophy,zout)
	912	CALL histdef(nid_mth, "SWTOAAS_AER", "?", "?",
	913	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	914	. "ave(X)", zstophy,zout)
	915	CALL histdef(nid_mth, "SWTOAAS_NAT", "?", "?",
	916	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	917	. "ave(X)", zstophy,zout)
	918	CALL histdef(nid_mth, "SWTOAAS_AD", "?", "?",
	919	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	920	. "ave(X)", zstophy,zout)
	921	CALL histdef(nid_mth, "SWTOAAS_AI", "?", "?",
	922	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	923	. "ave(X)", zstophy,zout)
	924	CALL histdef(nid_mth, "SWTOACS_ZERO", "?", "?",
	925	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	926	. "ave(X)", zstophy,zout)
	927	CALL histdef(nid_mth, "SWTOACS_AER", "?", "?",
	928	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	929	. "ave(X)", zstophy,zout)
	930	CALL histdef(nid_mth, "SWTOACS_AD", "?", "?",
	931	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	932	. "ave(X)", zstophy,zout)
	933	CALL histdef(nid_mth, "SWTOACS_NAT", "?", "?",
	934	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	935	. "ave(X)", zstophy,zout)
	936	#endif
	937	#ifndef INCA
[644]	938	if (nqmax.GE.3) THEN
[841]	939	DO iq=3,nqmax
[878]	940	iiq=niadv(iq)
[841]	941	CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
[776]	942	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	943	. "ave(X)", zstophy,zout)
[878]	944	ENDDO
	945	ENDIF
[864]	946	#endif
[524]	947	c
[644]	948	ENDIF !lev_histmth.GE.4
[524]	949	c
[644]	950	ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN
	951	c
	952	IF(lev_histmth.GE.1) THEN
	953	c
	954	CALL histdef(nid_mth, "phis", "Surface geop. height", "m",
[776]	955	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	956	. "once", zstophy,zout)
	957	c
	958	CALL histdef(nid_mth, "aire", "Grid area", "-",
[776]	959	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	960	. "once", zstophy,zout)
	961	c
	962	CALL histdef(nid_mth, "pourc_"//clnsurf(is_ter),
	963	. "% "//clnsurf(is_ter), "%",
[776]	964	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	965	. "once", zstophy,zout)
	966	c
	967	CALL histdef(nid_mth, "fract_"//clnsurf(is_ter),
	968	. "Fraction "//clnsurf(is_ter), "1",
[776]	969	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	970	. "once", zstophy,zout)
	971	c
	972	CALL histdef(nid_mth, "pourc_"//clnsurf(is_lic),
	973	. "% "//clnsurf(is_lic), "%",
[776]	974	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	975	. "once", zstophy,zout)
	976	c
	977	CALL histdef(nid_mth, "fract_"//clnsurf(is_lic),
	978	. "Fraction "//clnsurf(is_lic), "1",
[776]	979	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	980	. "once", zstophy,zout)
	981	c
	982	CALL histdef(nid_mth, "pourc_"//clnsurf(is_sic),
	983	. "% "//clnsurf(is_sic), "%",
[776]	984	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	985	. "ave(X)", zstophy,zout)
	986	c
	987	CALL histdef(nid_mth, "fract_"//clnsurf(is_sic),
	988	. "Fraction "//clnsurf(is_sic), "1",
[776]	989	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	990	. "ave(X)", zstophy,zout)
	991	c
	992	CALL histdef(nid_mth, "flat", "Latent heat flux", "W/m2",
[776]	993	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	994	. "ave(X)", zstophy,zout)
	995	c
	996	CALL histdef(nid_mth, "bilTOA",
	997	. "Net radiation at TOA", "W/m2",
[776]	998	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	999	. "ave(X)", zstophy,zout)
	1000	c
	1001	c
	1002	c CALL histdef(nid_mth, "tops01",
	1003	c . "TOA reflected clear-sky shortwave
	1004	c . radiation (method 1)", "W/m2",
[776]	1005	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1006	c . "ave(X)", zstophy,zout)
	1007	c
	1008	CALL histdef(nid_mth, "dtdia","dtdia","K/s",
[776]	1009	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1010	. "ave(X)", zstophy,zout)
[524]	1011	c
[644]	1012	CALL histdef(nid_mth, "dtsw","dtsw","K/s",
[776]	1013	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1014	. "ave(X)", zstophy,zout)
[524]	1015	c
[644]	1016	CALL histdef(nid_mth, "dtlw","dtlw","K/s",
[776]	1017	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1018	. "ave(X)", zstophy,zout)
[524]	1019	c
[878]	1020	CALL histdef(nid_mth,"dqthe","Dry adjust. dQ","(kg/kg)/s",
	1021	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1022	. "ave(X)", zstophy,zout)
	1023	c
[644]	1024	CALL histdef(nid_mth, "dtajs","dtajs","K/s",
[776]	1025	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1026	. "ave(X)", zstophy,zout)
	1027	c
	1028	CALL histdef(nid_mth, "dtlsc","dtlsc","K/s",
[776]	1029	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1030	. "ave(X)", zstophy,zout)
	1031	c
	1032	CALL histdef(nid_mth, "dqdia","dqdia","(kg/kg)/s",
[776]	1033	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1034	. "ave(X)", zstophy,zout)
	1035	c
	1036	CALL histdef(nid_mth, "duoli",
	1037	. "duoli","m/s2",
[776]	1038	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1039	. "ave(X)", zstophy,zout)
	1040	c
	1041	CALL histdef(nid_mth, "dvoli",
	1042	. "dvoli","m/s2",
[776]	1043	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1044	. "ave(X)", zstophy,zout)
	1045	c
	1046	CALL histdef(nid_mth, "ducon",
	1047	. "ducon","m/s2",
[776]	1048	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1049	. "ave(X)", zstophy,zout)
	1050	c
	1051	CALL histdef(nid_mth, "dvcon",
	1052	. "dvcon","m/s2",
[776]	1053	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1054	. "ave(X)", zstophy,zout)
	1055	c
	1056	CALL histdef(nid_mth, "dutot",
	1057	. "dutot","m/s2",
[776]	1058	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1059	. "ave(X)", zstophy,zout)
	1060	c
	1061	CALL histdef(nid_mth, "dvtot",
	1062	. "dvtot","m/s2",
[776]	1063	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1064	. "ave(X)", zstophy,zout)
	1065	c
	1066	c CALL histdef(nid_mth, "cldtrue",
	1067	c . "TRUE Cloud fraction ","%",
[776]	1068	c . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1069	c . "inst(X)", zout,zout)
	1070	c
	1071	c CALL histdef(nid_mth, "cldTOA",
	1072	c . "Cloud amount (satellite view)","%",
[776]	1073	c . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1074	c . "ave(X)", zstophy,zout)
	1075	c
	1076	c CALL histdef(nid_mth, "cldSFC",
	1077	c . "Cloud amount (surface view)","%",
[776]	1078	c . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1079	c . "ave(X)", zstophy,zout)
	1080	c
	1081	CALL histdef(nid_mth, "GWDtaux",
	1082	. "GWD induced Ewd wind stress","Pa",
[776]	1083	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1084	. "ave(X)", zstophy,zout)
	1085	c
	1086	CALL histdef(nid_mth, "GWDtauy",
	1087	. "GWD induced Nwd wind stress","Pa",
[776]	1088	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1089	. "ave(X)", zstophy,zout)
	1090	c
	1091	c Champs 2D:
	1092	c
	1093	CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa",
[776]	1094	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1095	. "ave(X)", zstorad,zout)
	1096	c
	1097	CALL histdef(nid_mth, "tsol", "Surface Temperature", "K",
[776]	1098	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1099	. "ave(X)", zstophy,zout)
	1100	c
	1101	CALL histdef(nid_mth, "t2m", "Temperature 2m", "K",
[776]	1102	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1103	. "ave(X)", zstorad,zout)
	1104	c
[879]	1105	c CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
	1106	c . "K",
	1107	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
	1108	c . t2mincels, zstophy,zout)
[644]	1109	c
[879]	1110	c CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
	1111	c . "K",
	1112	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
	1113	c . t2maxcels, zstophy,zout)
[644]	1114	c
	1115	c CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",
	1116	c . "K",
[776]	1117	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1118	c . "ave(X)", zstophy,zout)
	1119	c
	1120	CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s",
[776]	1121	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1122	. "ave(X)", zstorad,zout)
	1123	c
	1124	CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
[776]	1125	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1126	. "ave(X)", zstophy,zout)
	1127
	1128	c
	1129	CALL histdef(nid_mth, "q2m","Specific humidity 2m","kg/kg",
[776]	1130	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1131	. "ave(X)", zstorad,zout)
	1132	c
	1133	CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s",
[776]	1134	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1135	. "ave(X)", zstorad,zout)
	1136	c
	1137	CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s",
[776]	1138	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1139	. "ave(X)", zstorad,zout)
	1140	c
	1141	CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa",
[776]	1142	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1143	. "ave(X)", zstorad,zout)
	1144	c
	1145	CALL histdef(nid_mth, "qsurf","Surface Air humidity","kg/kg",
[776]	1146	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1147	. "ave(X)", zstophy,zout)
	1148	c
	1149	if (.not. ok_veget) then
	1150	CALL histdef(nid_mth, "qsol", "Soil watter content", "mm",
[776]	1151	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1152	. "ave(X)", zstophy,zout)
	1153	endif
	1154	c
	1155	CALL histdef(nid_mth, "ndayrain",
	1156	. "Number of day with rain (liq+sol)", "-",
[776]	1157	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1158	. "inst(X)", zstomth,zout)
	1159	c
	1160	CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol",
	1161	. "kg/(s*m2)",
[776]	1162	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1163	. "ave(X)", zstophy,zout)
	1164	c
	1165	CALL histdef(nid_mth, "plul", "Large-scale Precip.",
	1166	. "kg/(s*m2)",
[776]	1167	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1168	. "ave(X)", zstophy,zout)
	1169	c
	1170	CALL histdef(nid_mth, "pluc", "Convective Precip.",
	1171	. "kg/(s*m2)",
[776]	1172	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1173	. "ave(X)", zstophy,zout)
	1174	c
	1175	CALL histdef(nid_mth, "snowf", "Snow fall", "kg/(s*m2)",
[776]	1176	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1177	. "ave(X)", zstophy,zout)
	1178	c
	1179	c CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2",
[776]	1180	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1181	c . "ave(X)", zstophy,zout)
	1182	c
	1183	CALL histdef(nid_mth, "evap",
	1184	. "Evaporation plus sublimation rate", "kg/(s*m2)",
[776]	1185	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1186	. "ave(X)", zstophy,zout)
	1187	c
	1188	CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2",
[776]	1189	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1190	. "ave(X)", zstophy,zout)
	1191	c
	1192	CALL histdef(nid_mth, "tops0", "CS Solar rad. at TOA", "W/m2",
[776]	1193	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1194	. "ave(X)", zstophy,zout)
	1195	c
	1196	CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2",
[776]	1197	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1198	. "ave(X)", zstophy,zout)
	1199	c
	1200	CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2",
[776]	1201	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1202	. "ave(X)", zstophy,zout)
	1203	c
	1204	CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2",
[776]	1205	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1206	. 32, "ave(X)", zstophy,zout)
	1207	c
	1208	CALL histdef(nid_mth, "SWupTOAclr",
	1209	. "SWup clear sky at TOA","W/m2",
[776]	1210	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1211	. 32, "ave(X)", zstophy,zout)
	1212	c
	1213	CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2",
[776]	1214	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1215	. 32, "ave(X)", zstophy,zout)
	1216	c
	1217	CALL histdef(nid_mth, "SWdnTOAclr",
	1218	. "SWdn clear sky at TOA","W/m2",
[776]	1219	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1220	. 32, "ave(X)", zstophy,zout)
	1221	c
	1222	CALL histdef(nid_mth, "SWup200", "SWup at 200mb","W/m2",
[776]	1223	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1224	. 32, "ave(X)", zstophy,zout)
	1225	c
	1226	CALL histdef(nid_mth, "SWup200clr",
	1227	. "SWup clear sky at 200mb","W/m2",
[776]	1228	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1229	. 32, "ave(X)", zstophy,zout)
	1230	c
	1231	CALL histdef(nid_mth, "SWdn200", "SWdn at 200mb","W/m2",
[776]	1232	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1233	. 32, "ave(X)", zstophy,zout)
	1234	c
	1235	CALL histdef(nid_mth, "SWdn200clr",
	1236	. "SWdn clear sky at 200mb","W/m2",
[776]	1237	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1238	. 32, "ave(X)", zstophy,zout)
	1239	c
	1240	CALL histdef(nid_mth, "LWup200", "LWup at 200mb","W/m2",
[776]	1241	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1242	. 32, "ave(X)", zstophy,zout)
	1243	c
	1244	CALL histdef(nid_mth, "LWup200clr",
	1245	. "LWup clear sky at 200mb","W/m2",
[776]	1246	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1247	. 32, "ave(X)", zstophy,zout)
	1248	c
	1249	CALL histdef(nid_mth, "LWdn200", "LWdn at 200mb","W/m2",
[776]	1250	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1251	. 32, "ave(X)", zstophy,zout)
	1252	c
	1253	CALL histdef(nid_mth, "LWdn200clr",
	1254	. "LWdn clear sky at 200mb","W/m2",
[776]	1255	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1256	. 32, "ave(X)", zstophy,zout)
	1257	c
	1258	CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2",
[776]	1259	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1260	. "ave(X)", zstophy,zout)
	1261	c
	1262	CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2",
[776]	1263	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1264	. "ave(X)", zstophy,zout)
	1265	c
	1266	CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2",
[776]	1267	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1268	. "ave(X)", zstophy,zout)
	1269	c
[684]	1270	CALL histdef(nid_mth, "radsol", "Rayonnement au sol", "W/m2",
[776]	1271	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[684]	1272	. "ave(X)", zstophy,zout)
	1273	c
[644]	1274	CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2",
[776]	1275	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1276	. "ave(X)", zstophy,zout)
	1277	c
	1278	CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2",
[776]	1279	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1280	. 32, "ave(X)", zstophy,zout)
	1281	c
	1282	CALL histdef(nid_mth, "SWupSFCclr",
	1283	. "SWup clear sky at surface","W/m2",
[776]	1284	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1285	. 32, "ave(X)", zstophy,zout)
	1286	c
	1287	CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2",
[776]	1288	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1289	. 32, "ave(X)", zstophy,zout)
	1290	c
	1291	CALL histdef(nid_mth, "SWdnSFCclr",
	1292	. "SWdn clear sky at surface","W/m2",
[776]	1293	. iim,jj_nb,nhori, 1,1,1,-99,
[644]	1294	. 32, "ave(X)", zstophy,zout)
	1295	c
	1296	CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface",
[776]	1297	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1298	. "ave(X)", zstophy,zout)
	1299	c
	1300	CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface",
[776]	1301	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1302	. "ave(X)", zstophy,zout)
	1303	c
	1304	CALL histdef(nid_mth,"LWupSFCclr",
	1305	. "CS Upwd. IR rad. at surface",
[776]	1306	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1307	. "ave(X)", zstophy,zout)
	1308	c
	1309	CALL histdef(nid_mth,"LWdnSFCclr",
	1310	. "Down. CS IR rad. at surface",
[776]	1311	. "W/m2", iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1312	. "ave(X)", zstophy,zout)
	1313	c
	1314	CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2",
[776]	1315	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1316	. "ave(X)", zstophy,zout)
	1317	c
	1318	CALL histdef(nid_mth, "sens", "Sensible heat flux", "W/m2",
[776]	1319	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1320	. "ave(X)", zstophy,zout)
	1321	c
	1322	CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2",
[776]	1323	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1324	. "ave(X)", zstophy,zout)
	1325	c
[903]	1326	c Effets des aerosols
	1327	c
	1328	IF (ok_ade.OR.ok_aie) THEN
	1329	CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
	1330	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[905]	1331	. "ave(X)", zstophy,zout)
[903]	1332	c
	1333	CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
	1334	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[905]	1335	. "ave(X)", zstophy,zout)
[903]	1336	c
	1337	CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
	1338	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[905]	1339	. "ave(X)", zstophy,zout)
[903]	1340	c
	1341	CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
	1342	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[905]	1343	. "ave(X)", zstophy,zout)
[903]	1344	ENDIF
	1345	c
[644]	1346	c CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
[776]	1347	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1348	c . "ave(X)", zstophy,zout)
	1349	c
	1350	c CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
[776]	1351	c . iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1352	c . "ave(X)", zstophy,zout)
	1353	c
	1354	CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
[776]	1355	. "W/m2",iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1356	. "ave(X)", zstophy,zout)
	1357	c
	1358	CALL histdef(nid_mth, "fqcalving","Ice Calving",
[776]	1359	. "kg/m2/s",iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1360	. "ave(X)", zstophy,zout)
	1361	c
	1362	DO nsrf = 1, nbsrf
	1363	call histdef(nid_mth, "taux_"//clnsurf(nsrf),
	1364	$ "Zonal wind stress"//clnsurf(nsrf), "Pa",
[776]	1365	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1366	$ "ave(X)", zstophy,zout)
	1367
	1368	call histdef(nid_mth, "tauy_"//clnsurf(nsrf),
	1369	$ "Meridional wind stress "//clnsurf(nsrf), "Pa",
[776]	1370	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1371	$ "ave(X)", zstophy,zout)
	1372	ENDDO
	1373	c
	1374	call histdef(nid_mth, "pourc_"//clnsurf(is_oce),
	1375	$ "% "//clnsurf(is_oce), "%",
[776]	1376	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1377	$ "ave(X)", zstophy,zout)
	1378	c
	1379	call histdef(nid_mth, "fract_"//clnsurf(is_oce),
	1380	$ "Fraction "//clnsurf(is_oce), "1",
[776]	1381	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1382	$ "ave(X)", zstophy,zout)
	1383	C
	1384	DO nsrf = 1, nbsrf
	1385	C
	1386	call histdef(nid_mth, "tsol_"//clnsurf(nsrf),
	1387	$ "Temperature "//clnsurf(nsrf), "K",
[776]	1388	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1389	$ "ave(X)", zstophy,zout)
	1390	C
	1391	call histdef(nid_mth, "sens_"//clnsurf(nsrf),
	1392	$ "Sensible heat flux "//clnsurf(nsrf), "W/m2",
[776]	1393	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1394	$ "ave(X)", zstophy,zout)
	1395	c
	1396	call histdef(nid_mth, "lat_"//clnsurf(nsrf),
	1397	$ "Latent heat flux "//clnsurf(nsrf), "W/m2",
[776]	1398	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1399	$ "ave(X)", zstophy,zout)
	1400	C
	1401	call histdef(nid_mth, "flw_"//clnsurf(nsrf),
	1402	$ "LW "//clnsurf(nsrf), "W/m2",
[776]	1403	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1404	$ "ave(X)", zstophy,zout)
	1405	c
	1406	call histdef(nid_mth, "fsw_"//clnsurf(nsrf),
	1407	$ "SW "//clnsurf(nsrf), "W/m2",
[776]	1408	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1409	$ "ave(X)", zstophy,zout)
	1410	C
	1411	call histdef(nid_mth, "wbils_"//clnsurf(nsrf),
	1412	$ "Bilan sol "//clnsurf(nsrf), "W/m2",
[776]	1413	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1414	$ "ave(X)", zstophy,zout)
	1415	C
[684]	1416	call histdef(nid_mth, "wbilo_"//clnsurf(nsrf),
	1417	$ "Bilan eau "//clnsurf(nsrf), "kg/(m2*s)",
[776]	1418	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[684]	1419	$ "ave(X)", zstophy,zout)
	1420	C
[644]	1421	cIM 250105 BEG
	1422	IF(1.EQ.0) THEN
	1423	C
	1424	call histdef(nid_mth, "evapour_"//clnsurf(nsrf),
	1425	$ "Evappourc "//clnsurf(nsrf), "kg/(sm2)",
[776]	1426	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1427	$ "ave(X)", zstophy,zout)
	1428	C
	1429	call histdef(nid_mth, "prepour_"//clnsurf(nsrf),
	1430	$ "Precippourc "//clnsurf(nsrf), "kg/(sm2)",
[776]	1431	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1432	$ "ave(X)", zstophy,zout)
	1433	C
	1434	ENDIF !(1.EQ.0) THEN
	1435	cIM 250105 END
	1436	C
	1437	END DO
	1438	c
	1439	CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-",
[776]	1440	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1441	. "ave(X)", zstophy,zout)
	1442	c
	1443	CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-",
[776]	1444	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1445	. "ave(X)", zstophy,zout)
	1446	c
	1447	CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
[776]	1448	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1449	. "ave(X)", zstophy,zout)
	1450	c
	1451	CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
[776]	1452	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1453	. "ave(X)", zstophy,zout)
	1454	c
	1455	CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
[776]	1456	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1457	. "ave(X)", zstophy,zout)
	1458	c
	1459	CALL histdef(nid_mth, "cldt", "Total cloudiness", "%",
[776]	1460	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1461	. "ave(X)", zstophy,zout)
	1462	c
	1463	CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2",
[776]	1464	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1465	. "ave(X)", zstophy,zout)
	1466	c
	1467	CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2",
[776]	1468	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1469	. "ave(X)", zstophy,zout)
	1470	c
	1471	CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2",
[776]	1472	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1473	. "ave(X)", zstophy,zout)
	1474	c
	1475	CALL histdef(nid_mth, "ue", "Zonal energy transport", "-",
[776]	1476	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1477	. "ave(X)", zstophy,zout)
	1478	c
	1479	CALL histdef(nid_mth, "ve", "Merid energy transport", "-",
[776]	1480	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1481	. "ave(X)", zstophy,zout)
	1482	c
	1483	CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-",
[776]	1484	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1485	. "ave(X)", zstophy,zout)
	1486	c
	1487	CALL histdef(nid_mth, "vq", "Merid humidity transport", "-",
[776]	1488	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1489	. "ave(X)", zstophy,zout)
	1490	cKE43
	1491	IF(iflag_con.GE.3) THEN ! sb
	1492	c
	1493	CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg",
[776]	1494	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1495	. "ave(X)", zstophy,zout)
	1496	c
	1497	CALL histdef(nid_mth, "pbase", "Cld base pressure", "mb",
[776]	1498	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1499	. "ave(X)", zstophy,zout)
	1500	c
	1501	CALL histdef(nid_mth, "ptop", "Cld top pressure", "mb",
[776]	1502	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1503	. "ave(X)", zstophy,zout)
	1504	c
	1505	CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s",
[776]	1506	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1507	. "ave(X)", zstophy,zout)
	1508	c
	1509	CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
[776]	1510	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1511	. "ave(X)", zstophy,zout)
	1512	c
[653]	1513	CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s",
[776]	1514	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[653]	1515	. "ave(X)", zstophy,zout)
	1516	c
[644]	1517	ENDIF !iflag_con .GE. 3
	1518	c34EK
	1519	cIM cf. AM 081204 BEG
	1520	c34EK
	1521	c HBTM2
	1522	CALL histdef(nid_mth, "s_pblh", "Boundary Layer Height", "m",
[776]	1523	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1524	. "ave(X)", zstophy,zout)
	1525	CALL histdef(nid_mth, "s_pblt", "T at Boundary Layer Height",
	1526	. "K",
[776]	1527	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1528	. "ave(X)", zstophy,zout)
	1529	CALL histdef(nid_mth, "s_lcl", "Condensation level", "m",
[776]	1530	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1531	. "ave(X)", zstophy,zout)
	1532	CALL histdef(nid_mth,"s_capCL","Conv avlbl pot ener for ABL",
	1533	. "J/m2",
[776]	1534	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1535	. "ave(X)", zstophy,zout)
	1536	CALL histdef(nid_mth, "s_oliqCL", "Liq Water in BL", "kg/m2",
[776]	1537	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1538	. "ave(X)", zstophy,zout)
	1539	CALL histdef(nid_mth,"s_cteiCL","Instability criteria (ABL)",
	1540	. "K",
[776]	1541	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1542	. "ave(X)", zstophy,zout)
	1543	CALL histdef(nid_mth, "s_therm", "Exces du thermique", "K",
[776]	1544	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1545	. "ave(X)", zstophy,zout)
	1546	CALL histdef(nid_mth, "s_trmb1", "deep_cape(HBTM2)", "J/m2",
[776]	1547	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1548	. "ave(X)", zstophy,zout)
	1549	CALL histdef(nid_mth, "s_trmb2", "inhibition (HBTM2)", "J/m2",
[776]	1550	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1551	. "ave(X)", zstophy,zout)
	1552	CALL histdef(nid_mth, "s_trmb3", "Point Omega (HBTM2)", "m",
[776]	1553	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1554	. "ave(X)", zstophy,zout)
	1555	c
	1556	cIM cf. AM 081204 END
	1557	c
	1558	c Champs interpolles sur des niveaux de pression
	1559	DO k=1, nlevSTD
	1560	c
	1561	c bb=clevSTD(k)
	1562	c
	1563	c IF(k.GE.2) THEN
	1564	IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
	1565	IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
	1566	c aa=clevSTD(k)
	1567	c bb=aa(1:lnblnk1(aa))
	1568	c ENDIF
	1569	c
	1570	IF(bb2.EQ."850".OR.bb2.EQ."700"
	1571	$ .OR.bb2.EQ."500".OR.bb2.EQ."200") THEN
	1572	c
	1573	CALL histdef(nid_mth, "u"//bb2,
	1574	. "Zonal wind "//bb2//"mb","m/s",
[776]	1575	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1576	. "inst(X)", zout,zout)
	1577	c
	1578	CALL histdef(nid_mth, "v"//bb2,
	1579	. "Meridional wind "//bb2//"mb","m/s",
[776]	1580	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1581	. "inst(X)", zout,zout)
	1582	c
	1583	CALL histdef(nid_mth, "w"//bb2,
	1584	. "Vertical wind "//bb2//"mb","m/s",
[776]	1585	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1586	. "inst(X)", zout,zout)
	1587	c
	1588	CALL histdef(nid_mth, "phi"//bb2,
	1589	. "Geopotential "//bb2//"mb","m",
[776]	1590	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1591	. "inst(X)", zout,zout)
	1592	c
	1593	ENDIF !(bb2.EQ."850".OR.bb2.EQ."700"
	1594	c
	1595	ENDDO !nlevSTD
	1596	c
	1597	cIM diagnostiques flux ocean-atm ou ocean-glace de mer
	1598	cIM pour utilisation dans un modele de "slab" ocean
	1599	c
	1600	CALL histdef(nid_mth, "fluxo",
	1601	. "Flux turbulents ocean-atmosphere", "W/m2",
[776]	1602	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1603	. "ave(X)", zstophy,zout)
	1604	c
	1605	CALL histdef(nid_mth, "fluxg",
	1606	. "Flux turbulents ocean-glace de mer","W/m2",
[776]	1607	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1608	. "ave(X)", zstophy,zout)
	1609	c
[684]	1610	CALL histdef(nid_mth, "t_oce_sic",
	1611	. "Temp. mixte oce-sic","K",
[776]	1612	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[684]	1613	. "ave(X)", zstophy,zout)
	1614	c
[644]	1615	IF (OCEAN.EQ.'force ') THEN
	1616	c
	1617	CALL histdef(nid_mth, "lmt_bils",
	1618	. "Bilan au sol atmosphere forcee", "W/m2",
[776]	1619	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1620	. "ave(X)", zstophy,zout)
	1621	c
	1622	ELSE IF (OCEAN.EQ.'slab ') THEN
	1623	c
	1624	CALL histdef(nid_mth, "slab_bils",
	1625	. "Bilan au sol Slab", "W/m2",
[776]	1626	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1627	. "ave(X)", zstophy,zout)
	1628	c
	1629	CALL histdef(nid_mth, "tslab", "Slab SST ", "K",
[776]	1630	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1631	. "ave(X)", zstophy,zout)
	1632	c
	1633	CALL histdef(nid_mth, "seaice", "Slab seaice", "kg/m2",
[776]	1634	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1635	. "ave(X)", zstophy,zout)
	1636	c
	1637	CALL histdef(nid_mth, "siceh", "Slab seaice height", "m",
[776]	1638	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1639	. "ave(X)", zstophy,zout)
	1640	c
	1641	ENDIF !OCEAN.EQ.slab/force
	1642	c
	1643	ENDIF !lev_histmth.GE.1
	1644	c
	1645	IF(lev_histmth.GE.2) THEN
	1646	c
	1647	c Champs 3D:
	1648	c
	1649	c
	1650	CALL histdef(nid_mth,"lwcon","Cloud liquid water content",
	1651	. "kg/kg",
[776]	1652	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
[644]	1653	. "ave(X)", zstophy,zout)
	1654	c
	1655	CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg",
[776]	1656	. iim,jj_nb,nhori, klev,1,klev, nvert, 32,
[644]	1657	. "ave(X)", zstophy,zout)
	1658	c
	1659	CALL histdef(nid_mth, "temp", "Air temperature", "K",
[776]	1660	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1661	. "ave(X)", zstophy,zout)
	1662	c
	1663	CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg",
[776]	1664	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1665	. "ave(X)", zstophy,zout)
	1666	c
	1667	c CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg",
[776]	1668	c . iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1669	c . "ave(X)", zstophy,zout)
	1670	c
	1671	CALL histdef(nid_mth, "geop", "Geopotential height", "m2/s2",
[776]	1672	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1673	. "ave(X)", zstophy,zout)
	1674	c
	1675	CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s",
[776]	1676	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1677	. "ave(X)", zstophy,zout)
	1678	c
	1679	CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s",
[776]	1680	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1681	. "ave(X)", zstophy,zout)
	1682	c
[860]	1683	CALL histdef(nid_mth, "vitw", "Vertical wind", "Pa/s",
[776]	1684	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1685	. "ave(X)", zstophy,zout)
	1686	c
	1687	CALL histdef(nid_mth, "pres", "Air pressure", "Pa",
[776]	1688	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1689	. "ave(X)", zstophy,zout)
	1690	c
	1691	CALL histdef(nid_mth, "rneb", "Cloud fraction", "%",
[776]	1692	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1693	. "ave(X)", zstophy,zout)
	1694	c
	1695	CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
	1696	. , "-",
[776]	1697	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1698	. "ave(X)", zstophy,zout)
	1699	c
	1700	CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
[776]	1701	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1702	. "ave(X)", zstophy,zout)
	1703	c
	1704	CALL histdef(nid_mth, "ozone", "Ozone concentration", "ppmv",
[776]	1705	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1706	. "ave(X)", zstophy,zout)
	1707	c
	1708	CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s",
[776]	1709	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1710	. "ave(X)", zstophy,zout)
	1711	c
	1712	CALL histdef(nid_mth, "dqphy","Physics dQ","(kg/kg)/s",
[776]	1713	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1714	. "ave(X)", zstophy,zout)
	1715	c
	1716	ENDIF !lev_histmth.GE.2
	1717	c
	1718	IF(lev_histmth.GE.3) THEN
	1719	c
	1720	DO nsrf=1, nbsrf
	1721	c
	1722	call histdef(nid_mth, "albe_"//clnsurf(nsrf),
	1723	$ "Albedo surf. "//clnsurf(nsrf), "-",
[776]	1724	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1725	$ "ave(X)", zstophy,zout)
	1726	c
	1727	call histdef(nid_mth, "rugs_"//clnsurf(nsrf),
	1728	$ "Rugosite "//clnsurf(nsrf), "m",
[776]	1729	$ iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1730	$ "ave(X)", zstophy,zout)
	1731	c
	1732	CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day",
[776]	1733	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1734	. "ave(X)", zstophy,zout)
	1735	c
	1736	ENDDO !nsrf=1, nbsrf
	1737	c
	1738	CALL histdef(nid_mth, "albs", "Surface albedo", "-",
[776]	1739	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1740	. "ave(X)", zstophy,zout)
	1741	CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-",
[776]	1742	. iim,jj_nb,nhori, 1,1,1, -99, 32,
[644]	1743	. "ave(X)", zstophy,zout)
	1744	c
	1745	ENDIF !lev_histmth.GE.3
	1746	c
	1747	IF(lev_histmth.GE.4) THEN
	1748	c
[878]	1749	!FH Sorties pour la couche limite
	1750	if (iflag_pbl>1) then
	1751	CALL histdef(nid_mth, "tke","TKE","m2/s2",
	1752	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1753	. "ave(X)", zstophy,zout)
	1754	c
	1755	CALL histdef(nid_mth, "tke_max","TKE max","m2/s2",
	1756	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1757	. "t_max(X)", zstophy,zout)
	1758	endif
	1759	c
	1760	CALL histdef(nid_mth, "kz","Kz melange","m2/s",
	1761	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1762	. "ave(X)", zstophy,zout)
	1763	c
	1764	CALL histdef(nid_mth, "kz_max","Kz melange max","m2/s",
	1765	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1766	. "t_max(X)", zstophy,zout)
	1767
	1768
	1769
	1770
[644]	1771	CALL histdef(nid_mth, "clwcon",
	1772	. "Convective Cloud Liquid water content"
	1773	. , "kg/kg",
[776]	1774	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1775	. "ave(X)", zstophy,zout)
	1776	c
	1777	CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s",
[776]	1778	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1779	. "ave(X)", zstophy,zout)
	1780	c
	1781	CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s",
[776]	1782	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1783	. "ave(X)", zstophy,zout)
	1784	c
	1785	CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s",
[776]	1786	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1787	. "ave(X)", zstophy,zout)
	1788	c
	1789	CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s",
[776]	1790	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1791	. "ave(X)", zstophy,zout)
	1792	c
	1793	CALL histdef(nid_mth, "dqdyn","Dynamics dQ","(kg/kg)/s",
[776]	1794	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1795	. "ave(X)", zstophy,zout)
	1796	c
	1797	CALL histdef(nid_mth, "dqcon","Convection dQ","(kg/kg)/s",
[776]	1798	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1799	. "ave(X)", zstophy,zout)
	1800	c
	1801	CALL histdef(nid_mth, "dtlschr",
[766]	1802	$ "Large-scale condensational heating rate", "K/s",
[776]	1803	$ iim,jj_nb
[644]	1804	$ ,nhori, klev,1,klev,nvert, 32,"ave(X)", zstophy,zout)
	1805	c
	1806	CALL histdef(nid_mth, "dqlsc","Condensation dQ","(kg/kg)/s",
[776]	1807	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1808	. "ave(X)", zstophy,zout)
	1809	c
	1810	CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s",
[776]	1811	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1812	. "ave(X)", zstophy,zout)
	1813	c
	1814	CALL histdef(nid_mth, "dqvdf","Boundary-layer dQ","(kg/kg)/s",
[776]	1815	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1816	. "ave(X)", zstophy,zout)
	1817	c
	1818	CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s",
[776]	1819	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1820	. "ave(X)", zstophy,zout)
	1821	c
	1822	CALL histdef(nid_mth,"dqeva","Reevaporation dQ","(kg/kg)/s",
[776]	1823	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1824	. "ave(X)", zstophy,zout)
	1825
	1826	CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ",
[776]	1827	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1828	. "ave(X)", zstophy,zout)
	1829
	1830	CALL histdef(nid_mth, "ratqs", "RATQS"," ",
[776]	1831	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1832	. "ave(X)", zstophy,zout)
	1833
	1834	c
	1835	CALL histdef(nid_mth, "dqajs","Dry adjust. dQ","(kg/kg)/s",
[776]	1836	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1837	. "ave(X)", zstophy,zout)
	1838	c
	1839	CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s",
[776]	1840	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1841	. "ave(X)", zstophy,zout)
	1842	c
	1843	CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s",
[776]	1844	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1845	. "ave(X)", zstophy,zout)
	1846	c
	1847	CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s",
[776]	1848	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1849	. "ave(X)", zstophy,zout)
	1850	c
	1851	CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s",
[776]	1852	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1853	. "ave(X)", zstophy,zout)
	1854	c
	1855	CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s",
[776]	1856	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1857	. "ave(X)", zstophy,zout)
	1858	c
	1859	CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2",
[776]	1860	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1861	. "ave(X)", zstophy,zout)
	1862	c
	1863	CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2",
[776]	1864	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1865	. "ave(X)", zstophy,zout)
	1866	c
	1867	IF (ok_orodr) THEN
	1868	CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2",
[776]	1869	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1870	. "ave(X)", zstophy,zout)
	1871	c
	1872	CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2",
[776]	1873	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1874	. "ave(X)", zstophy,zout)
	1875	c
	1876	ENDIF
	1877	C
	1878	IF (ok_orolf) THEN
	1879	CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2",
[776]	1880	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1881	. "ave(X)", zstophy,zout)
	1882	c
	1883	CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2",
[776]	1884	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1885	. "ave(X)", zstophy,zout)
	1886	ENDIF
	1887	C
[864]	1888	#if defined(INCA_AER) && defined(CPP_COUPLE)
	1889	CALL histdef(nid_mth, "tau", "cloud opt thickness", "-",
	1890	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1891	. "ave(X)", zstophy,zout)
	1892	CALL histdef(nid_mth, "CCM1", "CCM1", "",
	1893	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1894	. "ave(X)", zstophy,zout)
	1895	CALL histdef(nid_mth, "CCM2", "CCM2", "",
	1896	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1897	. "ave(X)", zstophy,zout)
	1898	CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-",
	1899	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1900	. "ave(X)", zstophy,zout)
	1901	CALL histdef(nid_mth, "cldemi", "emissivite IR", "-",
	1902	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
	1903	. "ave(X)", zstophy,zout)
	1904	CALL histdef(nid_mth, "SWTOAAS_ZERO", "?", "?",
	1905	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1906	. "ave(X)", zstophy,zout)
	1907	CALL histdef(nid_mth, "SWTOAAS_AER", "?", "?",
	1908	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1909	. "ave(X)", zstophy,zout)
	1910	CALL histdef(nid_mth, "SWTOAAS_NAT", "?", "?",
	1911	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1912	. "ave(X)", zstophy,zout)
	1913	CALL histdef(nid_mth, "SWTOAAS_AD", "?", "?",
	1914	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1915	. "ave(X)", zstophy,zout)
	1916	CALL histdef(nid_mth, "SWTOAAS_AI", "?", "?",
	1917	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1918	. "ave(X)", zstophy,zout)
	1919	CALL histdef(nid_mth, "SWTOACS_ZERO", "?", "?",
	1920	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1921	. "ave(X)", zstophy,zout)
	1922	CALL histdef(nid_mth, "SWTOACS_AER", "?", "?",
	1923	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1924	. "ave(X)", zstophy,zout)
	1925	CALL histdef(nid_mth, "SWTOACS_AD", "?", "?",
	1926	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1927	. "ave(X)", zstophy,zout)
	1928	CALL histdef(nid_mth, "SWTOACS_NAT", "?", "?",
	1929	. iim,jj_nb,nhori, 1,1,1, -99, 32,
	1930	. "ave(X)", zstophy,zout)
	1931	#endif
	1932	#ifndef INCA
[524]	1933	if (nqmax.GE.3) THEN
[878]	1934	DO iq=3,nqmax
	1935	iiq=niadv(iq)
	1936	CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
[776]	1937	. iim,jj_nb,nhori, klev,1,klev,nvert, 32,
[644]	1938	. "ave(X)", zstophy,zout)
[878]	1939	ENDDO
	1940	ENDIF
[864]	1941	#endif
[653]	1942
[524]	1943	ENDIF !lev_histmth.GE.4
	1944	c
[644]	1945	ENDIF !type_run.EQ."CLIM".OR.type_run.EQ."ENSP")
	1946	c
[524]	1947	CALL histend(nid_mth)
	1948	c
	1949	ndex2d = 0
	1950	ndex3d = 0
	1951	c
[766]	1952	c$OMP END MASTER
[524]	1953	ENDIF ! fin de test sur ok_mensuel

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

Download in other formats: