Home

Context Navigation

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

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