Context Navigation

ini_histrac.h @ 694

Last change on this file since 694 was 634, checked in by Laurent Fairhead, 19 years ago
Modifications faites à la physique pour la rendre parallele YM Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester les modifs pleinement avant leurs inclusions dans le tronc principal LF
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 18.7 KB

Rev	Line
[524]	1	!
	2	! $Header$
	3	!
	4	CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
	5	c
[634]	6	cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
	7	cym DO i = 1, iim
	8	cym zx_lon(i,1) = xlon(i+1)
	9	cym zx_lon(i,jjm+1) = xlon(i+1)
	10	cym ENDDO
	11	cym CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
	12	cym CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
	13	cym . 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
	14	cym . nhori, nid_tra)
	15	CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,
[524]	16	. nhori, nid_tra)
	17	CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb",
	18	. klev, presnivs, nvert)
	19
	20	#ifdef INCA_AER
[634]	21	cym CALL histbeg("histrac_aer", iim,zx_lon, jjm+1,zx_lat,
	22	cym . 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
	23	cym . nhori, nid_tra2)
	24	CALL histbeg_phy("histrac_aer", itau_phy, zjulian, pdtphys,
[524]	25	. nhori, nid_tra2)
	26
[634]	27	cym CALL histbeg("histrac_inst", iim,zx_lon, jjm+1,zx_lat,
	28	cym . 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
	29	cym . nhori, nid_tra3)
	30	CALL histbeg_phy("histrac_inst",itau_phy, zjulian, pdtphys,
[524]	31	. nhori, nid_tra3)
	32
	33	call histvert(nid_tra2, "presnivs", "presnivs", "mb",
	34	. klev, presnivs, nvert)
	35	call histvert(nid_tra3, "presnivs", "presnivs", "mb",
	36	. klev, presnivs, nvert)
	37	#endif
	38
	39	#ifdef INCA
	40	! call histvert(nid_tra, "ap", "Hybrid A parameter", "-",
	41	! . klev+1, ap, nverta)
	42	! call histvert(nid_tra, "bp", "Hybrid B parameter", "-",
	43	! . klev+1, bp, nvertb)
	44	#endif
	45
	46	zsto = pdtphys
	47	zout = pdtphys * FLOAT(ecrit_tra)
	48	c
	49	CALL histdef(nid_tra, "phis", "Surface geop. height", "-",
[634]	50	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	51	. "once", zsto,zout)
	52	c
	53	CALL histdef(nid_tra, "aire", "Grid area", "-",
[634]	54	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	55	. "once", zsto,zout)
	56	#ifdef INCA
	57	CALL histdef(nid_tra, "ps", "Surface pressure", "Pa",
[634]	58	. iim,jjphy_nb,nhori, 1,1,1,-99, 32,
[524]	59	. "ave(X)", zsto,zout)
	60
	61	CALL histdef(nid_tra, "ptrop", "Tropopause pressure", "Pa",
[634]	62	. iim,jjphy_nb,nhori, 1,1,1,-99, 32,
[524]	63	. "ave(X)", zsto,zout)
	64
	65	C 3d FIELDS
	66	CALL histdef(nid_tra, "temp", "Air temperature", "K",
[634]	67	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	68	. "ave(X)", zsto,zout)
	69
	70	CALL histdef(nid_tra, "u", "zonal wind component", "m/s",
[634]	71	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	72	. "ave(X)", zsto,zout)
	73
	74	CALL histdef(nid_tra, "v", "zonal wind component", "m/s",
[634]	75	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	76	. "ave(X)", zsto,zout)
	77
	78	CALL histdef(nid_tra, "h2o", "Specific Humidity", "MMR",
[634]	79	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	80	. "ave(X)", zsto,zout)
	81
	82	CALL histdef(nid_tra, "pmid", "Pressure", "Pa",
[634]	83	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	84	. "ave(X)", zsto,zout)
	85
	86	CALL histdef(nid_tra, "pdel", "Delta Pressure", "Pa",
[634]	87	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	88	. "ave(X)", zsto,zout)
	89
	90	! MS info
	91	CALL histdef(nid_tra, "airm", "Air mass", "kg",
[634]	92	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	93	. "ave(X)", zsto,zout)
	94
