source: palm/trunk/SOURCE/average_3d_data.f90 @ 750

Last change on this file since 750 was 668, checked in by suehring, 14 years ago

last commit documented

  • Property svn:keywords set to Id
File size: 7.9 KB
Line 
1 SUBROUTINE average_3d_data
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7! Former revisions:
8! -----------------
9! $Id: average_3d_data.f90 668 2010-12-23 13:22:58Z suehring $
10!
11! 667 2010-12-23 12:06:00Z suehring/gryschka
12! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
13!
14! 367 2009-08-25 08:35:52Z maronga
15! Added calculation of shf* and qsws*
16!
17! 96 2007-06-04 08:07:41Z raasch
18! Averaging of density and salinity
19!
20! 72 2007-03-19 08:20:46Z raasch
21! Averaging the precipitation rate and roughness length (prr*, z0*)
22!
23! RCS Log replace by Id keyword, revision history cleaned up
24!
25! Revision 1.1  2006/02/23 09:48:58  raasch
26! Initial revision
27!
28!
29! Description:
30! ------------
31! Time-averaging of 3d-data-arrays.
32!------------------------------------------------------------------------------!
33
34    USE arrays_3d
35    USE averaging
36    USE cloud_parameters
37    USE control_parameters
38    USE cpulog
39    USE indices
40    USE interfaces
41
42    IMPLICIT NONE
43
44    INTEGER ::  i, ii, j, k
45
46
47    CALL cpu_log (log_point(35),'average_3d_data','start')
48
49!
50!-- Check, if averaging is necessary
51    IF ( average_count_3d <= 1 )  RETURN
52
53!
54!-- Loop of all variables to be averaged.
55    DO  ii = 1, doav_n
56
57!
58!--    Store the array chosen on the temporary array.
59       SELECT CASE ( TRIM( doav(ii) ) )
60
61          CASE ( 'e' )
62             DO  i = nxlg, nxrg
63                DO  j = nysg, nyng
64                   DO  k = nzb, nzt+1
65                      e_av(k,j,i) = e_av(k,j,i) / REAL( average_count_3d )
66                   ENDDO
67                ENDDO
68             ENDDO
69
70          CASE ( 'qsws*' )
71             DO  i = nxlg, nxrg
72                DO  j = nysg, nyng
73                   qsws_av(j,i) = qsws_av(j,i) / REAL( average_count_3d )
74                ENDDO
75             ENDDO
76
77          CASE ( 'lwp*' )
78             DO  i = nxlg, nxrg
79                DO  j = nysg, nyng
80                   lwp_av(j,i) = lwp_av(j,i) / REAL( average_count_3d )
81                ENDDO
82             ENDDO
83
84          CASE ( 'p' )
85             DO  i = nxlg, nxrg
86                DO  j = nysg, nyng
87                   DO  k = nzb, nzt+1
88                      p_av(k,j,i) = p_av(k,j,i) / REAL( average_count_3d )
89                   ENDDO
90                ENDDO
91             ENDDO
92
93          CASE ( 'pc' )
94             DO  i = nxl, nxr
95                DO  j = nys, nyn
96                   DO  k = nzb, nzt+1
97                      pc_av(k,j,i) = pc_av(k,j,i) / REAL( average_count_3d )
98                   ENDDO
99                ENDDO
100             ENDDO
101
102          CASE ( 'pr' )
103             DO  i = nxl, nxr
104                DO  j = nys, nyn
105                   DO  k = nzb, nzt+1
106                      pr_av(k,j,i) = pr_av(k,j,i) / REAL( average_count_3d )
107                   ENDDO
108                ENDDO
109             ENDDO
110
111          CASE ( 'prr*' )
112             DO  i = nxlg, nxrg
113                DO  j = nysg, nyng
114                   precipitation_rate_av(j,i) = precipitation_rate_av(j,i) / &
115                                                REAL( average_count_3d )
116                ENDDO
117             ENDDO
118
119          CASE ( 'pt' )
120             DO  i = nxlg, nxrg
121                DO  j = nysg, nyng
122                   DO  k = nzb, nzt+1
123                      pt_av(k,j,i) = pt_av(k,j,i) / REAL( average_count_3d )
124                   ENDDO
125                ENDDO
126             ENDDO
127
128          CASE ( 'q' )
129             DO  i = nxlg, nxrg
130                DO  j = nysg, nyng
131                   DO  k = nzb, nzt+1
132                      q_av(k,j,i) = q_av(k,j,i) / REAL( average_count_3d )
133                   ENDDO
134                ENDDO
135             ENDDO
136
137          CASE ( 'ql' )
138             DO  i = nxlg, nxrg
139                DO  j = nysg, nyng
140                   DO  k = nzb, nzt+1
141                      ql_av(k,j,i) = ql_av(k,j,i) / REAL( average_count_3d )
142                   ENDDO
143                ENDDO
144             ENDDO
145
146          CASE ( 'ql_c' )
147             DO  i = nxlg, nxrg
148                DO  j = nysg, nyng
149                   DO  k = nzb, nzt+1
150                      ql_c_av(k,j,i) = ql_c_av(k,j,i) / REAL( average_count_3d )
151                   ENDDO
152                ENDDO
153             ENDDO
154
155          CASE ( 'ql_v' )
156             DO  i = nxlg, nxrg
157                DO  j = nysg, nyng
158                   DO  k = nzb, nzt+1
159                      ql_v_av(k,j,i) = ql_v_av(k,j,i) / REAL( average_count_3d )
160                   ENDDO
161                ENDDO
162             ENDDO
163
164          CASE ( 'ql_vp' )
165             DO  i = nxlg, nxrg
166                DO  j = nysg, nyng
167                   DO  k = nzb, nzt+1
168                      ql_vp_av(k,j,i) = ql_vp_av(k,j,i) / &
169                                        REAL( average_count_3d )
170                   ENDDO
171                ENDDO
172             ENDDO
173
174          CASE ( 'qv' )
175             DO  i = nxlg, nxrg
176                DO  j = nysg, nyng
177                   DO  k = nzb, nzt+1
178                      qv_av(k,j,i) = qv_av(k,j,i) / REAL( average_count_3d )
179                   ENDDO
180                ENDDO
181             ENDDO
182
183          CASE ( 'rho' )
184             DO  i = nxlg, nxrg
185                DO  j = nysg, nyng
186                   DO  k = nzb, nzt+1
187                      rho_av(k,j,i) = rho_av(k,j,i) / REAL( average_count_3d )
188                   ENDDO
189                ENDDO
190             ENDDO
191
192          CASE ( 's' )
193             DO  i = nxlg, nxrg
194                DO  j = nysg, nyng
195                   DO  k = nzb, nzt+1
196                      s_av(k,j,i) = s_av(k,j,i) / REAL( average_count_3d )
197                   ENDDO
198                ENDDO
199             ENDDO
200
201          CASE ( 'sa' )
202             DO  i = nxlg, nxrg
203                DO  j = nysg, nyng
204                   DO  k = nzb, nzt+1
205                      sa_av(k,j,i) = sa_av(k,j,i) / REAL( average_count_3d )
206                   ENDDO
207                ENDDO
208             ENDDO
209
210         CASE ( 'shf*' )
211             DO  i = nxlg, nxrg
212                DO  j = nysg, nyng
213                   shf_av(j,i) = shf_av(j,i) / REAL( average_count_3d )
214                ENDDO
215             ENDDO
216
217          CASE ( 't*' )
218             DO  i = nxlg, nxrg
219                DO  j = nysg, nyng
220                   ts_av(j,i) = ts_av(j,i) / REAL( average_count_3d )
221                ENDDO
222             ENDDO
223
224          CASE ( 'u' )
225             DO  i = nxlg, nxrg
226                DO  j = nysg, nyng
227                   DO  k = nzb, nzt+1
228                      u_av(k,j,i) = u_av(k,j,i) / REAL( average_count_3d )
229                   ENDDO
230                ENDDO
231             ENDDO
232
233          CASE ( 'u*' )
234             DO  i = nxlg, nxrg
235                DO  j = nysg, nyng
236                   us_av(j,i) = us_av(j,i) / REAL( average_count_3d )
237                ENDDO
238             ENDDO
239
240          CASE ( 'v' )
241             DO  i = nxlg, nxrg
242                DO  j = nysg, nyng
243                   DO  k = nzb, nzt+1
244                      v_av(k,j,i) = v_av(k,j,i) / REAL( average_count_3d )
245                   ENDDO
246                ENDDO
247             ENDDO
248
249          CASE ( 'vpt' )
250             DO  i = nxlg, nxrg
251                DO  j = nysg, nyng
252                   DO  k = nzb, nzt+1
253                      vpt_av(k,j,i) = vpt_av(k,j,i) / REAL( average_count_3d )
254                   ENDDO
255                ENDDO
256             ENDDO
257
258          CASE ( 'w' )
259             DO  i = nxlg, nxrg
260                DO  j = nysg, nyng
261                   DO  k = nzb, nzt+1
262                      w_av(k,j,i) = w_av(k,j,i) / REAL( average_count_3d )
263                   ENDDO
264                ENDDO
265             ENDDO
266
267          CASE ( 'z0*' )
268             DO  i = nxlg, nxrg
269                DO  j = nysg, nyng
270                   z0_av(j,i) = z0_av(j,i) / REAL( average_count_3d )
271                ENDDO
272             ENDDO
273
274          CASE DEFAULT
275!
276!--          User-defined quantity
277             CALL user_3d_data_averaging( 'average', doav(ii) )
278
279       END SELECT
280
281    ENDDO
282
283!
284!-- Reset the counter
285    average_count_3d = 0.0
286
287    CALL cpu_log (log_point(35),'average_3d_data','stop','nobarrier')
288
289
290 END SUBROUTINE average_3d_data
Note: See TracBrowser for help on using the repository browser.