Home

Context Navigation

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

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