[616]	95	#ifdef INCA
[524]	96	#ifdef INCAINFO
	97	DO it=1, phtcnt
	98	WRITE(str2,'(i2.2)') it
	99	CALL histdef(nid_tra, "j"//str2,"j"//str2, "CM-3 S-1",
[634]	100	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	101	. "ave(X)", zsto,zout)
	102	ENDDO
	103	DO it=1, hetcnt
	104	WRITE(str2,'(i2.2)') it
	105	CALL histdef(nid_tra, "w"//str2,"w"//str2, "S-1",
[634]	106	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	107	. "ave(X)", zsto,zout)
	108	ENDDO
	109
	110	DO it=1, extcnt
	111	WRITE(str2,'(i2.2)') it
	112	CALL histdef(nid_tra, "ext"//str2,"ext"//str2, "CM-3 S-1",
[634]	113	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	114	. "ave(X)", zsto,zout)
	115	ENDDO
	116
	117	DO it=1, nfs
	118	WRITE(str2,'(i2.2)') it
	119	CALL histdef(nid_tra, "INV"//str2, "INV"//str2, "CM-3",
[634]	120	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	121	. "ave(X)", zsto,zout)
	122	ENDDO
	123
	124	#else
	125	CALL histdef(nid_tra, "jO3","jO3", "CM-3 S-1",
[634]	126	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	127	. "ave(X)", zsto,zout)
	128	CALL histdef(nid_tra, "jNO2","jNO2", "CM-3 S-1",
[634]	129	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	130	. "ave(X)", zsto,zout)
	131	CALL histdef(nid_tra, "jH2O2","jH2O2", "CM-3 S-1",
[634]	132	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	133	. "ave(X)", zsto,zout)
	134	CALL histdef(nid_tra, "wHNO3","wHNO3", "S-1",
[634]	135	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	136	. "ave(X)", zsto,zout)
	137	CALL histdef(nid_tra, "kN2O5", "kN2O5","CM-3 S-1",
[634]	138	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	139	. "ave(X)", zsto,zout)
	140	CALL histdef(nid_tra, "LghtNO","LghtNO", "CM-3 S-1",
[634]	141	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	142	. "ave(X)", zsto,zout)
	143	#endif
	144
	145	DO it=1, grpcnt
	146	CALL histdef(nid_tra, grpsym(it), grpsym(it), "VMR",
[634]	147	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	148	. "ave(X)", zsto,zout)
	149	ENDDO
	150	#endif
	151
	152	#ifdef INCA_AER
	153
	154	CALL histdef(nid_tra2, "scavcoef_st","scavcoef_st", "S-1",
[634]	155	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	156	. "ave(X)", zsto,zout)
	157	CALL histdef(nid_tra2, "scavcoef_cv","scavcoef_cv", "S-1",
[634]	158	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	159	. "ave(X)", zsto,zout)
	160	CALL histdef(nid_tra2, "AngstroemComp","AngstroemComp",
[634]	161	. "angs comp", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	162	. "ave(X)", zsto,zout)
	163
	164	#endif
	165	#endif
	166	DO it=1,nqmax
	167	C champ 2D
	168	#ifdef INCA
	169	IF ( prt_flag_ts(it) == 0 ) CYCLE
	170
	171	CALL histdef(nid_tra, "Emi_"//solsym(it), "Emi_"//solsym(it),
[634]	172	. "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	173	. "ave(X)", zsto,zout)
	174	CALL histdef(nid_tra, "Dep_"//solsym(it), "Dep_"//solsym(it),
[634]	175	. "cm/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	176	. "ave(X)", zsto,zout)
	177	#ifdef INCA_AER
	178	IF ((it .ge. trmx) .and. (it .le. trnx)) then
	179	CALL histdef(nid_tra2, "Sed_"//solsym(it), "Sed_"//solsym(it),
[634]	180	. "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	181	. "ave(X)", zsto,zout)
	182	CALL histdef(nid_tra2, "Dry_"//solsym(it), "Dry_"//solsym(it),
[634]	183	. "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	184	. "ave(X)", zsto,zout)
	185	CALL histdef(nid_tra2, "Wet_"//solsym(it), "Wet_"//solsym(it),
[634]	186	. "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	187	. "ave(X)", zsto,zout)
	188	CALL histdef(nid_tra2, "WetST_"//solsym(it), "WetST_"//solsym(it),
[634]	189	. "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	190	. "ave(X)", zsto,zout)
	191	CALL histdef(nid_tra2, "WetCV_"//solsym(it), "WetCV_"//solsym(it),
[634]	192	. "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	193	. "ave(X)", zsto,zout)
	194	CALL histdef(nid_tra2, "Emi_alt_"//solsym(it), "Emi_alt_"//solsym(it),
[634]	195	. "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	196	. "ave(X)", zsto,zout)
	197	CALL histdef(nid_tra2, "Load_"//solsym(it), "Load_"//solsym(it),
[634]	198	. "kg/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	199	. "ave(X)", zsto,zout)
	200	CALL histdef(nid_tra2, "SConc_"//solsym(it), "SConc_"//solsym(it),
[634]	201	. "kg/m3", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	202	. "ave(X)", zsto,zout)
	203	do la=1,las
	204	CALL histdef(nid_tra2, "OD_"//cla(la)//solsym(it),
	205	. "OD_"//cla(la)//solsym(it),
[634]	206	. "opt. depth", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	207	. "ave(X)", zsto,zout)
	208	enddo
	209	CALL histdef(nid_tra2, "MD_"//solsym(it), "MD_"//solsym(it),
[634]	210	. "median diameter", iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
[524]	211	. "ave(X)", zsto,zout)
	212	CALL histdef(nid_tra3, "Inst_Load_"//solsym(it),
	213	. "Inst_Load_"//solsym(it),
[634]	214	. "kg/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	215	. "inst(X)", zout,zout)
	216	endif
	217	#endif
	218	CALL histdef(nid_tra, solsym(it), solsym(it), "VMR",
[634]	219	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	220	. "ave(X)", zsto,zout)
	221	#else
	222	iq=it+2
	223	iiq=niadv(iq)
	224	CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga",
[634]	225	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	226	. "ave(X)", zsto,zout)
	227	if (lessivage) THEN
	228	CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
[634]	229	. "U/m2/s",iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	230	. "ave(X)", zsto,zout)
	231	endif
[549]	232
	233	c---Ajout Olivia
	234	CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
	235	. "tendance thermique"// ttext(iiq), "?",
[634]	236	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[549]	237	. "ave(X)", zsto,zout)
	238	CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
	239	. "tendance convection"// ttext(iiq), "?",
[634]	240	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[549]	241	. "ave(X)", zsto,zout)
	242	CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
	243	. "tendance couche limite"// ttext(iiq), "?",
[634]	244	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[549]	245	. "ave(X)", zsto,zout)
	246	c---fin Olivia
	247
[524]	248	#endif
	249	ENDDO
[549]	250
[524]	251	#ifdef INCA
[616]	252	!#ifdef INCA_CH4
[524]	253	CALL histdef(nid_tra, "O3_column", "O3_column",
[634]	254	. "DU", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	255	. "ave(X)", zsto,zout)
	256	CALL histdef(nid_tra, "CO_column", "CO_column",
[634]	257	. "10^18 CM-2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	258	. "ave(X)", zsto,zout)
	259	CALL histdef(nid_tra, "CH4_column", "CH4_column",
[634]	260	. "10^18 CM-2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	261	. "ave(X)", zsto,zout)
	262	CALL histdef(nid_tra, "NO2_column", "NO2_column",
[634]	263	. "10^15 CM-2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	264	. "ave(X)", zsto,zout)
	265	CALL histdef(nid_tra, "O3_ste", "O3_ste",
[634]	266	. "CM-2 S-1", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	267	. "ave(X)", zsto,zout)
	268	CALL histdef(nid_tra, "O3_prod", "O3_prod", "CM-3 S-1",
[634]	269	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	270	. "ave(X)", zsto,zout)
	271	CALL histdef(nid_tra, "O3_loss", "O3_loss", "CM-3 S-1",
[634]	272	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	273	. "ave(X)", zsto,zout)
	274
	275	! Special variables for daytime averaging
	276	! CALL histdef(nid_tra, "day_cnt", "day_cnt", "-",
	277	! . iim,jjm+1,nhori, klev,1,klev,nvert, 32,
	278	! . "t_sum(X)", zsto,zout)
	279	! CALL histdef(nid_tra, "NO_day", "NO_day", "VMR",
	280	! . iim,jjm+1,nhori, klev,1,klev,nvert, 32,
	281	! . "t_sum(X)", zsto,zout)
	282
[616]	283	!#ENDIF
	284
[624]	285	!! Ajout Anne
	286	#ifdef INCA_AER
	287	! for sulfur cycle
	288	CALL histdef(nid_tra, "SO2_p_dmsoh", "SO2_p_dmsoh", "CM-3 S-1",
[634]	289	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	290	. "ave(X)", zsto,zout)
	291	CALL histdef(nid_tra, "SO2_p_dmsno3", "SO2_p_dmsno3", "CM-3 S-1",
[634]	292	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	293	. "ave(X)", zsto,zout)
	294	CALL histdef(nid_tra, "SO2_p_h2soh", "SO2_p_h2soh", "CM-3 S-1",
[634]	295	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	296	. "ave(X)", zsto,zout)
	297	CALL histdef(nid_tra, "SO2_p_dmsooh", "SO2_p_dmsooh", "CM-3 S-1",
[634]	298	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	299	. "ave(X)", zsto,zout)
	300	CALL histdef(nid_tra, "DMSO_p_dmsoh", "DMSO_p_dmsoh", "CM-3 S-1",
[634]	301	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	302	. "ave(X)", zsto,zout)
	303	CALL histdef(nid_tra, "ASMSAM_p_dmsooh", "ASMSAM_p_dmsooh", "CM-3 S-1",
[634]	304	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	305	. "ave(X)", zsto,zout)
	306	CALL histdef(nid_tra, "ASSO4M_p_so2oh", "ASSO4M_p_so2oh", "CM-3 S-1",
[634]	307	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	308	. "ave(X)", zsto,zout)
	309	CALL histdef(nid_tra, "ASSO4M_p_so2h2o2", "ASSO4M_p_h2o2","CM-3 S-1",
[634]	310	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	311	. "ave(X)", zsto,zout)
	312	CALL histdef(nid_tra, "ASSO4M_p_so2o3", "ASSO4M_p_so2o3", "CM-3 S-1",
[634]	313	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	314	. "ave(X)", zsto,zout)
	315
	316	CALL histdef(nid_tra, "Wet3D_SO2", "Wet3D_SO2",
[634]	317	. "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	318	. "ave(X)", zsto,zout)
	319	CALL histdef(nid_tra, "Wet3D_DMS", "Wet3D_DMS",
[634]	320	. "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	321	. "ave(X)", zsto,zout)
	322	CALL histdef(nid_tra, "Wet3D_HNO3", "Wet3D_HNO3",
[634]	323	. "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	324	. "ave(X)", zsto,zout)
	325	CALL histdef(nid_tra, "Wet3D_H2O2", "Wet3D_H2O2",
[634]	326	. "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	327	. "ave(X)", zsto,zout)
	328
	329	CALL histdef(nid_tra, "PH_HIST", "pH over physics time step", "1",
[634]	330	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	331	. "ave(X)", zsto,zout)
	332	#endif
	333
	334	#ifdef INCA_NMHC
	335	CALL histdef(nid_tra, "CO2_basprod", "CO2_basprod", "CM-3 S-1",
[634]	336	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	337	. "ave(X)", zsto,zout)
	338	CALL histdef(nid_tra, "CO2_nmhcprod", "CO2_nmhcprod", "CM-3 S-1",
[634]	339	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	340	. "ave(X)", zsto,zout)
	341	CALL histdef(nid_tra, "CO2_radicalprod", "CO2_radicalprod", "CM-3 S-1",
[634]	342	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	343	. "ave(X)", zsto,zout)
	344	CALL histdef(nid_tra, "HNO3_prod", "HNO3_prod", "CM-3 S-1",
[634]	345	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	346	. "ave(X)", zsto,zout)
	347	CALL histdef(nid_tra, "HNO3_loss", "HNO3_loss", "CM-3 S-1",
[634]	348	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	349	. "ave(X)", zsto,zout)
	350	CALL histdef(nid_tra, "CO_prod", "CO_prod", "CM-3 S-1",
[634]	351	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	352	. "ave(X)", zsto,zout)
	353	CALL histdef(nid_tra, "CO_loss", "CO_loss", "CM-3 S-1",
[634]	354	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[624]	355	. "ave(X)", zsto,zout)
	356	#endif
	357	! Fin ajout Anne
[524]	358	#else
	359	CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
[634]	360	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	361	. "inst(X)", zsto,zout)
	362
	363	CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
[634]	364	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	365	. "inst(X)", zsto,zout)
	366	CALL histdef(nid_tra, "psrf1", "nature sol", "-",
[634]	367	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	368	. "inst(X)", zsto,zout)
	369	CALL histdef(nid_tra, "psrf2", "nature sol", "-",
[634]	370	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	371	. "inst(X)", zsto,zout)
	372	CALL histdef(nid_tra, "psrf3", "nature sol", "-",
[634]	373	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	374	. "inst(X)", zsto,zout)
	375	CALL histdef(nid_tra, "psrf4", "nature sol", "-",
[634]	376	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	377	. "inst(X)", zsto,zout)
	378	CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
[634]	379	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	380	. "inst(X)", zsto,zout)
	381	CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
[634]	382	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	383	. "inst(X)", zsto,zout)
	384	CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
[634]	385	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	386	. "inst", zsto,zout)
	387	CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
[634]	388	. iim,jjphy_nb,nhori, 1,1,1, -99, 32,
[524]	389	. "inst(X)", zsto,zout)
	390	CALL histdef(nid_tra, "pplay", "flux u mont","-",
[634]	391	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	392	. "inst(X)", zsto,zout)
	393	CALL histdef(nid_tra, "t", "flux u mont","-",
[634]	394	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	395	. "inst(X)", zsto,zout)
	396	CALL histdef(nid_tra, "mfu", "flux u mont","-",
[634]	397	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	398	. "ave(X)", zsto,zout)
	399	CALL histdef(nid_tra, "mfd", "flux u decen","-",
[634]	400	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	401	. "ave(X)", zsto,zout)
	402	CALL histdef(nid_tra, "en_u", "flux u mont","-",
[634]	403	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	404	. "ave(X)", zsto,zout)
	405	CALL histdef(nid_tra, "en_d", "flux u mont","-",
[634]	406	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	407	. "ave(X)", zsto,zout)
	408	CALL histdef(nid_tra, "de_d", "flux u mont","-",
[634]	409	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	410	. "ave(X)", zsto,zout)
	411	CALL histdef(nid_tra, "de_u", "flux u decen","-",
[634]	412	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	413	. "ave(X)", zsto,zout)
	414	CALL histdef(nid_tra, "coefh", "turbulent coef","-",
[634]	415	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
[524]	416	. "ave(X)", zsto,zout)
	417
	418	#endif
	419	c
	420	CALL histend(nid_tra)
	421	#ifdef INCA_AER
	422	CALL histend(nid_tra2)
	423	CALL histend(nid_tra3)
	424	#endif
	425	ndex2d = 0
	426	ndex3d = 0
	427	ndex = 0

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

Context Navigation

source: LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histrac.h @ 694

Download in other formats: