Home

Context Navigation

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

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