source: palm/trunk/SOURCE/data_output_profiles.f90 @ 1028

Last change on this file since 1028 was 965, checked in by raasch, 12 years ago

last commit documented

  • Property svn:keywords set to Id
File size: 10.8 KB
Line 
1 SUBROUTINE data_output_profiles
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: data_output_profiles.f90 965 2012-07-26 09:29:52Z suehring $
11!
12! 964 2012-07-26 09:14:24Z raasch
13! code for profil-output removed
14!
15! 345 2009-07-01 14:37:56Z heinze
16! In case of restart runs without extension, initial profiles are not written
17! to NetCDF-file anymore.
18! simulated_time in NetCDF output replaced by time_since_reference_point.
19! Output of NetCDF messages with aid of message handling routine.
20! Output of messages replaced by message handling routine.
21!
22! 197 2008-09-16 15:29:03Z raasch
23! Time coordinate t=0 stored on netcdf-file only if an output is required for
24! this time for at least one of the profiles
25!
26! February 2007
27! RCS Log replace by Id keyword, revision history cleaned up
28!
29! 87 2007-05-22 15:46:47Z raasch
30! var_hom renamed pr_palm
31!
32! Revision 1.18  2006/08/16 14:27:04  raasch
33! PRINT* statements for testing removed
34!
35! Revision 1.1  1997/09/12 06:28:48  raasch
36! Initial revision
37!
38!
39! Description:
40! ------------
41! Plot output of 1D-profiles for PROFIL
42!------------------------------------------------------------------------------!
43
44    USE control_parameters
45    USE cpulog
46    USE indices
47    USE interfaces
48    USE netcdf_control
49    USE pegrid
50    USE profil_parameter
51    USE statistics
52
53    IMPLICIT NONE
54
55
56    INTEGER ::  i, id, ilc, ils, j, k, sr
57
58!
59!-- If required, compute statistics
60    IF ( .NOT. flow_statistics_called )  CALL flow_statistics
61
62!
63!-- Flow_statistics has its own CPU time measurement
64    CALL cpu_log( log_point(15), 'data_output_profiles', 'start' )
65
66!
67!-- If required, compute temporal average
68    IF ( averaging_interval_pr == 0.0 )  THEN
69       hom_sum(:,:,:) = hom(:,1,:,:)
70    ELSE
71       IF ( average_count_pr > 0 )  THEN
72          hom_sum = hom_sum / REAL( average_count_pr )
73       ELSE
74!
75!--       This case may happen if dt_dopr is changed in the d3par-list of
76!--       a restart run
77          RETURN
78       ENDIF
79    ENDIF
80
81   
82    IF ( myid == 0 )  THEN
83
84!
85!--    Plot-output for each (sub-)region
86
87!
88!--    Open file for profile output in NetCDF format
89       IF ( netcdf_output )  THEN
90          CALL check_open( 104 )
91       ENDIF
92
93!
94!--    Increment the counter for number of output times
95       dopr_time_count = dopr_time_count + 1
96
97!
98!--    Output of initial profiles
99       IF ( dopr_time_count == 1 )  THEN
100       
101          IF ( .NOT. output_for_t0 ) THEN
102
103             IF ( netcdf_output )  THEN
104#if defined( __netcdf )         
105!
106!--             Store initial time (t=0) to time axis, but only if an output
107!--             is required for at least one of the profiles
108                DO  i = 1, dopr_n
109                IF ( dopr_initial_index(i) /= 0 )  THEN
110                   nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,  &
111                                              (/ 0.0 /), start = (/ 1 /), &
112                                              count = (/ 1 /) )
113                      CALL handle_netcdf_error( 'data_output_profiles', 329 )
114                      output_for_t0 = .TRUE.
115                      EXIT
116                   ENDIF
117                ENDDO
118
119!
120!--             Store normalization factors
121                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(1), & ! wpt0
122                                     (/ hom_sum(nzb,18,normalizing_region) /), &
123                                        start = (/ 1 /), count = (/ 1 /) )
124                CALL handle_netcdf_error( 'data_output_profiles', 330 )
125
126                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), & ! ws2
127                           (/ hom_sum(nzb+8,pr_palm,normalizing_region)**2 /), &
128                                        start = (/ 1 /), count = (/ 1 /) )
129                CALL handle_netcdf_error( 'data_output_profiles', 331 )
130                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), & ! tsw2
131                           (/ hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
132                                     start = (/ 1 /), count = (/ 1 /) )
133                CALL handle_netcdf_error( 'data_output_profiles', 332 )
134                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), & ! ws3
135                           (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 /), &
136                                        start = (/ 1 /), count = (/ 1 /) )
137                CALL handle_netcdf_error( 'data_output_profiles', 333 )
138
139                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &!ws2tsw
140                           (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 *   &
141                              hom_sum(nzb+3,pr_palm,normalizing_region)    /), &
142                                        start = (/ 1 /), count = (/ 1 /) )
143                CALL handle_netcdf_error( 'data_output_profiles', 334 )
144
145                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &!wstsw2
146                           (/ hom_sum(nzb+8,pr_palm,normalizing_region) *      &
147                              hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
148                                        start = (/ 1 /), count = (/ 1 /) )
149                CALL handle_netcdf_error( 'data_output_profiles', 335 )
150
151                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), & ! z_i
152                              (/ hom_sum(nzb+6,pr_palm,normalizing_region) /), &
153                                        start = (/ 1 /), count = (/ 1 /) )
154                CALL handle_netcdf_error( 'data_output_profiles', 336 )
155             
156#endif
157             ENDIF
158!
159!--          Loop over all 1D variables
160             DO  i = 1, dopr_n
161
162                IF ( dopr_initial_index(i) /= 0 )  THEN
163
164!
165!--                Output for the individual (sub-)regions
166                   DO  sr = 0, statistic_regions
167
168                      IF ( netcdf_output )  THEN
169#if defined( __netcdf )
170!
171!--                      Write data to netcdf file
172                         nc_stat = NF90_PUT_VAR( id_set_pr, id_var_dopr(i,sr),    &
173                                       hom(nzb:nzt+1,1,dopr_initial_index(i),sr), &
174                                                 start = (/ 1, 1 /),              &
175                                                 count = (/ nzt-nzb+2, 1 /) )
176                         CALL handle_netcdf_error( 'data_output_profiles', 337 )
177#endif
178                      ENDIF
179
180                   ENDDO
181
182                ENDIF   ! Initial profile available
183
184             ENDDO   ! Loop over dopr_n for initial profiles
185
186             IF ( netcdf_output  .AND.  output_for_t0 )  THEN
187                dopr_time_count = dopr_time_count + 1
188             ENDIF
189
190          END IF
191       ENDIF   ! Initial profiles
192
193       IF ( netcdf_output )  THEN
194#if defined( __netcdf )
195
196!
197!--       Store time to time axis         
198          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,        &
199                                  (/ time_since_reference_point /), &
200                                  start = (/ dopr_time_count /),    &
201                                  count = (/ 1 /) )
202          CALL handle_netcdf_error( 'data_output_profiles', 338 )
203
204!
205!--       Store normalization factors
206          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(1), &  ! wpt0
207                                  (/ hom_sum(nzb,18,normalizing_region) /), &
208                                  start = (/ dopr_time_count /),               &
209                                  count = (/ 1 /) )
210          CALL handle_netcdf_error( 'data_output_profiles', 339 )
211
212          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(2), &  ! ws2
213                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**2 /), &
214                                  start = (/ dopr_time_count /),               &
215                                  count = (/ 1 /) )
216          CALL handle_netcdf_error( 'data_output_profiles', 340 )
217
218          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(3), &  ! tsw2
219                        (/ hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
220                                  start = (/ dopr_time_count /),               &
221                                  count = (/ 1 /) )
222          CALL handle_netcdf_error( 'data_output_profiles', 341 )
223
224          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(4), &  ! ws3
225                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 /), &
226                                  start = (/ dopr_time_count /),               &
227                                  count = (/ 1 /) )
228          CALL handle_netcdf_error( 'data_output_profiles', 342 )
229
230          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(5), &  ! ws2tsw
231                        (/ hom_sum(nzb+8,pr_palm,normalizing_region)**3 *   &
232                           hom_sum(nzb+3,pr_palm,normalizing_region)    /), &
233                                  start = (/ dopr_time_count /),               &
234                                  count = (/ 1 /) )
235          CALL handle_netcdf_error( 'data_output_profiles', 343 )
236         
237          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(6), &  ! wstsw2
238                        (/ hom_sum(nzb+8,pr_palm,normalizing_region) *      &
239                           hom_sum(nzb+3,pr_palm,normalizing_region)**2 /), &
240                                  start = (/ dopr_time_count /),               &
241                                  count = (/ 1 /) )
242          CALL handle_netcdf_error( 'data_output_profiles', 344 )
243
244          nc_stat = NF90_PUT_VAR( id_set_pr, id_var_norm_dopr(7), &  ! z_i
245                           (/ hom_sum(nzb+6,pr_palm,normalizing_region) /), &
246                                  start = (/ dopr_time_count /),               &
247                                  count = (/ 1 /) )
248          CALL handle_netcdf_error( 'data_output_profiles', 345 )
249#endif
250       ENDIF
251
252!
253!--    Output of the individual (non-initial) profiles
254       DO  i = 1, dopr_n
255
256!
257!--       Output for the individual (sub-)domains
258          DO  sr = 0, statistic_regions
259
260             IF ( netcdf_output )  THEN
261#if defined( __netcdf )
262!
263!--             Write data to netcdf file
264                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_dopr(i,sr),          &
265                                        hom_sum(nzb:nzt+1,dopr_index(i),sr),&
266                                        start = (/ 1, dopr_time_count /),      &
267                                        count = (/ nzt-nzb+2, 1 /) )
268                CALL handle_netcdf_error( 'data_output_profiles', 346 )
269#endif
270             ENDIF
271
272          ENDDO
273
274       ENDDO
275
276    ENDIF  ! Output on PE0
277
278!
279!-- If averaging has been done above, the summation counter must be re-set.
280    IF ( averaging_interval_pr /= 0.0 )  THEN
281       average_count_pr = 0
282    ENDIF
283
284    CALL cpu_log( log_point(15), 'data_output_profiles','stop', 'nobarrier' )
285
286!
287!-- Formats
288100 FORMAT ('#1 ',A,1X,A)
289101 FORMAT (E15.7,1X,E15.7)
290102 FORMAT ('NEXT')
291
292 END SUBROUTINE data_output_profiles
Note: See TracBrowser for help on using the repository browser.