Home

Context Navigation

source: palm/trunk/SOURCE/average_3d_data.f90 @ 1781

Last change on this file since 1781 was 1692, checked in by maronga, 9 years ago
last commit documented
Property svn:keywords set to `Id`
File size: 18.2 KB

Line
1	!> @file average_3d_data.f90
2	!--------------------------------------------------------------------------------!
3	! This file is part of PALM.
4	!
5	! PALM is free software: you can redistribute it and/or modify it under the terms
6	! of the GNU General Public License as published by the Free Software Foundation,
7	! either version 3 of the License, or (at your option) any later version.
8	!
9	! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
10	! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
11	! A PARTICULAR PURPOSE. See the GNU General Public License for more details.
12	!
13	! You should have received a copy of the GNU General Public License along with
14	! PALM. If not, see <http://www.gnu.org/licenses/>.
15	!
16	! Copyright 1997-2015 Leibniz Universitaet Hannover
17	!--------------------------------------------------------------------------------!
18	!
19	! Current revisions:
20	! -----------------
21	!
22	!
23	! Former revisions:
24	! -----------------
25	! $Id: average_3d_data.f90 1692 2015-10-26 16:29:17Z raasch $
26	!
27	! 1691 2015-10-26 16:17:44Z maronga
28	! Added output of Obukhov length and radiative heating rates for RRTMG.
29	!
30	! 1682 2015-10-07 23:56:08Z knoop
31	! Code annotations made doxygen readable
32	!
33	! 1585 2015-04-30 07:05:52Z maronga
34	! Adapted for RRTMG
35	!
36	! 1555 2015-03-04 17:44:27Z maronga
37	! Added output of r_a and r_s
38	!
39	! 1551 2015-03-03 14:18:16Z maronga
40	! Added support for land surface and radiation model parameters.
41	!
42	! 1322 2014-03-20 16:38:49Z raasch
43	! REAL functions provided with KIND-attribute
44	!
45	! 1320 2014-03-20 08:40:49Z raasch
46	! ONLY-attribute added to USE-statements,
47	! kind-parameters added to all INTEGER and REAL declaration statements,
48	! kinds are defined in new module kinds,
49	! revision history before 2012 removed,
50	! comment fields (!:) to be used for variable explanations added to
51	! all variable declaration statements
52	!
53	! 1318 2014-03-17 13:35:16Z raasch
54	! barrier argument removed from cpu_log,
55	! module interfaces removed
56	!
57	! 1115 2013-03-26 18:16:16Z hoffmann
58	! +qc
59	!
60	! 1053 2012-11-13 17:11:03Z hoffmann
61	! averaging of nr, qr added
62	!
63	! 1036 2012-10-22 13:43:42Z raasch
64	! code put under GPL (PALM 3.9)
65	!
66	! 978 2012-08-09 08:28:32Z fricke
67	! +z0h_av
68	!
69	! Revision 1.1 2006/02/23 09:48:58 raasch
70	! Initial revision
71	!
72	!
73	! Description:
74	! ------------
75	!> Time-averaging of 3d-data-arrays.
76	!------------------------------------------------------------------------------!
77	SUBROUTINE average_3d_data
78
79
80	USE averaging
81
82	USE control_parameters, &
83	ONLY: average_count_3d, doav, doav_n
84
85	USE cpulog, &
86	ONLY: cpu_log, log_point
87
88	USE indices, &
89	ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
90
91	USE kinds
92
93	USE land_surface_model_mod, &
94	ONLY: c_liq_av, c_soil_av, c_veg_av, ghf_eb_av, lai_av, m_liq_eb_av, &
95	m_soil_av, nzb_soil, nzt_soil, qsws_eb_av, qsws_liq_eb_av, &
96	qsws_soil_eb_av, qsws_veg_eb_av, r_a, r_a_av, r_s, r_s_av, &
97	shf_eb_av, t_soil_av
98
99	USE radiation_model_mod, &
100	ONLY: rad_net, rad_net_av, rad_lw_in, rad_lw_in_av, rad_lw_out, &
101	rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, &
102	rad_lw_hr_av, rad_sw_in, rad_sw_in_av, rad_sw_out, &
103	rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, &
104	rad_sw_hr_av
105
106
107	IMPLICIT NONE
108
109	INTEGER(iwp) :: i !<
110	INTEGER(iwp) :: ii !<
111	INTEGER(iwp) :: j !<
112	INTEGER(iwp) :: k !<
113
114
115	CALL cpu_log (log_point(35),'average_3d_data','start')
116
117	!
118	!-- Check, if averaging is necessary
119	IF ( average_count_3d <= 1 ) RETURN
120
121	!
122	!-- Loop of all variables to be averaged.
123	DO ii = 1, doav_n
124
125	!
126	!-- Store the array chosen on the temporary array.
127	SELECT CASE ( TRIM( doav(ii) ) )
128
129	CASE ( 'c_liq*' )
130	DO i = nxlg, nxrg
131	DO j = nysg, nyng
132	c_liq_av(j,i) = c_liq_av(j,i) / REAL( average_count_3d, KIND=wp )
133	ENDDO
134	ENDDO
135
136	CASE ( 'c_soil*' )
137	DO i = nxlg, nxrg
138	DO j = nysg, nyng
139	c_soil_av(j,i) = c_soil_av(j,i) / REAL( average_count_3d, KIND=wp )
140	ENDDO
141	ENDDO
142
143	CASE ( 'c_veg*' )
144	DO i = nxlg, nxrg
145	DO j = nysg, nyng
146	c_veg_av(j,i) = c_veg_av(j,i) / REAL( average_count_3d, KIND=wp )
147	ENDDO
148	ENDDO
149
150	CASE ( 'e' )
151	DO i = nxlg, nxrg
152	DO j = nysg, nyng
153	DO k = nzb, nzt+1
154	e_av(k,j,i) = e_av(k,j,i) / REAL( average_count_3d, KIND=wp )
155	ENDDO
156	ENDDO
157	ENDDO
158
159	CASE ( 'ghf_eb*' )
160	DO i = nxlg, nxrg
161	DO j = nysg, nyng
162	ghf_eb_av(j,i) = ghf_eb_av(j,i) / REAL( average_count_3d, KIND=wp )
163	ENDDO
164	ENDDO
165
166	CASE ( 'qsws*' )
167	DO i = nxlg, nxrg
168	DO j = nysg, nyng
169	qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d, KIND=wp )
170	ENDDO
171	ENDDO
172
173	CASE ( 'lai*' )
174	DO i = nxlg, nxrg
175	DO j = nysg, nyng
176	lai_av(j,i) = lai_av(j,i) / REAL( average_count_3d, KIND=wp )
177	ENDDO
178	ENDDO
179
180	CASE ( 'lpt' )
181	DO i = nxlg, nxrg
182	DO j = nysg, nyng
183	DO k = nzb, nzt+1
184	lpt_av(k,j,i) = lpt_av(k,j,i) / REAL( average_count_3d, KIND=wp )
185	ENDDO
186	ENDDO
187	ENDDO
188
189	CASE ( 'lwp*' )
190	DO i = nxlg, nxrg
191	DO j = nysg, nyng
192	lwp_av(j,i) = lwp_av(j,i) / REAL( average_count_3d, KIND=wp )
193	ENDDO
194	ENDDO
195
196	CASE ( 'm_liq_eb*' )
197	DO i = nxlg, nxrg
198	DO j = nysg, nyng
199	m_liq_eb_av(j,i) = m_liq_eb_av(j,i) / REAL( average_count_3d, KIND=wp )
200	ENDDO
201	ENDDO
202
203	CASE ( 'm_soil' )
204	DO i = nxlg, nxrg
205	DO j = nysg, nyng
206	DO k = nzb_soil, nzt_soil
207	m_soil_av(k,j,i) = m_soil_av(k,j,i) / REAL( average_count_3d, KIND=wp )
208	ENDDO
209	ENDDO
210	ENDDO
211
212	CASE ( 'nr' )
213	DO i = nxlg, nxrg
214	DO j = nysg, nyng
215	DO k = nzb, nzt+1
216	nr_av(k,j,i) = nr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
217	ENDDO
218	ENDDO
219	ENDDO
220
221	CASE ( 'ol*' )
222	DO i = nxlg, nxrg
223	DO j = nysg, nyng
224	ol_av(j,i) = ol_av(j,i) / REAL( average_count_3d, KIND=wp )
225	ENDDO
226	ENDDO
227
228	CASE ( 'p' )
229	DO i = nxlg, nxrg
230	DO j = nysg, nyng
231	DO k = nzb, nzt+1
232	p_av(k,j,i) = p_av(k,j,i) / REAL( average_count_3d, KIND=wp )
233	ENDDO
234	ENDDO
235	ENDDO
236
237	CASE ( 'pc' )
238	DO i = nxl, nxr
239	DO j = nys, nyn
240	DO k = nzb, nzt+1
241	pc_av(k,j,i) = pc_av(k,j,i) / REAL( average_count_3d, KIND=wp )
242	ENDDO
243	ENDDO
244	ENDDO
245
246	CASE ( 'pr' )
247	DO i = nxl, nxr
248	DO j = nys, nyn
249	DO k = nzb, nzt+1
250	pr_av(k,j,i) = pr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
251	ENDDO
252	ENDDO
253	ENDDO
254
255	CASE ( 'prr*' )
256	DO i = nxlg, nxrg
257	DO j = nysg, nyng
258	precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / &
259	REAL( average_count_3d, KIND=wp )
260	ENDDO
261	ENDDO
262
263	CASE ( 'pt' )
264	DO i = nxlg, nxrg
265	DO j = nysg, nyng
266	DO k = nzb, nzt+1
267	pt_av(k,j,i) = pt_av(k,j,i) / REAL( average_count_3d, KIND=wp )
268	ENDDO
269	ENDDO
270	ENDDO
271
272	CASE ( 'q' )
273	DO i = nxlg, nxrg
274	DO j = nysg, nyng
275	DO k = nzb, nzt+1
276	q_av(k,j,i) = q_av(k,j,i) / REAL( average_count_3d, KIND=wp )
277	ENDDO
278	ENDDO
279	ENDDO
280
281	CASE ( 'qc' )
282	DO i = nxlg, nxrg
283	DO j = nysg, nyng
284	DO k = nzb, nzt+1
285	qc_av(k,j,i) = qc_av(k,j,i) / REAL( average_count_3d, KIND=wp )
286	ENDDO
287	ENDDO
288	ENDDO
289
290	CASE ( 'ql' )
291	DO i = nxlg, nxrg
292	DO j = nysg, nyng
293	DO k = nzb, nzt+1
294	ql_av(k,j,i) = ql_av(k,j,i) / REAL( average_count_3d, KIND=wp )
295	ENDDO
296	ENDDO
297	ENDDO
298
299	CASE ( 'ql_c' )
300	DO i = nxlg, nxrg
301	DO j = nysg, nyng
302	DO k = nzb, nzt+1
303	ql_c_av(k,j,i) = ql_c_av(k,j,i) / REAL( average_count_3d, KIND=wp )
304	ENDDO
305	ENDDO
306	ENDDO
307
308	CASE ( 'ql_v' )
309	DO i = nxlg, nxrg
310	DO j = nysg, nyng
311	DO k = nzb, nzt+1
312	ql_v_av(k,j,i) = ql_v_av(k,j,i) / REAL( average_count_3d, KIND=wp )
313	ENDDO
314	ENDDO
315	ENDDO
316
317	CASE ( 'ql_vp' )
318	DO i = nxlg, nxrg
319	DO j = nysg, nyng
320	DO k = nzb, nzt+1
321	ql_vp_av(k,j,i) = ql_vp_av(k,j,i) / &
322	REAL( average_count_3d, KIND=wp )
323	ENDDO
324	ENDDO
325	ENDDO
326
327	CASE ( 'qr' )
328	DO i = nxlg, nxrg
329	DO j = nysg, nyng
330	DO k = nzb, nzt+1
331	qr_av(k,j,i) = qr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
332	ENDDO
333	ENDDO
334	ENDDO
335
336	CASE ( 'qsws_eb*' )
337	DO i = nxlg, nxrg
338	DO j = nysg, nyng
339	qsws_eb_av(j,i) = qsws_eb_av(j,i) / REAL( average_count_3d, KIND=wp )
340	ENDDO
341	ENDDO
342
343	CASE ( 'qsws_liq_eb*' )
344	DO i = nxlg, nxrg
345	DO j = nysg, nyng
346	qsws_liq_eb_av(j,i) = qsws_liq_eb_av(j,i) / REAL( average_count_3d, KIND=wp )
347	ENDDO
348	ENDDO
349
350	CASE ( 'qsws_soil_eb*' )
351	DO i = nxlg, nxrg
352	DO j = nysg, nyng
353	qsws_soil_eb_av(j,i) = qsws_soil_eb_av(j,i) / REAL( average_count_3d, KIND=wp )
354	ENDDO
355	ENDDO
356
357	CASE ( 'qsws_veg_eb*' )
358	DO i = nxlg, nxrg
359	DO j = nysg, nyng
360	qsws_veg_eb_av(j,i) = qsws_veg_eb_av(j,i) / REAL( average_count_3d, KIND=wp )
361	ENDDO
362	ENDDO
363
364	CASE ( 'qv' )
365	DO i = nxlg, nxrg
366	DO j = nysg, nyng
367	DO k = nzb, nzt+1
368	qv_av(k,j,i) = qv_av(k,j,i) / REAL( average_count_3d, KIND=wp )
369	ENDDO
370	ENDDO
371	ENDDO
372
373	CASE ( 'rad_net*' )
374	DO i = nxlg, nxrg
375	DO j = nysg, nyng
376	rad_net_av(j,i) = rad_net_av(j,i) / REAL( average_count_3d, KIND=wp )
377	ENDDO
378	ENDDO
379
380	CASE ( 'rad_lw_in' )
381	DO i = nxlg, nxrg
382	DO j = nysg, nyng
383	DO k = nzb, nzt+1
384	rad_lw_in_av(k,j,i) = rad_lw_in_av(k,j,i) / REAL( average_count_3d, KIND=wp )
385	ENDDO
386	ENDDO
387	ENDDO
388
389	CASE ( 'rad_lw_out' )
390	DO i = nxlg, nxrg
391	DO j = nysg, nyng
392	DO k = nzb, nzt+1
393	rad_lw_out_av(k,j,i) = rad_lw_out_av(k,j,i) / REAL( average_count_3d, KIND=wp )
394	ENDDO
395	ENDDO
396	ENDDO
397
398	CASE ( 'rad_lw_cs_hr' )
399	DO i = nxlg, nxrg
400	DO j = nysg, nyng
401	DO k = nzb, nzt+1
402	rad_lw_cs_hr_av(k,j,i) = rad_lw_cs_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
403	ENDDO
404	ENDDO
405	ENDDO
406
407	CASE ( 'rad_lw_hr' )
408	DO i = nxlg, nxrg
409	DO j = nysg, nyng
410	DO k = nzb, nzt+1
411	rad_lw_hr_av(k,j,i) = rad_lw_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
412	ENDDO
413	ENDDO
414	ENDDO
415
416	CASE ( 'rad_sw_in' )
417	DO i = nxlg, nxrg
418	DO j = nysg, nyng
419	DO k = nzb, nzt+1
420	rad_sw_in_av(k,j,i) = rad_sw_in_av(k,j,i) / REAL( average_count_3d, KIND=wp )
421	ENDDO
422	ENDDO
423	ENDDO
424
425	CASE ( 'rad_sw_out' )
426	DO i = nxlg, nxrg
427	DO j = nysg, nyng
428	DO k = nzb, nzt+1
429	rad_sw_out_av(k,j,i) = rad_sw_out_av(k,j,i) / REAL( average_count_3d, KIND=wp )
430	ENDDO
431	ENDDO
432	ENDDO
433
434	CASE ( 'rad_sw_cs_hr' )
435	DO i = nxlg, nxrg
436	DO j = nysg, nyng
437	DO k = nzb, nzt+1
438	rad_sw_cs_hr_av(k,j,i) = rad_sw_cs_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
439	ENDDO
440	ENDDO
441	ENDDO
442
443	CASE ( 'rad_sw_hr' )
444	DO i = nxlg, nxrg
445	DO j = nysg, nyng
446	DO k = nzb, nzt+1
447	rad_sw_hr_av(k,j,i) = rad_sw_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
448	ENDDO
449	ENDDO
450	ENDDO
451
452	CASE ( 'r_a*' )
453	DO i = nxlg, nxrg
454	DO j = nysg, nyng
455	r_a_av(j,i) = r_a_av(j,i) / REAL( average_count_3d, KIND=wp )
456	ENDDO
457	ENDDO
458
459	CASE ( 'r_s*' )
460	DO i = nxlg, nxrg
461	DO j = nysg, nyng
462	r_s_av(j,i) = r_s_av(j,i) / REAL( average_count_3d, KIND=wp )
463	ENDDO
464	ENDDO
465
466	CASE ( 'rho' )
467	DO i = nxlg, nxrg
468	DO j = nysg, nyng
469	DO k = nzb, nzt+1
470	rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d, KIND=wp )
471	ENDDO
472	ENDDO
473	ENDDO
474
475	CASE ( 's' )
476	DO i = nxlg, nxrg
477	DO j = nysg, nyng
478	DO k = nzb, nzt+1
479	s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d, KIND=wp )
480	ENDDO
481	ENDDO
482	ENDDO
483
484	CASE ( 'sa' )
485	DO i = nxlg, nxrg
486	DO j = nysg, nyng
487	DO k = nzb, nzt+1
488	sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d, KIND=wp )
489	ENDDO
490	ENDDO
491	ENDDO
492
493	CASE ( 'shf*' )
494	DO i = nxlg, nxrg
495	DO j = nysg, nyng
496	shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d, KIND=wp )
497	ENDDO
498	ENDDO
499
500	CASE ( 't*' )
501	DO i = nxlg, nxrg
502	DO j = nysg, nyng
503	ts_av(j,i) = ts_av(j,i) / REAL( average_count_3d, KIND=wp )
504	ENDDO
505	ENDDO
506
507	CASE ( 't_soil' )
508	DO i = nxlg, nxrg
509	DO j = nysg, nyng
510	DO k = nzb_soil, nzt_soil
511	t_soil_av(k,j,i) = t_soil_av(k,j,i) / REAL( average_count_3d, KIND=wp )
512	ENDDO
513	ENDDO
514	ENDDO
515
516	CASE ( 'u' )
517	DO i = nxlg, nxrg
518	DO j = nysg, nyng
519	DO k = nzb, nzt+1
520	u_av(k,j,i) = u_av(k,j,i) / REAL( average_count_3d, KIND=wp )
521	ENDDO
522	ENDDO
523	ENDDO
524
525	CASE ( 'u*' )
526	DO i = nxlg, nxrg
527	DO j = nysg, nyng
528	us_av(j,i) = us_av(j,i) / REAL( average_count_3d, KIND=wp )
529	ENDDO
530	ENDDO
531
532	CASE ( 'v' )
533	DO i = nxlg, nxrg
534	DO j = nysg, nyng
535	DO k = nzb, nzt+1
536	v_av(k,j,i) = v_av(k,j,i) / REAL( average_count_3d, KIND=wp )
537	ENDDO
538	ENDDO
539	ENDDO
540
541	CASE ( 'vpt' )
542	DO i = nxlg, nxrg
543	DO j = nysg, nyng
544	DO k = nzb, nzt+1
545	vpt_av(k,j,i) = vpt_av(k,j,i) / REAL( average_count_3d, KIND=wp )
546	ENDDO
547	ENDDO
548	ENDDO
549
550	CASE ( 'w' )
551	DO i = nxlg, nxrg
552	DO j = nysg, nyng
553	DO k = nzb, nzt+1
554	w_av(k,j,i) = w_av(k,j,i) / REAL( average_count_3d, KIND=wp )
555	ENDDO
556	ENDDO
557	ENDDO
558
559	CASE ( 'z0*' )
560	DO i = nxlg, nxrg
561	DO j = nysg, nyng
562	z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d, KIND=wp )
563	ENDDO
564	ENDDO
565
566	CASE ( 'z0h*' )
567	DO i = nxlg, nxrg
568	DO j = nysg, nyng
569	z0h_av(j,i) = z0h_av(j,i) / REAL( average_count_3d, KIND=wp )
570	ENDDO
571	ENDDO
572
573	CASE DEFAULT
574	!
575	!-- User-defined quantity
576	CALL user_3d_data_averaging( 'average', doav(ii) )
577
578	END SELECT
579
580	ENDDO
581
582	!
583	!-- Reset the counter
584	average_count_3d = 0.0
585
586	CALL cpu_log( log_point(35), 'average_3d_data', 'stop' )
587
588
589	END SUBROUTINE average_3d_data

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |