Context Navigation

source: trunk/libf/phylmd/ini_bilKP_ave.h @ 1

Last change on this file since 1 was 1, checked in by emillour, 14 years ago
Import initial LMDZ5
File size: 8.9 KB

Rev	Line
[1]	1	c
	2	c $Id: ini_bilKP_ave.h 1403 2010-07-01 09:02:53Z fairhead $
	3	c
	4	IF (ok_journe) THEN
	5	c
	6	zsto = dtime
	7	zout = ecrit_day
	8	typeval=tave
	9	c
	10	idayref = day_ref
	11	CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
	12	c
	13	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
	14	cym DO i = 1, iim
	15	cym zx_lon(i,1) = rlon(i+1)
	16	cym zx_lon(i,jjmp1) = rlon(i+1)
	17	cym ENDDO
	18	DO ll=1,klev
	19	znivsig(ll)=REAL(ll)
	20	ENDDO
	21	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
	22	cym write(,)'zx_lon = ',zx_lon(:,1)
	23	cym write(,)'zx_lat = ',zx_lat(1,:)
	24	cym CALL histbeg("histbilKP_ave", iim,zx_lon(:,1), jjmp1,
	25	cym . zx_lat(1,:),
	26	cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
	27	cym . nhori, nid_bilKPave)
	28	CALL histbeg_phy("histbilKP_ave", itau_phy, zjulian, dtime,
	29	. nhori, nid_bilKPave)
	30
	31	write(,)'Journee ', itau_phy, zjulian
	32	CALL histvert(nid_bilKPave, "presnivs",
	33	. "Vertical levels","mb",
	34	. klev, presnivs/100., nvert)
	35	c
	36	c
	37	c Champs 3D:
	38	c
	39	CALL histdef(nid_bilKPave,"ue",
	40	. "Zonal energy transport","-",
	41	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	42	. typeval, zsto,zout)
	43	c
	44	CALL histdef(nid_bilKPave,"ve",
	45	. "Merid energy transport","-",
	46	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	47	. typeval, zsto,zout)
	48	c
	49	CALL histdef(nid_bilKPave,"uq",
	50	. "Zonal humidity transport","-",
	51	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	52	. typeval, zsto,zout)
	53	c
	54	CALL histdef(nid_bilKPave,"vq",
	55	. "Merid humidity transport","-",
	56	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	57	. typeval, zsto,zout)
	58	c
	59	c Champs 3D:
	60	c
	61	CALL histdef(nid_bilKPave,"temp",
	62	. "Air temperature","K",
	63	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	64	. typeval, zsto,zout)
	65	c
	66	CALL histdef(nid_bilKPave,"ovap",
	67	. "Specific humidity","Kg/Kg",
	68	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	69	. typeval, zsto,zout)
	70	c
	71	CALL histdef(nid_bilKPave,"geop",
	72	. "Geopotential height","m",
	73	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	74	. typeval, zsto,zout)
	75	c
	76	CALL histdef(nid_bilKPave,"vitu",
	77	. "Zonal wind","m/s",
	78	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	79	. typeval, zsto,zout)
	80	c
	81	CALL histdef(nid_bilKPave,"vitv",
	82	. "Meridional wind","m/s",
	83	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	84	. typeval, zsto,zout)
	85	c
	86	CALL histdef(nid_bilKPave, "vitw",
	87	. "Vertical wind", "m/s",
	88	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	89	. typeval, zsto,zout)
	90	c
	91	CALL histdef(nid_bilKPave, "pres",
	92	. "Inter-Layer Air pressure",
	93	. "Pa",
	94	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	95	. typeval, zsto,zout)
	96	c
	97	CALL histdef(nid_bilKPave, "play",
	98	. "Mean-Layer Air pressure",
	99	. "Pa",
	100	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	101	. typeval, zsto,zout)
	102	c
	103	CALL histdef(nid_bilKPave, "oliq",
	104	. "Liquid water content",
	105	. "kg/kg",
	106	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	107	. typeval, zsto,zout)
	108	c
	109	CALL histdef(nid_bilKPave, "dtdyn",
	110	. "Dynamics dT", "K/s",
	111	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	112	. typeval, zsto,zout)
	113	c
	114	CALL histdef(nid_bilKPave, "dqdyn",
	115	. "Dynamics dQ", "Kg/Kg/s",
	116	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	117	. typeval, zsto,zout)
	118	c
	119	CALL histdef(nid_bilKPave, "dtcon",
	120	. "Convection dT", "K/s",
	121	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	122	. typeval, zsto,zout)
	123	c
	124	CALL histdef(nid_bilKPave, "ducon",
	125	. "Convection du", "m/s2",
	126	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	127	. typeval, zsto,zout)
	128	c
	129	CALL histdef(nid_bilKPave, "dvcon",
	130	. "Convection dv", "m/s2",
	131	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	132	. typeval, zsto,zout)
	133	c
	134	CALL histdef(nid_bilKPave,"dqcon",
	135	. "Convection dQ","Kg/Kg/s",
	136	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	137	. typeval, zsto,zout)
	138	c
	139	CALL histdef(nid_bilKPave, "dtlsc",
	140	. "Condensation dT", "K/s",
	141	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	142	. typeval, zsto,zout)
	143	c
	144	CALL histdef(nid_bilKPave,"dqlsc",
	145	. "Condensation dQ","Kg/Kg/s",
	146	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	147	. typeval, zsto,zout)
	148	c
	149	CALL histdef(nid_bilKPave,"dtvdf",
	150	. "Boundary-layer dT","K/s",
	151	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	152	. typeval, zsto,zout)
	153	c
	154	CALL histdef(nid_bilKPave, "dqvdf",
	155	. "Boundary-layer dQ",
	156	. "Kg/Kg/s",
	157	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	158	. typeval, zsto,zout)
	159	c
	160	CALL histdef(nid_bilKPave,"dtajs",
	161	. "Ajustement sec dT","K/s",
	162	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	163	. typeval, zsto,zout)
	164	c
	165	CALL histdef(nid_bilKPave, "dqajs",
	166	. "Ajustement sec dQ",
	167	. "Kg/Kg/s",
	168	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	169	. typeval, zsto,zout)
	170	c
	171	CALL histdef(nid_bilKPave, "dteva",
	172	. "Reevaporation dT", "K/s",
	173	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	174	. typeval, zsto,zout)
	175	c
	176	CALL histdef(nid_bilKPave,"dqeva",
	177	. "Reevaporation dQ",
	178	. "Kg/Kg/s",
	179	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	180	. typeval, zsto,zout)
	181
	182	c
	183	CALL histdef(nid_bilKPave, "dtswr",
	184	. "SW radiation dT", "K/s",
	185	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	186	. typeval, zsto,zout)
	187	c
	188	CALL histdef(nid_bilKPave, "dtsw0",
	189	. "SW radiation dT", "K/s",
	190	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	191	. typeval, zsto,zout)
	192	c
	193	CALL histdef(nid_bilKPave, "dtlwr",
	194	. "LW radiation dT", "K/s",
	195	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	196	. typeval, zsto,zout)
	197	c
	198	CALL histdef(nid_bilKPave, "dtlw0",
	199	. "LW radiation dT", "K/s",
	200	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	201	. typeval, zsto,zout)
	202	c
	203	CALL histdef(nid_bilKPave,"duvdf",
	204	. "Boundary-layer dU","m/s2",
	205	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	206	. typeval, zsto,zout)
	207	c
	208	CALL histdef(nid_bilKPave,"dvvdf",
	209	. "Boundary-layer dV","m/s2",
	210	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	211	. typeval, zsto,zout)
	212	c
	213	IF (ok_orodr) THEN
	214	IF (ok_orolf) THEN
	215	CALL histdef(nid_bilKPave, "duoli",
	216	. "Orography dU", "m/s2",
	217	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	218	. typeval, zsto,zout)
	219	c
	220	CALL histdef(nid_bilKPave, "dvoli",
	221	. "Orography dV", "m/s2",
	222	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	223	. typeval, zsto,zout)
	224	c
	225	ENDIF
	226	ENDIF
	227	C
	228	CALL histdef(nid_bilKPave, "duphy",
	229	. "Physiq dU","-",
	230	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	231	. typeval, zsto,zout)
	232	C
	233	CALL histdef(nid_bilKPave, "dvphy",
	234	. "Physiq dV","-",
	235	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	236	. typeval, zsto,zout)
	237	C
	238	CALL histdef(nid_bilKPave, "dtphy",
	239	. "Physiq dT","-",
	240	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	241	. typeval, zsto,zout)
	242	C
	243	CALL histdef(nid_bilKPave, "dqphy",
	244	. "Physiq dQ","-",
	245	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	246	. typeval, zsto,zout)
	247	C
	248	CALL histdef(nid_bilKPave, "dqlphy",
	249	. "Physiq dQl","-",
	250	. iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
	251	. typeval, zsto,zout)
	252	C
	253	C
	254	CALL histend(nid_bilKPave)
	255	c
	256	ndex2d = 0
	257	ndex3d = 0
	258	c
	259	ENDIF ! fin de test sur ok_journe

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

Download in other formats: