Home

Context Navigation

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

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