Home

Context Navigation

source: palm/trunk/SOURCE/sum_up_3d_data.f90 @ 1973

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

Rev	Line
[1682]	1	!> @file sum_up_3d_data.f90
[1036]	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	!
[1818]	16	! Copyright 1997-2016 Leibniz Universitaet Hannover
[1036]	17	!--------------------------------------------------------------------------------!
	18	!
[484]	19	! Current revisions:
[1]	20	! -----------------
[1360]	21	!
[1973]	22	!
[1321]	23	! Former revisions:
	24	! -----------------
	25	! $Id: sum_up_3d_data.f90 1973 2016-07-26 07:52:45Z maronga $
	26	!
[1973]	27	! 1972 2016-07-26 07:52:02Z maronga
	28	! Land surface actions are now done directly in the respective module
	29	!
[1961]	30	! 1960 2016-07-12 16:34:24Z suehring
	31	! Scalar surface flux added
	32	!
[1950]	33	! 1949 2016-06-17 07:19:16Z maronga
	34	! Bugfix: calculation of lai_av, c_veg_av and c_liq_av.
	35	!
[1851]	36	! 1849 2016-04-08 11:33:18Z hoffmann
	37	! precipitation_rate moved to arrays_3d
[1852]	38	!
[1789]	39	! 1788 2016-03-10 11:01:04Z maronga
	40	! Added z0q and z0q_av
	41	!
[1694]	42	! 1693 2015-10-27 08:35:45Z maronga
	43	! Last revision text corrected
	44	!
[1692]	45	! 1691 2015-10-26 16:17:44Z maronga
	46	! Added output of Obukhov length and radiative heating rates for RRTMG.
[1693]	47	! Corrected output of liquid water path.
[1692]	48	!
[1683]	49	! 1682 2015-10-07 23:56:08Z knoop
	50	! Code annotations made doxygen readable
	51	!
[1586]	52	! 1585 2015-04-30 07:05:52Z maronga
	53	! Adapted for RRTMG
	54	!
[1556]	55	! 1555 2015-03-04 17:44:27Z maronga
	56	! Added output of r_a and r_s
	57	!
[1552]	58	! 1551 2015-03-03 14:18:16Z maronga
	59	! Added support for land surface model and radiation model data.
	60	!
[1360]	61	! 1359 2014-04-11 17:15:14Z hoffmann
	62	! New particle structure integrated.
	63	!
[1354]	64	! 1353 2014-04-08 15:21:23Z heinze
	65	! REAL constants provided with KIND-attribute
	66	!
[1321]	67	! 1320 2014-03-20 08:40:49Z raasch
[1320]	68	! ONLY-attribute added to USE-statements,
	69	! kind-parameters added to all INTEGER and REAL declaration statements,
	70	! kinds are defined in new module kinds,
	71	! old module precision_kind is removed,
	72	! revision history before 2012 removed,
	73	! comment fields (!:) to be used for variable explanations added to
	74	! all variable declaration statements
[1]	75	!
[1319]	76	! 1318 2014-03-17 13:35:16Z raasch
	77	! barrier argument removed from cpu_log,
	78	! module interfaces removed
	79	!
[1116]	80	! 1115 2013-03-26 18:16:16Z hoffmann
	81	! ql is calculated by calc_liquid_water_content
	82	!
[1054]	83	! 1053 2012-11-13 17:11:03Z hoffmann
	84	! +nr, prr, qr
	85	!
[1037]	86	! 1036 2012-10-22 13:43:42Z raasch
	87	! code put under GPL (PALM 3.9)
	88	!
[1008]	89	! 1007 2012-09-19 14:30:36Z franke
	90	! Bugfix in calculation of ql_vp
	91	!
[979]	92	! 978 2012-08-09 08:28:32Z fricke
	93	! +z0h*
	94	!
[1]	95	! Revision 1.1 2006/02/23 12:55:23 raasch
	96	! Initial revision
	97	!
	98	!
	99	! Description:
	100	! ------------
[1682]	101	!> Sum-up the values of 3d-arrays. The real averaging is later done in routine
	102	!> average_3d_data.
[1]	103	!------------------------------------------------------------------------------!
[1682]	104	SUBROUTINE sum_up_3d_data
	105
[1]	106
[1320]	107	USE arrays_3d, &
[1849]	108	ONLY: dzw, e, nr, ol, p, pt, precipitation_rate, q, qc, ql, ql_c, &
[1960]	109	ql_v, qr, qsws, rho, sa, shf, ssws, ts, u, us, v, vpt, w, z0, &
	110	z0h, z0q
[1]	111
[1320]	112	USE averaging, &
[1691]	113	ONLY: e_av, lpt_av, lwp_av, nr_av, ol_av, p_av, pc_av, pr_av, prr_av, &
[1320]	114	precipitation_rate_av, pt_av, q_av, qc_av, ql_av, ql_c_av, &
	115	ql_v_av, ql_vp_av, qr_av, qsws_av, qv_av, rho_av, s_av, sa_av, &
[1960]	116	shf_av, ssws_av, ts_av, u_av, us_av, v_av, vpt_av, w_av, z0_av, &
	117	z0h_av, z0q_av
[1320]	118
	119	USE cloud_parameters, &
[1849]	120	ONLY: l_d_cp, pt_d_t
[1320]	121
	122	USE control_parameters, &
[1691]	123	ONLY: average_count_3d, cloud_physics, doav, doav_n, rho_surface
[1320]	124
	125	USE cpulog, &
	126	ONLY: cpu_log, log_point
	127
	128	USE indices, &
	129	ONLY: nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
	130
	131	USE kinds
	132
[1551]	133	USE land_surface_model_mod, &
[1972]	134	ONLY: land_surface, lsm_3d_data_averaging
[1551]	135
[1320]	136	USE particle_attributes, &
[1359]	137	ONLY: grid_particles, number_of_particles, particles, prt_count
[1320]	138
[1551]	139	USE radiation_model_mod, &
[1585]	140	ONLY: rad_net, rad_net_av, rad_sw_in, rad_sw_in_av, rad_sw_out, &
[1691]	141	rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, &
	142	rad_sw_hr_av, rad_lw_in, rad_lw_in_av, rad_lw_out, &
	143	rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, &
	144	rad_lw_hr_av
[1551]	145
[1691]	146
[1]	147	IMPLICIT NONE
	148
[1682]	149	INTEGER(iwp) :: i !<
	150	INTEGER(iwp) :: ii !<
	151	INTEGER(iwp) :: j !<
	152	INTEGER(iwp) :: k !<
	153	INTEGER(iwp) :: n !<
	154	INTEGER(iwp) :: psi !<
[1]	155
[1682]	156	REAL(wp) :: mean_r !<
	157	REAL(wp) :: s_r2 !<
	158	REAL(wp) :: s_r3 !<
[1]	159
	160	CALL cpu_log (log_point(34),'sum_up_3d_data','start')
	161
	162	!
	163	!-- Allocate and initialize the summation arrays if called for the very first
	164	!-- time or the first time after average_3d_data has been called
	165	!-- (some or all of the arrays may have been already allocated
	166	!-- in read_3d_binary)
	167	IF ( average_count_3d == 0 ) THEN
	168
	169	DO ii = 1, doav_n
	170
	171	SELECT CASE ( TRIM( doav(ii) ) )
	172
	173	CASE ( 'e' )
	174	IF ( .NOT. ALLOCATED( e_av ) ) THEN
[667]	175	ALLOCATE( e_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	176	ENDIF
[1353]	177	e_av = 0.0_wp
[1]	178
[771]	179	CASE ( 'lpt' )
	180	IF ( .NOT. ALLOCATED( lpt_av ) ) THEN
	181	ALLOCATE( lpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	182	ENDIF
[1353]	183	lpt_av = 0.0_wp
[771]	184
[1]	185	CASE ( 'lwp*' )
	186	IF ( .NOT. ALLOCATED( lwp_av ) ) THEN
[667]	187	ALLOCATE( lwp_av(nysg:nyng,nxlg:nxrg) )
[1]	188	ENDIF
[1353]	189	lwp_av = 0.0_wp
[1]	190
[1053]	191	CASE ( 'nr' )
	192	IF ( .NOT. ALLOCATED( nr_av ) ) THEN
	193	ALLOCATE( nr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	194	ENDIF
[1353]	195	nr_av = 0.0_wp
[1053]	196
[1691]	197	CASE ( 'ol*' )
	198	IF ( .NOT. ALLOCATED( ol_av ) ) THEN
	199	ALLOCATE( ol_av(nysg:nyng,nxlg:nxrg) )
	200	ENDIF
	201	ol_av = 0.0_wp
	202
[1]	203	CASE ( 'p' )
	204	IF ( .NOT. ALLOCATED( p_av ) ) THEN
[667]	205	ALLOCATE( p_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	206	ENDIF
[1353]	207	p_av = 0.0_wp
[1]	208
	209	CASE ( 'pc' )
	210	IF ( .NOT. ALLOCATED( pc_av ) ) THEN
[667]	211	ALLOCATE( pc_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	212	ENDIF
[1353]	213	pc_av = 0.0_wp
[1]	214
	215	CASE ( 'pr' )
	216	IF ( .NOT. ALLOCATED( pr_av ) ) THEN
[667]	217	ALLOCATE( pr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	218	ENDIF
[1353]	219	pr_av = 0.0_wp
[1]	220
[1053]	221	CASE ( 'prr' )
	222	IF ( .NOT. ALLOCATED( prr_av ) ) THEN
	223	ALLOCATE( prr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	224	ENDIF
[1353]	225	prr_av = 0.0_wp
[1053]	226
[72]	227	CASE ( 'prr*' )
	228	IF ( .NOT. ALLOCATED( precipitation_rate_av ) ) THEN
[667]	229	ALLOCATE( precipitation_rate_av(nysg:nyng,nxlg:nxrg) )
[72]	230	ENDIF
[1353]	231	precipitation_rate_av = 0.0_wp
[72]	232
[1]	233	CASE ( 'pt' )
	234	IF ( .NOT. ALLOCATED( pt_av ) ) THEN
[667]	235	ALLOCATE( pt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	236	ENDIF
[1353]	237	pt_av = 0.0_wp
[1]	238
	239	CASE ( 'q' )
	240	IF ( .NOT. ALLOCATED( q_av ) ) THEN
[667]	241	ALLOCATE( q_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	242	ENDIF
[1353]	243	q_av = 0.0_wp
[1]	244
[1115]	245	CASE ( 'qc' )
	246	IF ( .NOT. ALLOCATED( qc_av ) ) THEN
	247	ALLOCATE( qc_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	248	ENDIF
[1353]	249	qc_av = 0.0_wp
[1115]	250
[1]	251	CASE ( 'ql' )
	252	IF ( .NOT. ALLOCATED( ql_av ) ) THEN
[667]	253	ALLOCATE( ql_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	254	ENDIF
[1353]	255	ql_av = 0.0_wp
[1]	256
	257	CASE ( 'ql_c' )
	258	IF ( .NOT. ALLOCATED( ql_c_av ) ) THEN
[667]	259	ALLOCATE( ql_c_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	260	ENDIF
[1353]	261	ql_c_av = 0.0_wp
[1]	262
	263	CASE ( 'ql_v' )
	264	IF ( .NOT. ALLOCATED( ql_v_av ) ) THEN
[667]	265	ALLOCATE( ql_v_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	266	ENDIF
[1353]	267	ql_v_av = 0.0_wp
[1]	268
	269	CASE ( 'ql_vp' )
	270	IF ( .NOT. ALLOCATED( ql_vp_av ) ) THEN
[667]	271	ALLOCATE( ql_vp_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	272	ENDIF
[1353]	273	ql_vp_av = 0.0_wp
[1]	274
[1053]	275	CASE ( 'qr' )
	276	IF ( .NOT. ALLOCATED( qr_av ) ) THEN
	277	ALLOCATE( qr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	278	ENDIF
[1353]	279	qr_av = 0.0_wp
[1053]	280
[354]	281	CASE ( 'qsws*' )
	282	IF ( .NOT. ALLOCATED( qsws_av ) ) THEN
[667]	283	ALLOCATE( qsws_av(nysg:nyng,nxlg:nxrg) )
[354]	284	ENDIF
[1353]	285	qsws_av = 0.0_wp
[354]	286
[1]	287	CASE ( 'qv' )
	288	IF ( .NOT. ALLOCATED( qv_av ) ) THEN
[667]	289	ALLOCATE( qv_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	290	ENDIF
[1353]	291	qv_av = 0.0_wp
[1]	292
[1551]	293	CASE ( 'rad_net*' )
	294	IF ( .NOT. ALLOCATED( rad_net_av ) ) THEN
	295	ALLOCATE( rad_net_av(nysg:nyng,nxlg:nxrg) )
	296	ENDIF
	297	rad_net_av = 0.0_wp
	298
[1585]	299	CASE ( 'rad_lw_in' )
	300	IF ( .NOT. ALLOCATED( rad_lw_in_av ) ) THEN
	301	ALLOCATE( rad_lw_in_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	302	ENDIF
	303	rad_lw_in_av = 0.0_wp
	304
	305	CASE ( 'rad_lw_out' )
	306	IF ( .NOT. ALLOCATED( rad_lw_out_av ) ) THEN
	307	ALLOCATE( rad_lw_in_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	308	ENDIF
	309	rad_lw_out_av = 0.0_wp
	310
[1691]	311	CASE ( 'rad_lw_cs_hr' )
	312	IF ( .NOT. ALLOCATED( rad_lw_cs_hr_av ) ) THEN
	313	ALLOCATE( rad_lw_cs_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
	314	ENDIF
	315	rad_lw_cs_hr_av = 0.0_wp
	316
	317	CASE ( 'rad_lw_hr' )
	318	IF ( .NOT. ALLOCATED( rad_lw_hr_av ) ) THEN
	319	ALLOCATE( rad_lw_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
	320	ENDIF
	321	rad_lw_hr_av = 0.0_wp
	322
[1585]	323	CASE ( 'rad_sw_in' )
[1551]	324	IF ( .NOT. ALLOCATED( rad_sw_in_av ) ) THEN
[1585]	325	ALLOCATE( rad_sw_in_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1551]	326	ENDIF
	327	rad_sw_in_av = 0.0_wp
	328
[1585]	329	CASE ( 'rad_sw_out' )
	330	IF ( .NOT. ALLOCATED( rad_sw_out_av ) ) THEN
	331	ALLOCATE( rad_sw_out_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
	332	ENDIF
	333	rad_sw_out_av = 0.0_wp
	334
[1691]	335	CASE ( 'rad_sw_cs_hr' )
	336	IF ( .NOT. ALLOCATED( rad_sw_cs_hr_av ) ) THEN
	337	ALLOCATE( rad_sw_cs_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
	338	ENDIF
	339	rad_sw_cs_hr_av = 0.0_wp
	340
	341	CASE ( 'rad_sw_hr' )
	342	IF ( .NOT. ALLOCATED( rad_sw_hr_av ) ) THEN
	343	ALLOCATE( rad_sw_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
	344	ENDIF
	345	rad_sw_hr_av = 0.0_wp
	346
[96]	347	CASE ( 'rho' )
	348	IF ( .NOT. ALLOCATED( rho_av ) ) THEN
[667]	349	ALLOCATE( rho_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[96]	350	ENDIF
[1353]	351	rho_av = 0.0_wp
[96]	352
[1]	353	CASE ( 's' )
	354	IF ( .NOT. ALLOCATED( s_av ) ) THEN
[667]	355	ALLOCATE( s_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	356	ENDIF
[1353]	357	s_av = 0.0_wp
[1]	358
[96]	359	CASE ( 'sa' )
	360	IF ( .NOT. ALLOCATED( sa_av ) ) THEN
[667]	361	ALLOCATE( sa_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[96]	362	ENDIF
[1353]	363	sa_av = 0.0_wp
[96]	364
[354]	365	CASE ( 'shf*' )
	366	IF ( .NOT. ALLOCATED( shf_av ) ) THEN
[667]	367	ALLOCATE( shf_av(nysg:nyng,nxlg:nxrg) )
[354]	368	ENDIF
[1353]	369	shf_av = 0.0_wp
[354]	370
[1]	371	CASE ( 't*' )
	372	IF ( .NOT. ALLOCATED( ts_av ) ) THEN
[667]	373	ALLOCATE( ts_av(nysg:nyng,nxlg:nxrg) )
[1]	374	ENDIF
[1353]	375	ts_av = 0.0_wp
[1]	376
	377	CASE ( 'u' )
	378	IF ( .NOT. ALLOCATED( u_av ) ) THEN
[667]	379	ALLOCATE( u_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	380	ENDIF
[1353]	381	u_av = 0.0_wp
[1]	382
	383	CASE ( 'u*' )
	384	IF ( .NOT. ALLOCATED( us_av ) ) THEN
[667]	385	ALLOCATE( us_av(nysg:nyng,nxlg:nxrg) )
[1]	386	ENDIF
[1353]	387	us_av = 0.0_wp
[1]	388
	389	CASE ( 'v' )
	390	IF ( .NOT. ALLOCATED( v_av ) ) THEN
[667]	391	ALLOCATE( v_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	392	ENDIF
[1353]	393	v_av = 0.0_wp
[1]	394
	395	CASE ( 'vpt' )
	396	IF ( .NOT. ALLOCATED( vpt_av ) ) THEN
[667]	397	ALLOCATE( vpt_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	398	ENDIF
[1353]	399	vpt_av = 0.0_wp
[1]	400
	401	CASE ( 'w' )
	402	IF ( .NOT. ALLOCATED( w_av ) ) THEN
[667]	403	ALLOCATE( w_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
[1]	404	ENDIF
[1353]	405	w_av = 0.0_wp
[1]	406
[72]	407	CASE ( 'z0*' )
	408	IF ( .NOT. ALLOCATED( z0_av ) ) THEN
[667]	409	ALLOCATE( z0_av(nysg:nyng,nxlg:nxrg) )
[72]	410	ENDIF
[1353]	411	z0_av = 0.0_wp
[72]	412
[978]	413	CASE ( 'z0h*' )
	414	IF ( .NOT. ALLOCATED( z0h_av ) ) THEN
	415	ALLOCATE( z0h_av(nysg:nyng,nxlg:nxrg) )
	416	ENDIF
[1353]	417	z0h_av = 0.0_wp
[978]	418
[1788]	419	CASE ( 'z0q*' )
	420	IF ( .NOT. ALLOCATED( z0q_av ) ) THEN
	421	ALLOCATE( z0q_av(nysg:nyng,nxlg:nxrg) )
	422	ENDIF
	423	z0q_av = 0.0_wp
	424
[1]	425	CASE DEFAULT
[1972]	426
[1]	427	!
[1972]	428	!-- Land surface quantity
	429	IF ( land_surface ) THEN
	430	CALL lsm_3d_data_averaging( 'allocate', doav(ii) )
	431	ENDIF
	432
	433	!
[1]	434	!-- User-defined quantity
	435	CALL user_3d_data_averaging( 'allocate', doav(ii) )
	436
	437	END SELECT
	438
	439	ENDDO
	440
	441	ENDIF
	442
	443	!
	444	!-- Loop of all variables to be averaged.
	445	DO ii = 1, doav_n
	446
	447	!
	448	!-- Store the array chosen on the temporary array.
	449	SELECT CASE ( TRIM( doav(ii) ) )
	450
	451	CASE ( 'e' )
[667]	452	DO i = nxlg, nxrg
	453	DO j = nysg, nyng
[1]	454	DO k = nzb, nzt+1
	455	e_av(k,j,i) = e_av(k,j,i) + e(k,j,i)
	456	ENDDO
	457	ENDDO
	458	ENDDO
	459
[771]	460	CASE ( 'lpt' )
	461	DO i = nxlg, nxrg
	462	DO j = nysg, nyng
	463	DO k = nzb, nzt+1
	464	lpt_av(k,j,i) = lpt_av(k,j,i) + pt(k,j,i)
	465	ENDDO
	466	ENDDO
	467	ENDDO
	468
[1]	469	CASE ( 'lwp*' )
[667]	470	DO i = nxlg, nxrg
	471	DO j = nysg, nyng
[1691]	472	lwp_av(j,i) = lwp_av(j,i) + SUM( ql(nzb:nzt,j,i) &
	473	* dzw(1:nzt+1) ) * rho_surface
[1]	474	ENDDO
	475	ENDDO
	476
[1053]	477	CASE ( 'nr' )
	478	DO i = nxlg, nxrg
	479	DO j = nysg, nyng
	480	DO k = nzb, nzt+1
	481	nr_av(k,j,i) = nr_av(k,j,i) + nr(k,j,i)
	482	ENDDO
	483	ENDDO
	484	ENDDO
	485
[1691]	486	CASE ( 'ol*' )
	487	DO i = nxlg, nxrg
	488	DO j = nysg, nyng
	489	ol_av(j,i) = ol_av(j,i) + ol(j,i)
	490	ENDDO
	491	ENDDO
	492
[1]	493	CASE ( 'p' )
[667]	494	DO i = nxlg, nxrg
	495	DO j = nysg, nyng
[1]	496	DO k = nzb, nzt+1
	497	p_av(k,j,i) = p_av(k,j,i) + p(k,j,i)
	498	ENDDO
	499	ENDDO
	500	ENDDO
	501
	502	CASE ( 'pc' )
	503	DO i = nxl, nxr
	504	DO j = nys, nyn
	505	DO k = nzb, nzt+1
	506	pc_av(k,j,i) = pc_av(k,j,i) + prt_count(k,j,i)
	507	ENDDO
	508	ENDDO
	509	ENDDO
	510
	511	CASE ( 'pr' )
	512	DO i = nxl, nxr
	513	DO j = nys, nyn
	514	DO k = nzb, nzt+1
[1359]	515	number_of_particles = prt_count(k,j,i)
	516	IF ( number_of_particles <= 0 ) CYCLE
	517	particles => grid_particles(k,j,i)%particles(1:number_of_particles)
	518	s_r2 = 0.0_wp
[1353]	519	s_r3 = 0.0_wp
[1359]	520
	521	DO n = 1, number_of_particles
	522	IF ( particles(n)%particle_mask ) THEN
	523	s_r2 = s_r2 + particles(n)%radius*2 &
	524	particles(n)%weight_factor
	525	s_r3 = s_r3 + particles(n)%radius*3 &
	526	particles(n)%weight_factor
	527	ENDIF
[1]	528	ENDDO
[1359]	529
	530	IF ( s_r2 > 0.0_wp ) THEN
	531	mean_r = s_r3 / s_r2
[1]	532	ELSE
[1353]	533	mean_r = 0.0_wp
[1]	534	ENDIF
	535	pr_av(k,j,i) = pr_av(k,j,i) + mean_r
	536	ENDDO
	537	ENDDO
	538	ENDDO
	539
[1359]	540
[72]	541	CASE ( 'pr*' )
[667]	542	DO i = nxlg, nxrg
	543	DO j = nysg, nyng
[72]	544	precipitation_rate_av(j,i) = precipitation_rate_av(j,i) + &
	545	precipitation_rate(j,i)
	546	ENDDO
	547	ENDDO
	548
[1]	549	CASE ( 'pt' )
	550	IF ( .NOT. cloud_physics ) THEN
[667]	551	DO i = nxlg, nxrg
	552	DO j = nysg, nyng
	553	DO k = nzb, nzt+1
[1]	554	pt_av(k,j,i) = pt_av(k,j,i) + pt(k,j,i)
	555	ENDDO
	556	ENDDO
	557	ENDDO
	558	ELSE
[667]	559	DO i = nxlg, nxrg
	560	DO j = nysg, nyng
	561	DO k = nzb, nzt+1
[1]	562	pt_av(k,j,i) = pt_av(k,j,i) + pt(k,j,i) + l_d_cp * &
	563	pt_d_t(k) * ql(k,j,i)
	564	ENDDO
	565	ENDDO
	566	ENDDO
	567	ENDIF
	568
	569	CASE ( 'q' )
[667]	570	DO i = nxlg, nxrg
	571	DO j = nysg, nyng
[1]	572	DO k = nzb, nzt+1
	573	q_av(k,j,i) = q_av(k,j,i) + q(k,j,i)
	574	ENDDO
	575	ENDDO
	576	ENDDO
[402]	577
[1115]	578	CASE ( 'qc' )
	579	DO i = nxlg, nxrg
	580	DO j = nysg, nyng
	581	DO k = nzb, nzt+1
	582	qc_av(k,j,i) = qc_av(k,j,i) + qc(k,j,i)
	583	ENDDO
	584	ENDDO
	585	ENDDO
	586
[1]	587	CASE ( 'ql' )
[667]	588	DO i = nxlg, nxrg
	589	DO j = nysg, nyng
[1]	590	DO k = nzb, nzt+1
	591	ql_av(k,j,i) = ql_av(k,j,i) + ql(k,j,i)
	592	ENDDO
	593	ENDDO
	594	ENDDO
	595
	596	CASE ( 'ql_c' )
[667]	597	DO i = nxlg, nxrg
	598	DO j = nysg, nyng
[1]	599	DO k = nzb, nzt+1
	600	ql_c_av(k,j,i) = ql_c_av(k,j,i) + ql_c(k,j,i)
	601	ENDDO
	602	ENDDO
	603	ENDDO
	604
	605	CASE ( 'ql_v' )
[667]	606	DO i = nxlg, nxrg
	607	DO j = nysg, nyng
[1]	608	DO k = nzb, nzt+1
	609	ql_v_av(k,j,i) = ql_v_av(k,j,i) + ql_v(k,j,i)
	610	ENDDO
	611	ENDDO
	612	ENDDO
	613
	614	CASE ( 'ql_vp' )
[1007]	615	DO i = nxl, nxr
	616	DO j = nys, nyn
[1]	617	DO k = nzb, nzt+1
[1359]	618	number_of_particles = prt_count(k,j,i)
	619	IF ( number_of_particles <= 0 ) CYCLE
	620	particles => grid_particles(k,j,i)%particles(1:number_of_particles)
	621	DO n = 1, number_of_particles
	622	IF ( particles(n)%particle_mask ) THEN
	623	ql_vp_av(k,j,i) = ql_vp_av(k,j,i) + &
	624	particles(n)%weight_factor / &
	625	number_of_particles
	626	ENDIF
[1007]	627	ENDDO
[1]	628	ENDDO
	629	ENDDO
	630	ENDDO
	631
[1053]	632	CASE ( 'qr' )
	633	DO i = nxlg, nxrg
	634	DO j = nysg, nyng
	635	DO k = nzb, nzt+1
	636	qr_av(k,j,i) = qr_av(k,j,i) + qr(k,j,i)
	637	ENDDO
	638	ENDDO
	639	ENDDO
	640
[402]	641	CASE ( 'qsws*' )
[667]	642	DO i = nxlg, nxrg
	643	DO j = nysg, nyng
[402]	644	qsws_av(j,i) = qsws_av(j,i) + qsws(j,i)
	645	ENDDO
	646	ENDDO
	647
[1]	648	CASE ( 'qv' )
[667]	649	DO i = nxlg, nxrg
	650	DO j = nysg, nyng
[1]	651	DO k = nzb, nzt+1
	652	qv_av(k,j,i) = qv_av(k,j,i) + q(k,j,i) - ql(k,j,i)
	653	ENDDO
	654	ENDDO
	655	ENDDO
	656
[1551]	657	CASE ( 'rad_net*' )
	658	DO i = nxlg, nxrg
	659	DO j = nysg, nyng
	660	rad_net_av(j,i) = rad_net_av(j,i) + rad_net(j,i)
	661	ENDDO
	662	ENDDO
	663
[1585]	664	CASE ( 'rad_lw_in' )
[1551]	665	DO i = nxlg, nxrg
	666	DO j = nysg, nyng
[1585]	667	DO k = nzb, nzt+1
	668	rad_lw_in_av(k,j,i) = rad_lw_in_av(k,j,i) + rad_lw_in(k,j,i)
	669	ENDDO
[1551]	670	ENDDO
	671	ENDDO
	672
[1585]	673	CASE ( 'rad_lw_out' )
	674	DO i = nxlg, nxrg
	675	DO j = nysg, nyng
	676	DO k = nzb, nzt+1
	677	rad_lw_out_av(k,j,i) = rad_lw_out_av(k,j,i) + rad_lw_out(k,j,i)
	678	ENDDO
	679	ENDDO
	680	ENDDO
	681
[1691]	682	CASE ( 'rad_lw_cs_hr' )
	683	DO i = nxlg, nxrg
	684	DO j = nysg, nyng
	685	DO k = nzb, nzt+1
	686	rad_lw_cs_hr_av(k,j,i) = rad_lw_cs_hr_av(k,j,i) + rad_lw_cs_hr(k,j,i)
	687	ENDDO
	688	ENDDO
	689	ENDDO
[1585]	690
[1691]	691	CASE ( 'rad_lw_hr' )
	692	DO i = nxlg, nxrg
	693	DO j = nysg, nyng
	694	DO k = nzb, nzt+1
	695	rad_lw_hr_av(k,j,i) = rad_lw_hr_av(k,j,i) + rad_lw_hr(k,j,i)
	696	ENDDO
	697	ENDDO
	698	ENDDO
	699
[1585]	700	CASE ( 'rad_sw_in' )
	701	DO i = nxlg, nxrg
	702	DO j = nysg, nyng
	703	DO k = nzb, nzt+1
	704	rad_sw_in_av(k,j,i) = rad_sw_in_av(k,j,i) + rad_sw_in(k,j,i)
	705	ENDDO
	706	ENDDO
	707	ENDDO
	708
	709	CASE ( 'rad_sw_out' )
	710	DO i = nxlg, nxrg
	711	DO j = nysg, nyng
	712	DO k = nzb, nzt+1
	713	rad_sw_out_av(k,j,i) = rad_sw_out_av(k,j,i) + rad_sw_out(k,j,i)
	714	ENDDO
	715	ENDDO
	716	ENDDO
	717
[1691]	718	CASE ( 'rad_sw_cs_hr' )
	719	DO i = nxlg, nxrg
	720	DO j = nysg, nyng
	721	DO k = nzb, nzt+1
	722	rad_sw_cs_hr_av(k,j,i) = rad_sw_cs_hr_av(k,j,i) + rad_sw_cs_hr(k,j,i)
	723	ENDDO
	724	ENDDO
	725	ENDDO
	726
	727	CASE ( 'rad_sw_hr' )
	728	DO i = nxlg, nxrg
	729	DO j = nysg, nyng
	730	DO k = nzb, nzt+1
	731	rad_sw_hr_av(k,j,i) = rad_sw_hr_av(k,j,i) + rad_sw_hr(k,j,i)
	732	ENDDO
	733	ENDDO
	734	ENDDO
	735
[96]	736	CASE ( 'rho' )
[667]	737	DO i = nxlg, nxrg
	738	DO j = nysg, nyng
[96]	739	DO k = nzb, nzt+1
	740	rho_av(k,j,i) = rho_av(k,j,i) + rho(k,j,i)
	741	ENDDO
	742	ENDDO
	743	ENDDO
[402]	744
[1]	745	CASE ( 's' )
[667]	746	DO i = nxlg, nxrg
	747	DO j = nysg, nyng
[1]	748	DO k = nzb, nzt+1
	749	s_av(k,j,i) = s_av(k,j,i) + q(k,j,i)
	750	ENDDO
	751	ENDDO
	752	ENDDO
[402]	753
[96]	754	CASE ( 'sa' )
[667]	755	DO i = nxlg, nxrg
	756	DO j = nysg, nyng
[96]	757	DO k = nzb, nzt+1
	758	sa_av(k,j,i) = sa_av(k,j,i) + sa(k,j,i)
	759	ENDDO
	760	ENDDO
	761	ENDDO
[402]	762
	763	CASE ( 'shf*' )
[667]	764	DO i = nxlg, nxrg
	765	DO j = nysg, nyng
[402]	766	shf_av(j,i) = shf_av(j,i) + shf(j,i)
	767	ENDDO
	768	ENDDO
	769
[1960]	770	CASE ( 'ssws*' )
	771	DO i = nxlg, nxrg
	772	DO j = nysg, nyng
	773	ssws_av(j,i) = ssws_av(j,i) + ssws(j,i)
	774	ENDDO
	775	ENDDO
	776
[1]	777	CASE ( 't*' )
[667]	778	DO i = nxlg, nxrg
	779	DO j = nysg, nyng
[1]	780	ts_av(j,i) = ts_av(j,i) + ts(j,i)
	781	ENDDO
	782	ENDDO
	783
	784	CASE ( 'u' )
[667]	785	DO i = nxlg, nxrg
	786	DO j = nysg, nyng
[1]	787	DO k = nzb, nzt+1
	788	u_av(k,j,i) = u_av(k,j,i) + u(k,j,i)
	789	ENDDO
	790	ENDDO
	791	ENDDO
	792
	793	CASE ( 'u*' )
[667]	794	DO i = nxlg, nxrg
	795	DO j = nysg, nyng
[1]	796	us_av(j,i) = us_av(j,i) + us(j,i)
	797	ENDDO
	798	ENDDO
	799
	800	CASE ( 'v' )
[667]	801	DO i = nxlg, nxrg
	802	DO j = nysg, nyng
[1]	803	DO k = nzb, nzt+1
	804	v_av(k,j,i) = v_av(k,j,i) + v(k,j,i)
	805	ENDDO
	806	ENDDO
	807	ENDDO
	808
	809	CASE ( 'vpt' )
[667]	810	DO i = nxlg, nxrg
	811	DO j = nysg, nyng
[1]	812	DO k = nzb, nzt+1
	813	vpt_av(k,j,i) = vpt_av(k,j,i) + vpt(k,j,i)
	814	ENDDO
	815	ENDDO
	816	ENDDO
	817
	818	CASE ( 'w' )
[667]	819	DO i = nxlg, nxrg
	820	DO j = nysg, nyng
[1]	821	DO k = nzb, nzt+1
	822	w_av(k,j,i) = w_av(k,j,i) + w(k,j,i)
	823	ENDDO
	824	ENDDO
	825	ENDDO
	826
[72]	827	CASE ( 'z0*' )
[667]	828	DO i = nxlg, nxrg
	829	DO j = nysg, nyng
[72]	830	z0_av(j,i) = z0_av(j,i) + z0(j,i)
	831	ENDDO
	832	ENDDO
	833
[978]	834	CASE ( 'z0h*' )
	835	DO i = nxlg, nxrg
	836	DO j = nysg, nyng
	837	z0h_av(j,i) = z0h_av(j,i) + z0h(j,i)
	838	ENDDO
	839	ENDDO
	840
[1788]	841	CASE ( 'z0q*' )
	842	DO i = nxlg, nxrg
	843	DO j = nysg, nyng
	844	z0q_av(j,i) = z0q_av(j,i) + z0q(j,i)
	845	ENDDO
	846	ENDDO
	847
[1]	848	CASE DEFAULT
	849	!
[1972]	850	!-- Land surface quantity
	851	IF ( land_surface ) THEN
	852	CALL lsm_3d_data_averaging( 'sum', doav(ii) )
	853	ENDIF
	854
	855	!
[1]	856	!-- User-defined quantity
	857	CALL user_3d_data_averaging( 'sum', doav(ii) )
	858
	859	END SELECT
	860
	861	ENDDO
	862
[1318]	863	CALL cpu_log( log_point(34), 'sum_up_3d_data', 'stop' )
[1]	864
	865
	866	END SUBROUTINE sum_up_3d_data

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |