Context Navigation

source: dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/ini_bilKP_ave.h @ 3882

Last change on this file since 3882 was 3819, checked in by ymipsl, 10 years ago

Removed all iim et jjm depedency. Replaced by nbp_lon and nbp_lat.
Supress gr_fi_ecrit, replaced by grid1dTo2d_glo

YM

Property svn:eol-style set to native
Property svn:executable set to *

File size: 8.4 KB

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

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

Download in other formats: