Home

Context Navigation

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

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

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