Home

Context Navigation

source: palm/trunk/SOURCE/netcdf.f90 @ 290

Last change on this file since 290 was 288, checked in by heinze, 16 years ago
NetCDF unit attribute in timeseries output added, typographical error in modules fixed
Property svn:keywords set to `Id`
File size: 143.1 KB

Line
1	#if defined( __ibmy_special )
2	@PROCESS NOOPTimize
3	#endif
4	SUBROUTINE define_netcdf_header( callmode, extend, av )
5
6	!------------------------------------------------------------------------------!
7	! Current revisions:
8	! ------------------
9	! NetCDF unit attribute in timeseries output in case of statistic
10	! regions added.
11	! Output of NetCDF messages with aid of message handling routine.
12	! Output of messages replaced by message handling routine.
13	!
14	!
15	! Former revisions:
16	! -----------------
17	! $Id: netcdf.f90 288 2009-04-09 11:20:12Z letzel $
18	!
19	! 216 2008-11-25 07:12:43Z raasch
20	! Origin of the xy-coordinate system shifted from the center of the first
21	! grid cell (indices i=0, j=0) to the south-left corner of this cell.
22	!
23	! 189 2008-08-13 17:09:26Z letzel
24	! consistently allow 100 spectra levels instead of 10
25	! bug fix in the determination of the number of output heights for spectra,
26	! +user-defined spectra
27	!
28	! 97 2007-06-21 08:23:15Z raasch
29	! Grids defined for rho and sa
30	!
31	! 48 2007-03-06 12:28:36Z raasch
32	! Output topography height information (zu_s_inner, zw_s_inner) to 2d-xy and 3d
33	! datasets
34	!
35	! RCS Log replace by Id keyword, revision history cleaned up
36	!
37	! Revision 1.12 2006/09/26 19:35:16 raasch
38	! Bugfix yv coordinates for yz cross sections
39	!
40	! Revision 1.1 2005/05/18 15:37:16 raasch
41	! Initial revision
42	!
43	!
44	! Description:
45	! ------------
46	! In case of extend = .FALSE.:
47	! Define all necessary dimensions, axes and variables for the different
48	! NetCDF datasets. This subroutine is called from check_open after a new
49	! dataset is created. It leaves the open NetCDF files ready to write.
50	!
51	! In case of extend = .TRUE.:
52	! Find out if dimensions and variables of an existing file match the values
53	! of the actual run. If so, get all necessary informations (ids, etc.) from
54	! this file.
55	!
56	! Parameter av can assume values 0 (non-averaged data) and 1 (time averaged
57	! data)
58	!------------------------------------------------------------------------------!
59	#if defined( __netcdf )
60
61	USE arrays_3d
62	USE constants
63	USE control_parameters
64	USE grid_variables
65	USE indices
66	USE netcdf_control
67	USE pegrid
68	USE particle_attributes
69	USE profil_parameter
70	USE spectrum
71	USE statistics
72
73
74	IMPLICIT NONE
75
76	CHARACTER (LEN=2) :: suffix
77	CHARACTER (LEN=2), INTENT (IN) :: callmode
78	CHARACTER (LEN=3) :: suffix1
79	CHARACTER (LEN=4) :: grid_x, grid_y, grid_z
80	CHARACTER (LEN=6) :: mode
81	CHARACTER (LEN=10) :: netcdf_var_name, netcdf_var_name_base, &
82	precision, var
83	CHARACTER (LEN=80) :: time_average_text
84	CHARACTER (LEN=2000) :: var_list, var_list_old
85
86	INTEGER :: av, i, id_x, id_y, id_z, j, ns, ns_old, nz_old
87
88	INTEGER, DIMENSION(1) :: id_dim_time_old, id_dim_x_yz_old, &
89	id_dim_y_xz_old, id_dim_zu_sp_old, &
90	id_dim_zu_xy_old, id_dim_zu_3d_old
91
92	LOGICAL :: found
93
94	LOGICAL, INTENT (INOUT) :: extend
95
96	LOGICAL, SAVE :: init_netcdf = .FALSE.
97
98	REAL, DIMENSION(1) :: last_time_coordinate
99
100	REAL, DIMENSION(:), ALLOCATABLE :: netcdf_data
101
102
103	!
104	!-- Initializing actions (return to calling routine check_parameters afterwards)
105	IF ( .NOT. init_netcdf ) THEN
106	!
107	!-- Check and set accuracy for NetCDF output. First set default value
108	nc_precision = NF90_REAL4
109
110	i = 1
111	DO WHILE ( netcdf_precision(i) /= ' ' )
112	j = INDEX( netcdf_precision(i), '_' )
113	IF ( j == 0 ) THEN
114	WRITE ( message_string, * ) 'netcdf_precision must contain a ', &
115	'"_"netcdf_precision(', i, ')="', &
116	TRIM( netcdf_precision(i) ),'"'
117	CALL message( 'define_netcdf_header', 'PA0241', 1, 2, 0, 6, 0 )
118	ENDIF
119
120	var = netcdf_precision(i)(1:j-1)
121	precision = netcdf_precision(i)(j+1:)
122
123	IF ( precision == 'NF90_REAL4' ) THEN
124	j = NF90_REAL4
125	ELSEIF ( precision == 'NF90_REAL8' ) THEN
126	j = NF90_REAL8
127	ELSE
128	WRITE ( message_string, * ) 'illegal netcdf precision: ', &
129	'netcdf_precision(', i, ')="', &
130	TRIM( netcdf_precision(i) ),'"'
131	CALL message( 'define_netcdf_header', 'PA0242', 1, 2, 0, 6, 0 )
132	ENDIF
133
134	SELECT CASE ( var )
135	CASE ( 'xy' )
136	nc_precision(1) = j
137	CASE ( 'xz' )
138	nc_precision(2) = j
139	CASE ( 'yz' )
140	nc_precision(3) = j
141	CASE ( '2d' )
142	nc_precision(1:3) = j
143	CASE ( '3d' )
144	nc_precision(4) = j
145	CASE ( 'pr' )
146	nc_precision(5) = j
147	CASE ( 'ts' )
148	nc_precision(6) = j
149	CASE ( 'sp' )
150	nc_precision(7) = j
151	CASE ( 'prt' )
152	nc_precision(8) = j
153	CASE ( 'all' )
154	nc_precision = j
155
156	CASE DEFAULT
157	WRITE ( message_string, * ) 'unknown variable in inipar ', &
158	'assignment: netcdf_precision(', i, ')="', &
159	TRIM( netcdf_precision(i) ),'"'
160	CALL message( 'define_netcdf_header', 'PA0243', 1, 2, 0, 6, 0 )
161
162	END SELECT
163
164	i = i + 1
165	IF ( i > 10 ) EXIT
166	ENDDO
167
168	init_netcdf = .TRUE.
169
170	RETURN
171
172	ENDIF
173
174	!
175	!-- Determine the mode to be processed
176	IF ( extend ) THEN
177	mode = callmode // '_ext'
178	ELSE
179	mode = callmode // '_new'
180	ENDIF
181
182	!
183	!-- Select the mode to be processed. Possibilities are xy, xz, yz, pr and ts.
184	SELECT CASE ( mode )
185
186	CASE ( '3d_new' )
187
188	!
189	!-- Define some global attributes of the dataset
190	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'Conventions', &
191	'COARDS' )
192	CALL handle_netcdf_error( 'netcdf', 62 )
193
194	IF ( av == 0 ) THEN
195	time_average_text = ' '
196	ELSE
197	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
198	averaging_interval
199	ENDIF
200	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'title', &
201	TRIM( run_description_header ) // &
202	TRIM( time_average_text ) )
203	CALL handle_netcdf_error( 'netcdf', 63 )
204	IF ( av == 1 ) THEN
205	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
206	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'time_avg', &
207	TRIM( time_average_text ) )
208	CALL handle_netcdf_error( 'netcdf', 63 )
209	ENDIF
210
211	!
212	!-- Define time coordinate for volume data (unlimited dimension)
213	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'time', NF90_UNLIMITED, &
214	id_dim_time_3d(av) )
215	CALL handle_netcdf_error( 'netcdf', 64 )
216
217	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'time', NF90_DOUBLE, &
218	id_dim_time_3d(av), id_var_time_3d(av) )
219	CALL handle_netcdf_error( 'netcdf', 65 )
220
221	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_time_3d(av), 'units', &
222	'seconds')
223	CALL handle_netcdf_error( 'netcdf', 66 )
224
225	!
226	!-- Define spatial dimensions and coordinates:
227	!-- Define vertical coordinate grid (zu grid)
228	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'zu_3d', nz_do3d-nzb+1, &
229	id_dim_zu_3d(av) )
230	CALL handle_netcdf_error( 'netcdf', 67 )
231
232	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zu_3d', NF90_DOUBLE, &
233	id_dim_zu_3d(av), id_var_zu_3d(av) )
234	CALL handle_netcdf_error( 'netcdf', 68 )
235
236	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zu_3d(av), 'units', &
237	'meters' )
238	CALL handle_netcdf_error( 'netcdf', 69 )
239
240	!
241	!-- Define vertical coordinate grid (zw grid)
242	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'zw_3d', nz_do3d-nzb+1, &
243	id_dim_zw_3d(av) )
244	CALL handle_netcdf_error( 'netcdf', 70 )
245
246	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zw_3d', NF90_DOUBLE, &
247	id_dim_zw_3d(av), id_var_zw_3d(av) )
248	CALL handle_netcdf_error( 'netcdf', 71 )
249
250	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zw_3d(av), 'units', &
251	'meters' )
252	CALL handle_netcdf_error( 'netcdf', 72 )
253
254	!
255	!-- Define x-axis (for scalar position)
256	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'x', nx+2, id_dim_x_3d(av) )
257	CALL handle_netcdf_error( 'netcdf', 73 )
258
259	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'x', NF90_DOUBLE, &
260	id_dim_x_3d(av), id_var_x_3d(av) )
261	CALL handle_netcdf_error( 'netcdf', 74 )
262
263	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_x_3d(av), 'units', &
264	'meters' )
265	CALL handle_netcdf_error( 'netcdf', 75 )
266
267	!
268	!-- Define x-axis (for u position)
269	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'xu', nx+2, id_dim_xu_3d(av) )
270	CALL handle_netcdf_error( 'netcdf', 358 )
271
272	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'xu', NF90_DOUBLE, &
273	id_dim_xu_3d(av), id_var_xu_3d(av) )
274	CALL handle_netcdf_error( 'netcdf', 359 )
275
276	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_xu_3d(av), 'units', &
277	'meters' )
278	CALL handle_netcdf_error( 'netcdf', 360 )
279
280	!
281	!-- Define y-axis (for scalar position)
282	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'y', ny+2, id_dim_y_3d(av) )
283	CALL handle_netcdf_error( 'netcdf', 76 )
284
285	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'y', NF90_DOUBLE, &
286	id_dim_y_3d(av), id_var_y_3d(av) )
287	CALL handle_netcdf_error( 'netcdf', 77 )
288
289	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_y_3d(av), 'units', &
290	'meters' )
291	CALL handle_netcdf_error( 'netcdf', 78 )
292
293	!
294	!-- Define y-axis (for v position)
295	nc_stat = NF90_DEF_DIM( id_set_3d(av), 'yv', ny+2, id_dim_yv_3d(av) )
296	CALL handle_netcdf_error( 'netcdf', 361 )
297
298	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'yv', NF90_DOUBLE, &
299	id_dim_yv_3d(av), id_var_yv_3d(av) )
300	CALL handle_netcdf_error( 'netcdf', 362 )
301
302	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_yv_3d(av), 'units', &
303	'meters' )
304	CALL handle_netcdf_error( 'netcdf', 363 )
305
306	!
307	!-- In case of non-flat topography define 2d-arrays containing the height
308	!-- informations
309	IF ( TRIM( topography ) /= 'flat' ) THEN
310	!
311	!-- Define zusi = zu(nzb_s_inner)
312	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zusi', NF90_DOUBLE, &
313	(/ id_dim_x_3d(av), id_dim_y_3d(av) /), &
314	id_var_zusi_3d(av) )
315	CALL handle_netcdf_error( 'netcdf', 413 )
316
317	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zusi_3d(av), &
318	'units', 'meters' )
319	CALL handle_netcdf_error( 'netcdf', 414 )
320
321	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zusi_3d(av), &
322	'long_name', 'zu(nzb_s_inner)' )
323	CALL handle_netcdf_error( 'netcdf', 415 )
324
325	!
326	!-- Define zwwi = zw(nzb_w_inner)
327	nc_stat = NF90_DEF_VAR( id_set_3d(av), 'zwwi', NF90_DOUBLE, &
328	(/ id_dim_x_3d(av), id_dim_y_3d(av) /), &
329	id_var_zwwi_3d(av) )
330	CALL handle_netcdf_error( 'netcdf', 416 )
331
332	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zwwi_3d(av), &
333	'units', 'meters' )
334	CALL handle_netcdf_error( 'netcdf', 417 )
335
336	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_zwwi_3d(av), &
337	'long_name', 'zw(nzb_w_inner)' )
338	CALL handle_netcdf_error( 'netcdf', 418 )
339
340	ENDIF
341
342
343	!
344	!-- Define the variables
345	var_list = ';'
346	i = 1
347
348	DO WHILE ( do3d(av,i)(1:1) /= ' ' )
349
350	!
351	!-- Check for the grid
352	found = .TRUE.
353	SELECT CASE ( do3d(av,i) )
354	!
355	!-- Most variables are defined on the scalar grid
356	CASE ( 'e', 'p', 'pc', 'pr', 'pt', 'q', 'ql', 'ql_c', 'ql_v', &
357	'ql_vp', 'qv', 'rho', 's', 'sa', 'vpt' )
358
359	grid_x = 'x'
360	grid_y = 'y'
361	grid_z = 'zu'
362	!
363	!-- u grid
364	CASE ( 'u' )
365
366	grid_x = 'xu'
367	grid_y = 'y'
368	grid_z = 'zu'
369	!
370	!-- v grid
371	CASE ( 'v' )
372
373	grid_x = 'x'
374	grid_y = 'yv'
375	grid_z = 'zu'
376	!
377	!-- w grid
378	CASE ( 'w' )
379
380	grid_x = 'x'
381	grid_y = 'y'
382	grid_z = 'zw'
383
384	CASE DEFAULT
385	!
386	!-- Check for user-defined quantities
387	CALL user_define_netcdf_grid( do3d(av,i), found, grid_x, &
388	grid_y, grid_z )
389
390	END SELECT
391
392	!
393	!-- Select the respective dimension ids
394	IF ( grid_x == 'x' ) THEN
395	id_x = id_dim_x_3d(av)
396	ELSEIF ( grid_x == 'xu' ) THEN
397	id_x = id_dim_xu_3d(av)
398	ENDIF
399
400	IF ( grid_y == 'y' ) THEN
401	id_y = id_dim_y_3d(av)
402	ELSEIF ( grid_y == 'yv' ) THEN
403	id_y = id_dim_yv_3d(av)
404	ENDIF
405
406	IF ( grid_z == 'zu' ) THEN
407	id_z = id_dim_zu_3d(av)
408	ELSEIF ( grid_z == 'zw' ) THEN
409	id_z = id_dim_zw_3d(av)
410	ENDIF
411
412	!
413	!-- Define the grid
414	nc_stat = NF90_DEF_VAR( id_set_3d(av), do3d(av,i), &
415	nc_precision(4), &
416	(/ id_x, id_y, id_z, id_dim_time_3d(av) /), &
417	id_var_do3d(av,i) )
418
419	IF ( .NOT. found ) THEN
420	WRITE ( message_string, * ) 'no grid defined for', &
421	' variable ', TRIM( do3d(av,i) )
422	CALL message( 'define_netcdf_header', 'PA0244', 0, 1, 0, 6, 0 )
423	ENDIF
424
425	var_list = TRIM( var_list ) // TRIM( do3d(av,i) ) // ';'
426
427	CALL handle_netcdf_error( 'netcdf', 79 )
428	!
429	!-- Store the 'real' name of the variable (with *, for example)
430	!-- in the long_name attribute. This is evaluated by Ferret,
431	!-- for example.
432	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_do3d(av,i), &
433	'long_name', do3d(av,i) )
434	CALL handle_netcdf_error( 'netcdf', 80 )
435	!
436	!-- Define the variable's unit
437	nc_stat = NF90_PUT_ATT( id_set_3d(av), id_var_do3d(av,i), &
438	'units', TRIM( do3d_unit(av,i) ) )
439	CALL handle_netcdf_error( 'netcdf', 357 )
440
441	i = i + 1
442
443	ENDDO
444
445	!
446	!-- No arrays to output
447	IF ( i == 1 ) RETURN
448
449	!
450	!-- Write the list of variables as global attribute (this is used by
451	!-- restart runs and by combine_plot_fields)
452	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'VAR_LIST', &
453	var_list )
454	CALL handle_netcdf_error( 'netcdf', 81 )
455
456	!
457	!-- Leave NetCDF define mode
458	nc_stat = NF90_ENDDEF( id_set_3d(av) )
459	CALL handle_netcdf_error( 'netcdf', 82 )
460
461	!
462	!-- Write data for x (shifted by +dx/2) and xu axis
463	ALLOCATE( netcdf_data(0:nx+1) )
464
465	DO i = 0, nx+1
466	netcdf_data(i) = ( i + 0.5 ) * dx
467	ENDDO
468
469	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_x_3d(av), netcdf_data, &
470	start = (/ 1 /), count = (/ nx+2 /) )
471	CALL handle_netcdf_error( 'netcdf', 83 )
472
473	DO i = 0, nx+1
474	netcdf_data(i) = i * dx
475	ENDDO
476
477	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_xu_3d(av), &
478	netcdf_data, start = (/ 1 /), &
479	count = (/ nx+2 /) )
480	CALL handle_netcdf_error( 'netcdf', 385 )
481
482	DEALLOCATE( netcdf_data )
483
484	!
485	!-- Write data for y (shifted by +dy/2) and yv axis
486	ALLOCATE( netcdf_data(0:ny+1) )
487
488	DO i = 0, ny+1
489	netcdf_data(i) = ( i + 0.5 ) * dy
490	ENDDO
491
492	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_y_3d(av), netcdf_data, &
493	start = (/ 1 /), count = (/ ny+2 /))
494	CALL handle_netcdf_error( 'netcdf', 84 )
495
496	DO i = 0, ny+1
497	netcdf_data(i) = i * dy
498	ENDDO
499
500	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_yv_3d(av), &
501	netcdf_data, start = (/ 1 /), &
502	count = (/ ny+2 /))
503	CALL handle_netcdf_error( 'netcdf', 387 )
504
505	DEALLOCATE( netcdf_data )
506
507	!
508	!-- Write zu and zw data (vertical axes)
509	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zu_3d(av), &
510	zu(nzb:nz_do3d), start = (/ 1 /), &
511	count = (/ nz_do3d-nzb+1 /) )
512	CALL handle_netcdf_error( 'netcdf', 85 )
513
514
515	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zw_3d(av), &
516	zw(nzb:nz_do3d), start = (/ 1 /), &
517	count = (/ nz_do3d-nzb+1 /) )
518	CALL handle_netcdf_error( 'netcdf', 86 )
519
520
521	!
522	!-- In case of non-flat topography write height information
523	IF ( TRIM( topography ) /= 'flat' ) THEN
524
525	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zusi_3d(av), &
526	zu_s_inner(0:nx+1,0:ny+1), &
527	start = (/ 1, 1 /), &
528	count = (/ nx+2, ny+2 /) )
529	CALL handle_netcdf_error( 'netcdf', 419 )
530
531	nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_zwwi_3d(av), &
532	zw_w_inner(0:nx+1,0:ny+1), &
533	start = (/ 1, 1 /), &
534	count = (/ nx+2, ny+2 /) )
535	CALL handle_netcdf_error( 'netcdf', 420 )
536
537	ENDIF
538
539	CASE ( '3d_ext' )
540
541	!
542	!-- Get the list of variables and compare with the actual run.
543	!-- First var_list_old has to be reset, since GET_ATT does not assign
544	!-- trailing blanks.
545	var_list_old = ' '
546	nc_stat = NF90_GET_ATT( id_set_3d(av), NF90_GLOBAL, 'VAR_LIST', &
547	var_list_old )
548	CALL handle_netcdf_error( 'netcdf', 87 )
549
550	var_list = ';'
551	i = 1
552	DO WHILE ( do3d(av,i)(1:1) /= ' ' )
553	var_list = TRIM(var_list) // TRIM( do3d(av,i) ) // ';'
554	i = i + 1
555	ENDDO
556
557	IF ( av == 0 ) THEN
558	var = '(3d)'
559	ELSE
560	var = '(3d_av)'
561	ENDIF
562
563	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
564	message_string = 'NetCDF file for volume data ' // &
565	TRIM( var ) // ' from previuos run found,' // &
566	'&but this file cannot be extended due to' // &
567	' variable mismatch.' // &
568	'&New file is created instead.'
569	CALL message( 'define_netcdf_header', 'PA0245', 0, 1, 0, 6, 0 )
570	extend = .FALSE.
571	RETURN
572	ENDIF
573
574	!
575	!-- Get and compare the number of vertical gridpoints
576	nc_stat = NF90_INQ_VARID( id_set_3d(av), 'zu_3d', id_var_zu_3d(av) )
577	CALL handle_netcdf_error( 'netcdf', 88 )
578
579	nc_stat = NF90_INQUIRE_VARIABLE( id_set_3d(av), id_var_zu_3d(av), &
580	dimids = id_dim_zu_3d_old )
581	CALL handle_netcdf_error( 'netcdf', 89 )
582	id_dim_zu_3d(av) = id_dim_zu_3d_old(1)
583
584	nc_stat = NF90_INQUIRE_DIMENSION( id_set_3d(av), id_dim_zu_3d(av), &
585	len = nz_old )
586	CALL handle_netcdf_error( 'netcdf', 90 )
587
588	IF ( nz_do3d-nzb+1 /= nz_old ) THEN
589	message_string = 'NetCDF file for volume data ' // &
590	TRIM( var ) // ' from previuos run found,' // &
591	'&but this file cannot be extended due to' // &
592	' mismatch in number of' // &
593	'&vertical grid points (nz_do3d).' // &
594	'&New file is created instead.'
595	CALL message( 'define_netcdf_header', 'PA0246', 0, 1, 0, 6, 0 )
596	extend = .FALSE.
597	RETURN
598	ENDIF
599
600	!
601	!-- Get the id of the time coordinate (unlimited coordinate) and its
602	!-- last index on the file. The next time level is pl3d..count+1.
603	!-- The current time must be larger than the last output time
604	!-- on the file.
605	nc_stat = NF90_INQ_VARID( id_set_3d(av), 'time', id_var_time_3d(av) )
606	CALL handle_netcdf_error( 'netcdf', 91 )
607
608	nc_stat = NF90_INQUIRE_VARIABLE( id_set_3d(av), id_var_time_3d(av), &
609	dimids = id_dim_time_old )
610	CALL handle_netcdf_error( 'netcdf', 92 )
611
612	id_dim_time_3d(av) = id_dim_time_old(1)
613
614	nc_stat = NF90_INQUIRE_DIMENSION( id_set_3d(av), id_dim_time_3d(av), &
615	len = do3d_time_count(av) )
616	CALL handle_netcdf_error( 'netcdf', 93 )
617
618	nc_stat = NF90_GET_VAR( id_set_3d(av), id_var_time_3d(av), &
619	last_time_coordinate, &
620	start = (/ do3d_time_count(av) /), &
621	count = (/ 1 /) )
622	CALL handle_netcdf_error( 'netcdf', 94 )
623
624	IF ( last_time_coordinate(1) >= simulated_time ) THEN
625	message_string = 'NetCDF file for volume data ' // &
626	TRIM( var ) // ' from previuos run found,' // &
627	'&but this file cannot be extended becaus' // &
628	'e the current output time' // &
629	'&is less or equal than the last output t' // &
630	'ime on this file.' // &
631	'&New file is created instead.'
632	CALL message( 'define_netcdf_header', 'PA0247', 0, 1, 0, 6, 0 )
633	do3d_time_count(av) = 0
634	extend = .FALSE.
635	RETURN
636	ENDIF
637
638	!
639	!-- Dataset seems to be extendable.
640	!-- Now get the variable ids.
641	i = 1
642	DO WHILE ( do3d(av,i)(1:1) /= ' ' )
643	nc_stat = NF90_INQ_VARID( id_set_3d(av), TRIM( do3d(av,i) ), &
644	id_var_do3d(av,i) )
645	CALL handle_netcdf_error( 'netcdf', 95 )
646	i = i + 1
647	ENDDO
648
649	!
650	!-- Change the titel attribute on file
651	nc_stat = NF90_PUT_ATT( id_set_3d(av), NF90_GLOBAL, 'title', &
652	TRIM( run_description_header ) )
653	CALL handle_netcdf_error( 'netcdf', 96 )
654	message_string = 'NetCDF file for volume data ' // &
655	TRIM( var ) // ' from previous run found.' // &
656	'&This file will be extended.'
657	CALL message( 'define_netcdf_header', 'PA0248', 0, 0, 0, 6, 0 )
658
659	CASE ( 'xy_new' )
660
661	!
662	!-- Define some global attributes of the dataset
663	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'Conventions', &
664	'COARDS' )
665	CALL handle_netcdf_error( 'netcdf', 97 )
666
667	IF ( av == 0 ) THEN
668	time_average_text = ' '
669	ELSE
670	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
671	averaging_interval
672	ENDIF
673	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'title', &
674	TRIM( run_description_header ) // &
675	TRIM( time_average_text ) )
676	CALL handle_netcdf_error( 'netcdf', 98 )
677	IF ( av == 1 ) THEN
678	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
679	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'time_avg', &
680	TRIM( time_average_text ) )
681	CALL handle_netcdf_error( 'netcdf', 98 )
682	ENDIF
683
684	!
685	!-- Define time coordinate for xy sections (unlimited dimension)
686	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'time', NF90_UNLIMITED, &
687	id_dim_time_xy(av) )
688	CALL handle_netcdf_error( 'netcdf', 99 )
689
690	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'time', NF90_DOUBLE, &
691	id_dim_time_xy(av), id_var_time_xy(av) )
692	CALL handle_netcdf_error( 'netcdf', 100 )
693
694	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_time_xy(av), 'units', &
695	'seconds')
696	CALL handle_netcdf_error( 'netcdf', 101 )
697
698	!
699	!-- Define the spatial dimensions and coordinates for xy-sections.
700	!-- First, determine the number of horizontal sections to be written.
701	IF ( section(1,1) == -9999 ) THEN
702	RETURN
703	ELSE
704	ns = 1
705	DO WHILE ( section(ns,1) /= -9999 .AND. ns <= 100 )
706	ns = ns + 1
707	ENDDO
708	ns = ns - 1
709	ENDIF
710
711	!
712	!-- Define vertical coordinate grid (zu grid)
713	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zu_xy', ns, id_dim_zu_xy(av) )
714	CALL handle_netcdf_error( 'netcdf', 102 )
715
716	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zu_xy', NF90_DOUBLE, &
717	id_dim_zu_xy(av), id_var_zu_xy(av) )
718	CALL handle_netcdf_error( 'netcdf', 103 )
719
720	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zu_xy(av), 'units', &
721	'meters' )
722	CALL handle_netcdf_error( 'netcdf', 104 )
723
724	!
725	!-- Define vertical coordinate grid (zw grid)
726	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zw_xy', ns, id_dim_zw_xy(av) )
727	CALL handle_netcdf_error( 'netcdf', 105 )
728
729	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zw_xy', NF90_DOUBLE, &
730	id_dim_zw_xy(av), id_var_zw_xy(av) )
731	CALL handle_netcdf_error( 'netcdf', 106 )
732
733	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zw_xy(av), 'units', &
734	'meters' )
735	CALL handle_netcdf_error( 'netcdf', 107 )
736
737	!
738	!-- Define a pseudo vertical coordinate grid for the surface variables
739	!-- u* and t* to store their height level
740	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'zu1_xy', 1, &
741	id_dim_zu1_xy(av) )
742	CALL handle_netcdf_error( 'netcdf', 108 )
743
744	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zu1_xy', NF90_DOUBLE, &
745	id_dim_zu1_xy(av), id_var_zu1_xy(av) )
746	CALL handle_netcdf_error( 'netcdf', 109 )
747
748	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zu1_xy(av), 'units', &
749	'meters' )
750	CALL handle_netcdf_error( 'netcdf', 110 )
751
752	!
753	!-- Define a variable to store the layer indices of the horizontal cross
754	!-- sections, too
755	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'ind_z_xy', NF90_DOUBLE, &
756	id_dim_zu_xy(av), id_var_ind_z_xy(av) )
757	CALL handle_netcdf_error( 'netcdf', 111 )
758
759	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_ind_z_xy(av), 'units', &
760	'gridpoints')
761	CALL handle_netcdf_error( 'netcdf', 112 )
762
763	!
764	!-- Define x-axis (for scalar position)
765	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'x', nx+2, id_dim_x_xy(av) )
766	CALL handle_netcdf_error( 'netcdf', 113 )
767
768	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'x', NF90_DOUBLE, &
769	id_dim_x_xy(av), id_var_x_xy(av) )
770	CALL handle_netcdf_error( 'netcdf', 114 )
771
772
773	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_x_xy(av), 'units', &
774	'meters' )
775	CALL handle_netcdf_error( 'netcdf', 115 )
776
777	!
778	!-- Define x-axis (for u position)
779	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'xu', nx+2, id_dim_xu_xy(av) )
780	CALL handle_netcdf_error( 'netcdf', 388 )
781
782	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'xu', NF90_DOUBLE, &
783	id_dim_xu_xy(av), id_var_xu_xy(av) )
784	CALL handle_netcdf_error( 'netcdf', 389 )
785
786	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_xu_xy(av), 'units', &
787	'meters' )
788	CALL handle_netcdf_error( 'netcdf', 390 )
789
790	!
791	!-- Define y-axis (for scalar position)
792	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'y', ny+2, id_dim_y_xy(av) )
793	CALL handle_netcdf_error( 'netcdf', 116 )
794
795	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'y', NF90_DOUBLE, &
796	id_dim_y_xy(av), id_var_y_xy(av) )
797	CALL handle_netcdf_error( 'netcdf', 117 )
798
799	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_y_xy(av), 'units', &
800	'meters' )
801	CALL handle_netcdf_error( 'netcdf', 118 )
802
803	!
804	!-- Define y-axis (for scalar position)
805	nc_stat = NF90_DEF_DIM( id_set_xy(av), 'yv', ny+2, id_dim_yv_xy(av) )
806	CALL handle_netcdf_error( 'netcdf', 364 )
807
808	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'yv', NF90_DOUBLE, &
809	id_dim_yv_xy(av), id_var_yv_xy(av) )
810	CALL handle_netcdf_error( 'netcdf', 365 )
811
812	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_yv_xy(av), 'units', &
813	'meters' )
814	CALL handle_netcdf_error( 'netcdf', 366 )
815
816	!
817	!-- In case of non-flat topography define 2d-arrays containing the height
818	!-- informations
819	IF ( TRIM( topography ) /= 'flat' ) THEN
820	!
821	!-- Define zusi = zu(nzb_s_inner)
822	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zusi', NF90_DOUBLE, &
823	(/ id_dim_x_xy(av), id_dim_y_xy(av) /), &
824	id_var_zusi_xy(av) )
825	CALL handle_netcdf_error( 'netcdf', 421 )
826
827	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zusi_xy(av), &
828	'units', 'meters' )
829	CALL handle_netcdf_error( 'netcdf', 422 )
830
831	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zusi_xy(av), &
832	'long_name', 'zu(nzb_s_inner)' )
833	CALL handle_netcdf_error( 'netcdf', 423 )
834
835	!
836	!-- Define zwwi = zw(nzb_w_inner)
837	nc_stat = NF90_DEF_VAR( id_set_xy(av), 'zwwi', NF90_DOUBLE, &
838	(/ id_dim_x_xy(av), id_dim_y_xy(av) /), &
839	id_var_zwwi_xy(av) )
840	CALL handle_netcdf_error( 'netcdf', 424 )
841
842	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zwwi_xy(av), &
843	'units', 'meters' )
844	CALL handle_netcdf_error( 'netcdf', 425 )
845
846	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_zwwi_xy(av), &
847	'long_name', 'zw(nzb_w_inner)' )
848	CALL handle_netcdf_error( 'netcdf', 426 )
849
850	ENDIF
851
852
853	!
854	!-- Define the variables
855	var_list = ';'
856	i = 1
857
858	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
859
860	IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN
861	!
862	!-- If there is a star in the variable name (u* or t*), it is a
863	!-- surface variable. Define it with id_dim_zu1_xy.
864	IF ( INDEX( do2d(av,i), '*' ) /= 0 ) THEN
865	!
866	!-- First, remove those characters not allowed by NetCDF
867	netcdf_var_name = do2d(av,i)
868	CALL clean_netcdf_varname( netcdf_var_name )
869
870	nc_stat = NF90_DEF_VAR( id_set_xy(av), netcdf_var_name, &
871	nc_precision(1), &
872	(/ id_dim_x_xy(av), id_dim_y_xy(av),&
873	id_dim_zu1_xy(av), &
874	id_dim_time_xy(av) /), &
875	id_var_do2d(av,i) )
876
877	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
878
879	ELSE
880
881	!
882	!-- Check for the grid
883	found = .TRUE.
884	SELECT CASE ( do2d(av,i) )
885	!
886	!-- Most variables are defined on the zu grid
887	CASE ( 'e_xy', 'p_xy', 'pc_xy', 'pr_xy', 'pt_xy', 'q_xy',&
888	'ql_xy', 'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', &
889	'qv_xy', 'rho_xy', 's_xy', 'sa_xy', 'vpt_xy' )
890
891	grid_x = 'x'
892	grid_y = 'y'
893	grid_z = 'zu'
894	!
895	!-- u grid
896	CASE ( 'u_xy' )
897
898	grid_x = 'xu'
899	grid_y = 'y'
900	grid_z = 'zu'
901	!
902	!-- v grid
903	CASE ( 'v_xy' )
904
905	grid_x = 'x'
906	grid_y = 'yv'
907	grid_z = 'zu'
908	!
909	!-- w grid
910	CASE ( 'w_xy' )
911
912	grid_x = 'x'
913	grid_y = 'y'
914	grid_z = 'zw'
915
916	CASE DEFAULT
917	!
918	!-- Check for user-defined quantities
919	CALL user_define_netcdf_grid( do2d(av,i), found, &
920	grid_x, grid_y, grid_z )
921
922	END SELECT
923
924	!
925	!-- Select the respective dimension ids
926	IF ( grid_x == 'x' ) THEN
927	id_x = id_dim_x_xy(av)
928	ELSEIF ( grid_x == 'xu' ) THEN
929	id_x = id_dim_xu_xy(av)
930	ENDIF
931
932	IF ( grid_y == 'y' ) THEN
933	id_y = id_dim_y_xy(av)
934	ELSEIF ( grid_y == 'yv' ) THEN
935	id_y = id_dim_yv_xy(av)
936	ENDIF
937
938	IF ( grid_z == 'zu' ) THEN
939	id_z = id_dim_zu_xy(av)
940	ELSEIF ( grid_z == 'zw' ) THEN
941	id_z = id_dim_zw_xy(av)
942	ENDIF
943
944	!
945	!-- Define the grid
946	nc_stat = NF90_DEF_VAR( id_set_xy(av), do2d(av,i), &
947	nc_precision(1), &
948	(/ id_x, id_y, id_z, id_dim_time_xy(av) /), &
949	id_var_do2d(av,i) )
950
951	IF ( .NOT. found ) THEN
952	WRITE ( message_string, * ) 'no grid defined for', &
953	' variable ', TRIM( do2d(av,i) )
954	CALL message( 'define_netcdf_header', 'PA0244',&
955	0, 1, 0, 6, 0 )
956	ENDIF
957
958	var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';'
959
960	ENDIF
961
962	CALL handle_netcdf_error( 'netcdf', 119 )
963	!
964	!-- Store the 'real' name of the variable (with *, for example)
965	!-- in the long_name attribute. This is evaluated by Ferret,
966	!-- for example.
967	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_do2d(av,i), &
968	'long_name', do2d(av,i) )
969	CALL handle_netcdf_error( 'netcdf', 120 )
970	!
971	!-- Define the variable's unit
972	nc_stat = NF90_PUT_ATT( id_set_xy(av), id_var_do2d(av,i), &
973	'units', TRIM( do2d_unit(av,i) ) )
974	CALL handle_netcdf_error( 'netcdf', 354 )
975	ENDIF
976
977	i = i + 1
978
979	ENDDO
980
981	!
982	!-- No arrays to output. Close the netcdf file and return.
983	IF ( i == 1 ) RETURN
984
985	!
986	!-- Write the list of variables as global attribute (this is used by
987	!-- restart runs and by combine_plot_fields)
988	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'VAR_LIST', &
989	var_list )
990	CALL handle_netcdf_error( 'netcdf', 121 )
991
992	!
993	!-- Leave NetCDF define mode
994	nc_stat = NF90_ENDDEF( id_set_xy(av) )
995	CALL handle_netcdf_error( 'netcdf', 122 )
996
997	!
998	!-- Write axis data: z_xy, x, y
999	ALLOCATE( netcdf_data(1:ns) )
1000
1001	!
1002	!-- Write zu data
1003	DO i = 1, ns
1004	IF( section(i,1) == -1 ) THEN
1005	netcdf_data(i) = -1.0 ! section averaged along z
1006	ELSE
1007	netcdf_data(i) = zu( section(i,1) )
1008	ENDIF
1009	ENDDO
1010	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zu_xy(av), &
1011	netcdf_data, start = (/ 1 /), &
1012	count = (/ ns /) )
1013	CALL handle_netcdf_error( 'netcdf', 123 )
1014
1015	!
1016	!-- Write zw data
1017	DO i = 1, ns
1018	IF( section(i,1) == -1 ) THEN
1019	netcdf_data(i) = -1.0 ! section averaged along z
1020	ELSE
1021	netcdf_data(i) = zw( section(i,1) )
1022	ENDIF
1023	ENDDO
1024	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zw_xy(av), &
1025	netcdf_data, start = (/ 1 /), &
1026	count = (/ ns /) )
1027	CALL handle_netcdf_error( 'netcdf', 124 )
1028
1029	!
1030	!-- Write gridpoint number data
1031	netcdf_data(1:ns) = section(1:ns,1)
1032	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_ind_z_xy(av), &
1033	netcdf_data, start = (/ 1 /), &
1034	count = (/ ns /) )
1035	CALL handle_netcdf_error( 'netcdf', 125 )
1036
1037	DEALLOCATE( netcdf_data )
1038
1039	!
1040	!-- Write the cross section height u, t
1041	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zu1_xy(av), &
1042	(/ zu(nzb+1) /), start = (/ 1 /), &
1043	count = (/ 1 /) )
1044	CALL handle_netcdf_error( 'netcdf', 126 )
1045
1046	!
1047	!-- Write data for x (shifted by +dx/2) and xu axis
1048	ALLOCATE( netcdf_data(0:nx+1) )
1049
1050	DO i = 0, nx+1
1051	netcdf_data(i) = ( i + 0.5 ) * dx
1052	ENDDO
1053
1054	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_x_xy(av), netcdf_data, &
1055	start = (/ 1 /), count = (/ nx+2 /) )
1056	CALL handle_netcdf_error( 'netcdf', 127 )
1057
1058	DO i = 0, nx+1
1059	netcdf_data(i) = i * dx
1060	ENDDO
1061
1062	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_xu_xy(av), &
1063	netcdf_data, start = (/ 1 /), &
1064	count = (/ nx+2 /) )
1065	CALL handle_netcdf_error( 'netcdf', 367 )
1066
1067	DEALLOCATE( netcdf_data )
1068
1069	!
1070	!-- Write data for y (shifted by +dy/2) and yv axis
1071	ALLOCATE( netcdf_data(0:ny+1) )
1072
1073	DO i = 0, ny+1
1074	netcdf_data(i) = ( i + 0.5 ) * dy
1075	ENDDO
1076
1077	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_y_xy(av), netcdf_data, &
1078	start = (/ 1 /), count = (/ ny+2 /))
1079	CALL handle_netcdf_error( 'netcdf', 128 )
1080
1081	DO i = 0, ny+1
1082	netcdf_data(i) = i * dy
1083	ENDDO
1084
1085	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_yv_xy(av), &
1086	netcdf_data, start = (/ 1 /), &
1087	count = (/ ny+2 /))
1088	CALL handle_netcdf_error( 'netcdf', 368 )
1089
1090	DEALLOCATE( netcdf_data )
1091
1092	!
1093	!-- In case of non-flat topography write height information
1094	IF ( TRIM( topography ) /= 'flat' ) THEN
1095
1096	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zusi_xy(av), &
1097	zu_s_inner(0:nx+1,0:ny+1), &
1098	start = (/ 1, 1 /), &
1099	count = (/ nx+2, ny+2 /) )
1100	CALL handle_netcdf_error( 'netcdf', 427 )
1101
1102	nc_stat = NF90_PUT_VAR( id_set_xy(av), id_var_zwwi_xy(av), &
1103	zw_w_inner(0:nx+1,0:ny+1), &
1104	start = (/ 1, 1 /), &
1105	count = (/ nx+2, ny+2 /) )
1106	CALL handle_netcdf_error( 'netcdf', 428 )
1107
1108	ENDIF
1109
1110
1111	CASE ( 'xy_ext' )
1112
1113	!
1114	!-- Get the list of variables and compare with the actual run.
1115	!-- First var_list_old has to be reset, since GET_ATT does not assign
1116	!-- trailing blanks.
1117	var_list_old = ' '
1118	nc_stat = NF90_GET_ATT( id_set_xy(av), NF90_GLOBAL, 'VAR_LIST', &
1119	var_list_old )
1120	CALL handle_netcdf_error( 'netcdf', 129 )
1121
1122	var_list = ';'
1123	i = 1
1124	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1125	IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN
1126	netcdf_var_name = do2d(av,i)
1127	CALL clean_netcdf_varname( netcdf_var_name )
1128	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
1129	ENDIF
1130	i = i + 1
1131	ENDDO
1132
1133	IF ( av == 0 ) THEN
1134	var = '(xy)'
1135	ELSE
1136	var = '(xy_av)'
1137	ENDIF
1138
1139	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
1140	message_string = 'NetCDF file for cross-sections ' // &
1141	TRIM( var ) // ' from previuos run found,' // &
1142	'& but this file cannot be extended due to' // &
1143	' variable mismatch.' // &
1144	'&New file is created instead.'
1145	CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
1146	extend = .FALSE.
1147	RETURN
1148	ENDIF
1149
1150	!
1151	!-- Calculate the number of current sections
1152	ns = 1
1153	DO WHILE ( section(ns,1) /= -9999 .AND. ns <= 100 )
1154	ns = ns + 1
1155	ENDDO
1156	ns = ns - 1
1157
1158	!
1159	!-- Get and compare the number of horizontal cross sections
1160	nc_stat = NF90_INQ_VARID( id_set_xy(av), 'zu_xy', id_var_zu_xy(av) )
1161	CALL handle_netcdf_error( 'netcdf', 130 )
1162
1163	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xy(av), id_var_zu_xy(av), &
1164	dimids = id_dim_zu_xy_old )
1165	CALL handle_netcdf_error( 'netcdf', 131 )
1166	id_dim_zu_xy(av) = id_dim_zu_xy_old(1)
1167
1168	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xy(av), id_dim_zu_xy(av), &
1169	len = ns_old )
1170	CALL handle_netcdf_error( 'netcdf', 132 )
1171
1172	IF ( ns /= ns_old ) THEN
1173	message_string = 'NetCDF file for cross-sections ' // &
1174	TRIM( var ) // ' from previuos run found,' // &
1175	'&but this file cannot be extended due to' // &
1176	' mismatch in number of' // &
1177	'&cross sections.' // &
1178	'&New file is created instead.'
1179	CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
1180	extend = .FALSE.
1181	RETURN
1182	ENDIF
1183
1184	!
1185	!-- Get and compare the heights of the cross sections
1186	ALLOCATE( netcdf_data(1:ns_old) )
1187
1188	nc_stat = NF90_GET_VAR( id_set_xy(av), id_var_zu_xy(av), netcdf_data )
1189	CALL handle_netcdf_error( 'netcdf', 133 )
1190
1191	DO i = 1, ns
1192	IF ( section(i,1) /= -1 ) THEN
1193	IF ( zu(section(i,1)) /= netcdf_data(i) ) THEN
1194	message_string = 'NetCDF file for cross-sections ' // &
1195	TRIM( var ) // ' from previuos run found,' // &
1196	'&but this file cannot be extended' // &
1197	' due to mismatch in cross' // &
1198	'&section levels.' // &
1199	'&New file is created instead.'
1200	CALL message( 'define_netcdf_header', 'PA0251', &
1201	0, 1, 0, 6, 0 )
1202	extend = .FALSE.
1203	RETURN
1204	ENDIF
1205	ELSE
1206	IF ( -1.0 /= netcdf_data(i) ) THEN
1207	message_string = 'NetCDF file for cross-sections ' // &
1208	TRIM( var ) // ' from previuos run found,' // &
1209	'&but this file cannot be extended' // &
1210	' due to mismatch in cross' // &
1211	'&section levels.' // &
1212	'&New file is created instead.'
1213	CALL message( 'define_netcdf_header', 'PA0251',&
1214	0, 1, 0, 6, 0 )
1215	extend = .FALSE.
1216	RETURN
1217	ENDIF
1218	ENDIF
1219	ENDDO
1220
1221	DEALLOCATE( netcdf_data )
1222
1223	!
1224	!-- Get the id of the time coordinate (unlimited coordinate) and its
1225	!-- last index on the file. The next time level is do2d..count+1.
1226	!-- The current time must be larger than the last output time
1227	!-- on the file.
1228	nc_stat = NF90_INQ_VARID( id_set_xy(av), 'time', id_var_time_xy(av) )
1229	CALL handle_netcdf_error( 'netcdf', 134 )
1230
1231	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xy(av), id_var_time_xy(av), &
1232	dimids = id_dim_time_old )
1233	CALL handle_netcdf_error( 'netcdf', 135 )
1234	id_dim_time_xy(av) = id_dim_time_old(1)
1235
1236	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xy(av), id_dim_time_xy(av), &
1237	len = do2d_xy_time_count(av) )
1238	CALL handle_netcdf_error( 'netcdf', 136 )
1239
1240	nc_stat = NF90_GET_VAR( id_set_xy(av), id_var_time_xy(av), &
1241	last_time_coordinate, &
1242	start = (/ do2d_xy_time_count(av) /), &
1243	count = (/ 1 /) )
1244	CALL handle_netcdf_error( 'netcdf', 137 )
1245
1246	IF ( last_time_coordinate(1) >= simulated_time ) THEN
1247	message_string = 'NetCDF file for cross sections ' // &
1248	TRIM( var ) // ' from previuos run found,' // &
1249	'&but this file cannot be extended becaus' // &
1250	'e the current output time' // &
1251	'&is less or equal than the last output t' // &
1252	'ime on this file.' // &
1253	'&New file is created instead.'
1254	CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
1255	do2d_xy_time_count(av) = 0
1256	extend = .FALSE.
1257	RETURN
1258	ENDIF
1259
1260	!
1261	!-- Dataset seems to be extendable.
1262	!-- Now get the variable ids.
1263	i = 1
1264	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1265	IF ( INDEX( do2d(av,i), 'xy' ) /= 0 ) THEN
1266	netcdf_var_name = do2d(av,i)
1267	CALL clean_netcdf_varname( netcdf_var_name )
1268	nc_stat = NF90_INQ_VARID( id_set_xy(av), netcdf_var_name, &
1269	id_var_do2d(av,i) )
1270	CALL handle_netcdf_error( 'netcdf', 138 )
1271	ENDIF
1272	i = i + 1
1273	ENDDO
1274
1275	!
1276	!-- Change the titel attribute on file
1277	nc_stat = NF90_PUT_ATT( id_set_xy(av), NF90_GLOBAL, 'title', &
1278	TRIM( run_description_header ) )
1279	CALL handle_netcdf_error( 'netcdf', 139 )
1280	message_string = 'NetCDF file for cross-sections ' // &
1281	TRIM( var ) // ' from previous run found.' // &
1282	'&This file will be extended.'
1283	CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
1284
1285
1286	CASE ( 'xz_new' )
1287
1288	!
1289	!-- Define some global attributes of the dataset
1290	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'Conventions', &
1291	'COARDS' )
1292	CALL handle_netcdf_error( 'netcdf', 140 )
1293
1294	IF ( av == 0 ) THEN
1295	time_average_text = ' '
1296	ELSE
1297	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
1298	averaging_interval
1299	ENDIF
1300	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'title', &
1301	TRIM( run_description_header ) // &
1302	TRIM( time_average_text ) )
1303	CALL handle_netcdf_error( 'netcdf', 141 )
1304	IF ( av == 1 ) THEN
1305	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
1306	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'time_avg', &
1307	TRIM( time_average_text ) )
1308	CALL handle_netcdf_error( 'netcdf', 141 )
1309	ENDIF
1310
1311	!
1312	!-- Define time coordinate for xz sections (unlimited dimension)
1313	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'time', NF90_UNLIMITED, &
1314	id_dim_time_xz(av) )
1315	CALL handle_netcdf_error( 'netcdf', 142 )
1316
1317	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'time', NF90_DOUBLE, &
1318	id_dim_time_xz(av), id_var_time_xz(av) )
1319	CALL handle_netcdf_error( 'netcdf', 143 )
1320
1321	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_time_xz(av), 'units', &
1322	'seconds')
1323	CALL handle_netcdf_error( 'netcdf', 144 )
1324
1325	!
1326	!-- Define the spatial dimensions and coordinates for xz-sections.
1327	!-- First, determine the number of vertical sections to be written.
1328	IF ( section(1,2) == -9999 ) THEN
1329	RETURN
1330	ELSE
1331	ns = 1
1332	DO WHILE ( section(ns,2) /= -9999 .AND. ns <= 100 )
1333	ns = ns + 1
1334	ENDDO
1335	ns = ns - 1
1336	ENDIF
1337
1338	!
1339	!-- Define y-axis (for scalar position)
1340	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'y_xz', ns, id_dim_y_xz(av) )
1341	CALL handle_netcdf_error( 'netcdf', 145 )
1342
1343	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'y_xz', NF90_DOUBLE, &
1344	id_dim_y_xz(av), id_var_y_xz(av) )
1345	CALL handle_netcdf_error( 'netcdf', 146 )
1346
1347	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_y_xz(av), 'units', &
1348	'meters' )
1349	CALL handle_netcdf_error( 'netcdf', 147 )
1350
1351	!
1352	!-- Define y-axis (for v position)
1353	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'yv_xz', ns, id_dim_yv_xz(av) )
1354	CALL handle_netcdf_error( 'netcdf', 369 )
1355
1356	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'yv_xz', NF90_DOUBLE, &
1357	id_dim_yv_xz(av), id_var_yv_xz(av) )
1358	CALL handle_netcdf_error( 'netcdf', 370 )
1359
1360	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_yv_xz(av), 'units', &
1361	'meters' )
1362	CALL handle_netcdf_error( 'netcdf', 371 )
1363
1364	!
1365	!-- Define a variable to store the layer indices of the vertical cross
1366	!-- sections
1367	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'ind_y_xz', NF90_DOUBLE, &
1368	id_dim_y_xz(av), id_var_ind_y_xz(av) )
1369	CALL handle_netcdf_error( 'netcdf', 148 )
1370
1371	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_ind_y_xz(av), 'units', &
1372	'gridpoints')
1373	CALL handle_netcdf_error( 'netcdf', 149 )
1374
1375	!
1376	!-- Define x-axis (for scalar position)
1377	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'x', nx+2, id_dim_x_xz(av) )
1378	CALL handle_netcdf_error( 'netcdf', 150 )
1379
1380	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'x', NF90_DOUBLE, &
1381	id_dim_x_xz(av), id_var_x_xz(av) )
1382	CALL handle_netcdf_error( 'netcdf', 151 )
1383
1384	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_x_xz(av), 'units', &
1385	'meters' )
1386	CALL handle_netcdf_error( 'netcdf', 152 )
1387
1388	!
1389	!-- Define x-axis (for u position)
1390	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'xu', nx+2, id_dim_xu_xz(av) )
1391	CALL handle_netcdf_error( 'netcdf', 372 )
1392
1393	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'xu', NF90_DOUBLE, &
1394	id_dim_xu_xz(av), id_var_xu_xz(av) )
1395	CALL handle_netcdf_error( 'netcdf', 373 )
1396
1397	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_xu_xz(av), 'units', &
1398	'meters' )
1399	CALL handle_netcdf_error( 'netcdf', 374 )
1400
1401	!
1402	!-- Define the two z-axes (zu and zw)
1403	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'zu', nz+2, id_dim_zu_xz(av) )
1404	CALL handle_netcdf_error( 'netcdf', 153 )
1405
1406	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'zu', NF90_DOUBLE, &
1407	id_dim_zu_xz(av), id_var_zu_xz(av) )
1408	CALL handle_netcdf_error( 'netcdf', 154 )
1409
1410	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_zu_xz(av), 'units', &
1411	'meters' )
1412	CALL handle_netcdf_error( 'netcdf', 155 )
1413
1414	nc_stat = NF90_DEF_DIM( id_set_xz(av), 'zw', nz+2, id_dim_zw_xz(av) )
1415	CALL handle_netcdf_error( 'netcdf', 156 )
1416
1417	nc_stat = NF90_DEF_VAR( id_set_xz(av), 'zw', NF90_DOUBLE, &
1418	id_dim_zw_xz(av), id_var_zw_xz(av) )
1419	CALL handle_netcdf_error( 'netcdf', 157 )
1420
1421	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_zw_xz(av), 'units', &
1422	'meters' )
1423	CALL handle_netcdf_error( 'netcdf', 158 )
1424
1425
1426	!
1427	!-- Define the variables
1428	var_list = ';'
1429	i = 1
1430
1431	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1432
1433	IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN
1434
1435	!
1436	!-- Check for the grid
1437	found = .TRUE.
1438	SELECT CASE ( do2d(av,i) )
1439	!
1440	!-- Most variables are defined on the zu grid
1441	CASE ( 'e_xz', 'p_xz', 'pc_xz', 'pr_xz', 'pt_xz', 'q_xz', &
1442	'ql_xz', 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qv_xz', &
1443	'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' )
1444
1445	grid_x = 'x'
1446	grid_y = 'y'
1447	grid_z = 'zu'
1448	!
1449	!-- u grid
1450	CASE ( 'u_xz' )
1451
1452	grid_x = 'xu'
1453	grid_y = 'y'
1454	grid_z = 'zu'
1455	!
1456	!-- v grid
1457	CASE ( 'v_xz' )
1458
1459	grid_x = 'x'
1460	grid_y = 'yv'
1461	grid_z = 'zu'
1462	!
1463	!-- w grid
1464	CASE ( 'w_xz' )
1465
1466	grid_x = 'x'
1467	grid_y = 'y'
1468	grid_z = 'zw'
1469
1470	CASE DEFAULT
1471	!
1472	!-- Check for user-defined quantities
1473	CALL user_define_netcdf_grid( do2d(av,i), found, &
1474	grid_x, grid_y, grid_z )
1475
1476	END SELECT
1477
1478	!
1479	!-- Select the respective dimension ids
1480	IF ( grid_x == 'x' ) THEN
1481	id_x = id_dim_x_xz(av)
1482	ELSEIF ( grid_x == 'xu' ) THEN
1483	id_x = id_dim_xu_xz(av)
1484	ENDIF
1485
1486	IF ( grid_y == 'y' ) THEN
1487	id_y = id_dim_y_xz(av)
1488	ELSEIF ( grid_y == 'yv' ) THEN
1489	id_y = id_dim_yv_xz(av)
1490	ENDIF
1491
1492	IF ( grid_z == 'zu' ) THEN
1493	id_z = id_dim_zu_xz(av)
1494	ELSEIF ( grid_z == 'zw' ) THEN
1495	id_z = id_dim_zw_xz(av)
1496	ENDIF
1497
1498	!
1499	!-- Define the grid
1500	nc_stat = NF90_DEF_VAR( id_set_xz(av), do2d(av,i), &
1501	nc_precision(2), &
1502	(/ id_x, id_y, id_z, id_dim_time_xz(av) /), &
1503	id_var_do2d(av,i) )
1504
1505	IF ( .NOT. found ) THEN
1506	WRITE ( message_string, * ) 'no grid defined for', &
1507	' variable ', TRIM( do2d(av,i) )
1508	CALL message( 'define_netcdf_header', 'PA0244',&
1509	0, 1, 0, 6, 0 )
1510	ENDIF
1511
1512	var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';'
1513
1514	CALL handle_netcdf_error( 'netcdf', 159 )
1515	!
1516	!-- Store the 'real' name of the variable (with *, for example)
1517	!-- in the long_name attribute. This is evaluated by Ferret,
1518	!-- for example.
1519	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_do2d(av,i), &
1520	'long_name', do2d(av,i) )
1521	CALL handle_netcdf_error( 'netcdf', 160 )
1522	!
1523	!-- Define the variable's unit
1524	nc_stat = NF90_PUT_ATT( id_set_xz(av), id_var_do2d(av,i), &
1525	'units', TRIM( do2d_unit(av,i) ) )
1526	CALL handle_netcdf_error( 'netcdf', 355 )
1527	ENDIF
1528
1529	i = i + 1
1530
1531	ENDDO
1532
1533	!
1534	!-- No arrays to output. Close the netcdf file and return.
1535	IF ( i == 1 ) RETURN
1536
1537	!
1538	!-- Write the list of variables as global attribute (this is used by
1539	!-- restart runs and by combine_plot_fields)
1540	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'VAR_LIST', &
1541	var_list )
1542	CALL handle_netcdf_error( 'netcdf', 161 )
1543
1544	!
1545	!-- Leave NetCDF define mode
1546	nc_stat = NF90_ENDDEF( id_set_xz(av) )
1547	CALL handle_netcdf_error( 'netcdf', 162 )
1548
1549	!
1550	!-- Write axis data: y_xz, x, zu, zw
1551	ALLOCATE( netcdf_data(1:ns) )
1552
1553	!
1554	!-- Write y_xz data (shifted by +dy/2)
1555	DO i = 1, ns
1556	IF( section(i,2) == -1 ) THEN
1557	netcdf_data(i) = -1.0 ! section averaged along y
1558	ELSE
1559	netcdf_data(i) = ( section(i,2) + 0.5 ) * dy
1560	ENDIF
1561	ENDDO
1562	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_y_xz(av), netcdf_data, &
1563	start = (/ 1 /), count = (/ ns /) )
1564	CALL handle_netcdf_error( 'netcdf', 163 )
1565
1566	!
1567	!-- Write yv_xz data
1568	DO i = 1, ns
1569	IF( section(i,2) == -1 ) THEN
1570	netcdf_data(i) = -1.0 ! section averaged along y
1571	ELSE
1572	netcdf_data(i) = section(i,2) * dy
1573	ENDIF
1574	ENDDO
1575	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_yv_xz(av), &
1576	netcdf_data, start = (/ 1 /), &
1577	count = (/ ns /) )
1578	CALL handle_netcdf_error( 'netcdf', 375 )
1579
1580	!
1581	!-- Write gridpoint number data
1582	netcdf_data(1:ns) = section(1:ns,2)
1583	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_ind_y_xz(av), &
1584	netcdf_data, start = (/ 1 /), &
1585	count = (/ ns /) )
1586	CALL handle_netcdf_error( 'netcdf', 164 )
1587
1588
1589	DEALLOCATE( netcdf_data )
1590
1591	!
1592	!-- Write data for x (shifted by +dx/2) and xu axis
1593	ALLOCATE( netcdf_data(0:nx+1) )
1594
1595	DO i = 0, nx+1
1596	netcdf_data(i) = ( i + 0.5 ) * dx
1597	ENDDO
1598
1599	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_x_xz(av), netcdf_data, &
1600	start = (/ 1 /), count = (/ nx+2 /) )
1601	CALL handle_netcdf_error( 'netcdf', 165 )
1602
1603	DO i = 0, nx+1
1604	netcdf_data(i) = i * dx
1605	ENDDO
1606
1607	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_xu_xz(av), &
1608	netcdf_data, start = (/ 1 /), &
1609	count = (/ nx+2 /) )
1610	CALL handle_netcdf_error( 'netcdf', 377 )
1611
1612	DEALLOCATE( netcdf_data )
1613
1614	!
1615	!-- Write zu and zw data (vertical axes)
1616	ALLOCATE( netcdf_data(0:nz+1) )
1617
1618	netcdf_data(0:nz+1) = zu(nzb:nzt+1)
1619	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_zu_xz(av), &
1620	netcdf_data, start = (/ 1 /), &
1621	count = (/ nz+2 /) )
1622	CALL handle_netcdf_error( 'netcdf', 166 )
1623
1624	netcdf_data(0:nz+1) = zw(nzb:nzt+1)
1625	nc_stat = NF90_PUT_VAR( id_set_xz(av), id_var_zw_xz(av), &
1626	netcdf_data, start = (/ 1 /), &
1627	count = (/ nz+2 /) )
1628	CALL handle_netcdf_error( 'netcdf', 167 )
1629
1630	DEALLOCATE( netcdf_data )
1631
1632
1633	CASE ( 'xz_ext' )
1634
1635	!
1636	!-- Get the list of variables and compare with the actual run.
1637	!-- First var_list_old has to be reset, since GET_ATT does not assign
1638	!-- trailing blanks.
1639	var_list_old = ' '
1640	nc_stat = NF90_GET_ATT( id_set_xz(av), NF90_GLOBAL, 'VAR_LIST', &
1641	var_list_old )
1642	CALL handle_netcdf_error( 'netcdf', 168 )
1643
1644	var_list = ';'
1645	i = 1
1646	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1647	IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN
1648	netcdf_var_name = do2d(av,i)
1649	CALL clean_netcdf_varname( netcdf_var_name )
1650	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
1651	ENDIF
1652	i = i + 1
1653	ENDDO
1654
1655	IF ( av == 0 ) THEN
1656	var = '(xz)'
1657	ELSE
1658	var = '(xz_av)'
1659	ENDIF
1660
1661	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
1662	message_string = 'NetCDF file for cross-sections ' // &
1663	TRIM( var ) // ' from previuos run found,' // &
1664	'& but this file cannot be extended due to' // &
1665	' variable mismatch.' // &
1666	'&New file is created instead.'
1667	CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
1668	extend = .FALSE.
1669	RETURN
1670	ENDIF
1671
1672	!
1673	!-- Calculate the number of current sections
1674	ns = 1
1675	DO WHILE ( section(ns,2) /= -9999 .AND. ns <= 100 )
1676	ns = ns + 1
1677	ENDDO
1678	ns = ns - 1
1679
1680	!
1681	!-- Get and compare the number of vertical cross sections
1682	nc_stat = NF90_INQ_VARID( id_set_xz(av), 'y_xz', id_var_y_xz(av) )
1683	CALL handle_netcdf_error( 'netcdf', 169 )
1684
1685	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xz(av), id_var_y_xz(av), &
1686	dimids = id_dim_y_xz_old )
1687	CALL handle_netcdf_error( 'netcdf', 170 )
1688	id_dim_y_xz(av) = id_dim_y_xz_old(1)
1689
1690	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xz(av), id_dim_y_xz(av), &
1691	len = ns_old )
1692	CALL handle_netcdf_error( 'netcdf', 171 )
1693
1694	IF ( ns /= ns_old ) THEN
1695	message_string = 'NetCDF file for cross-sections ' // &
1696	TRIM( var ) // ' from previuos run found,' // &
1697	'&but this file cannot be extended due to' // &
1698	' mismatch in number of' // &
1699	'&cross sections.' // &
1700	'&New file is created instead.'
1701	CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
1702	extend = .FALSE.
1703	RETURN
1704	ENDIF
1705
1706	!
1707	!-- Get and compare the heights of the cross sections
1708	ALLOCATE( netcdf_data(1:ns_old) )
1709
1710	nc_stat = NF90_GET_VAR( id_set_xz(av), id_var_y_xz(av), netcdf_data )
1711	CALL handle_netcdf_error( 'netcdf', 172 )
1712
1713	DO i = 1, ns
1714	IF ( section(i,2) /= -1 ) THEN
1715	IF ( ( section(i,2) * dy ) /= netcdf_data(i) ) THEN
1716	message_string = 'NetCDF file for cross-sections ' // &
1717	TRIM( var ) // ' from previuos run found,' // &
1718	'&but this file cannot be extended' // &
1719	' due to mismatch in cross' // &
1720	'&section levels.' // &
1721	'&New file is created instead.'
1722	CALL message( 'define_netcdf_header', 'PA0251', &
1723	0, 1, 0, 6, 0 )
1724	extend = .FALSE.
1725	RETURN
1726	ENDIF
1727	ELSE
1728	IF ( -1.0 /= netcdf_data(i) ) THEN
1729	message_string = 'NetCDF file for cross-sections ' // &
1730	TRIM( var ) // ' from previuos run found,' // &
1731	'&but this file cannot be extended' // &
1732	' due to mismatch in cross' // &
1733	'&section levels.' // &
1734	'&New file is created instead.'
1735	CALL message( 'define_netcdf_header', 'PA0251', &
1736	0, 1, 0, 6, 0 )
1737	extend = .FALSE.
1738	RETURN
1739	ENDIF
1740	ENDIF
1741	ENDDO
1742
1743	DEALLOCATE( netcdf_data )
1744
1745	!
1746	!-- Get the id of the time coordinate (unlimited coordinate) and its
1747	!-- last index on the file. The next time level is do2d..count+1.
1748	!-- The current time must be larger than the last output time
1749	!-- on the file.
1750	nc_stat = NF90_INQ_VARID( id_set_xz(av), 'time', id_var_time_xz(av) )
1751	CALL handle_netcdf_error( 'netcdf', 173 )
1752
1753	nc_stat = NF90_INQUIRE_VARIABLE( id_set_xz(av), id_var_time_xz(av), &
1754	dimids = id_dim_time_old )
1755	CALL handle_netcdf_error( 'netcdf', 174 )
1756	id_dim_time_xz(av) = id_dim_time_old(1)
1757
1758	nc_stat = NF90_INQUIRE_DIMENSION( id_set_xz(av), id_dim_time_xz(av), &
1759	len = do2d_xz_time_count(av) )
1760	CALL handle_netcdf_error( 'netcdf', 175 )
1761
1762	nc_stat = NF90_GET_VAR( id_set_xz(av), id_var_time_xz(av), &
1763	last_time_coordinate, &
1764	start = (/ do2d_xz_time_count(av) /), &
1765	count = (/ 1 /) )
1766	CALL handle_netcdf_error( 'netcdf', 176 )
1767
1768	IF ( last_time_coordinate(1) >= simulated_time ) THEN
1769	message_string = 'NetCDF file for cross sections ' // &
1770	TRIM( var ) // ' from previuos run found,' // &
1771	'&but this file cannot be extended becaus' // &
1772	'e the current output time' // &
1773	'&is less or equal than the last output t' // &
1774	'ime on this file.' // &
1775	'&New file is created instead.'
1776	CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
1777	do2d_xz_time_count(av) = 0
1778	extend = .FALSE.
1779	RETURN
1780	ENDIF
1781
1782	!
1783	!-- Dataset seems to be extendable.
1784	!-- Now get the variable ids.
1785	i = 1
1786	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1787	IF ( INDEX( do2d(av,i), 'xz' ) /= 0 ) THEN
1788	netcdf_var_name = do2d(av,i)
1789	CALL clean_netcdf_varname( netcdf_var_name )
1790	nc_stat = NF90_INQ_VARID( id_set_xz(av), netcdf_var_name, &
1791	id_var_do2d(av,i) )
1792	CALL handle_netcdf_error( 'netcdf', 177 )
1793	ENDIF
1794	i = i + 1
1795	ENDDO
1796
1797	!
1798	!-- Change the titel attribute on file
1799	nc_stat = NF90_PUT_ATT( id_set_xz(av), NF90_GLOBAL, 'title', &
1800	TRIM( run_description_header ) )
1801	CALL handle_netcdf_error( 'netcdf', 178 )
1802	message_string = 'NetCDF file for cross-sections ' // &
1803	TRIM( var ) // ' from previous run found.' // &
1804	'&This file will be extended.'
1805	CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
1806
1807
1808	CASE ( 'yz_new' )
1809
1810	!
1811	!-- Define some global attributes of the dataset
1812	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'Conventions', &
1813	'COARDS' )
1814	CALL handle_netcdf_error( 'netcdf', 179 )
1815
1816	IF ( av == 0 ) THEN
1817	time_average_text = ' '
1818	ELSE
1819	WRITE (time_average_text, '('', '',F7.1,'' s average'')') &
1820	averaging_interval
1821	ENDIF
1822	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'title', &
1823	TRIM( run_description_header ) // &
1824	TRIM( time_average_text ) )
1825	CALL handle_netcdf_error( 'netcdf', 180 )
1826	IF ( av == 1 ) THEN
1827	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval
1828	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'time_avg', &
1829	TRIM( time_average_text ) )
1830	CALL handle_netcdf_error( 'netcdf', 180 )
1831	ENDIF
1832
1833	!
1834	!-- Define time coordinate for yz sections (unlimited dimension)
1835	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'time', NF90_UNLIMITED, &
1836	id_dim_time_yz(av) )
1837	CALL handle_netcdf_error( 'netcdf', 181 )
1838
1839	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'time', NF90_DOUBLE, &
1840	id_dim_time_yz(av), id_var_time_yz(av) )
1841	CALL handle_netcdf_error( 'netcdf', 182 )
1842
1843	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_time_yz(av), 'units', &
1844	'seconds')
1845	CALL handle_netcdf_error( 'netcdf', 183 )
1846
1847	!
1848	!-- Define the spatial dimensions and coordinates for yz-sections.
1849	!-- First, determine the number of vertical sections to be written.
1850	IF ( section(1,3) == -9999 ) THEN
1851	RETURN
1852	ELSE
1853	ns = 1
1854	DO WHILE ( section(ns,3) /= -9999 .AND. ns <= 100 )
1855	ns = ns + 1
1856	ENDDO
1857	ns = ns - 1
1858	ENDIF
1859
1860	!
1861	!-- Define x axis (for scalar position)
1862	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'x_yz', ns, id_dim_x_yz(av) )
1863	CALL handle_netcdf_error( 'netcdf', 184 )
1864
1865	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'x_yz', NF90_DOUBLE, &
1866	id_dim_x_yz(av), id_var_x_yz(av) )
1867	CALL handle_netcdf_error( 'netcdf', 185 )
1868
1869	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_x_yz(av), 'units', &
1870	'meters' )
1871	CALL handle_netcdf_error( 'netcdf', 186 )
1872
1873	!
1874	!-- Define x axis (for u position)
1875	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'xu_yz', ns, id_dim_xu_yz(av) )
1876	CALL handle_netcdf_error( 'netcdf', 377 )
1877
1878	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'xu_yz', NF90_DOUBLE, &
1879	id_dim_xu_yz(av), id_var_xu_yz(av) )
1880	CALL handle_netcdf_error( 'netcdf', 378 )
1881
1882	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_xu_yz(av), 'units', &
1883	'meters' )
1884	CALL handle_netcdf_error( 'netcdf', 379 )
1885
1886	!
1887	!-- Define a variable to store the layer indices of the vertical cross
1888	!-- sections
1889	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'ind_x_yz', NF90_DOUBLE, &
1890	id_dim_x_yz(av), id_var_ind_x_yz(av) )
1891	CALL handle_netcdf_error( 'netcdf', 187 )
1892
1893	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_ind_x_yz(av), 'units', &
1894	'gridpoints')
1895	CALL handle_netcdf_error( 'netcdf', 188 )
1896
1897	!
1898	!-- Define y-axis (for scalar position)
1899	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'y', ny+2, id_dim_y_yz(av) )
1900	CALL handle_netcdf_error( 'netcdf', 189 )
1901
1902	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'y', NF90_DOUBLE, &
1903	id_dim_y_yz(av), id_var_y_yz(av) )
1904	CALL handle_netcdf_error( 'netcdf', 190 )
1905
1906	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_y_yz(av), 'units', &
1907	'meters' )
1908	CALL handle_netcdf_error( 'netcdf', 191 )
1909
1910	!
1911	!-- Define y-axis (for v position)
1912	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'yv', ny+2, id_dim_yv_yz(av) )
1913	CALL handle_netcdf_error( 'netcdf', 380 )
1914
1915	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'yv', NF90_DOUBLE, &
1916	id_dim_yv_yz(av), id_var_yv_yz(av) )
1917	CALL handle_netcdf_error( 'netcdf', 381 )
1918
1919	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_yv_yz(av), 'units', &
1920	'meters' )
1921	CALL handle_netcdf_error( 'netcdf', 382 )
1922
1923	!
1924	!-- Define the two z-axes (zu and zw)
1925	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'zu', nz+2, id_dim_zu_yz(av) )
1926	CALL handle_netcdf_error( 'netcdf', 192 )
1927
1928	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'zu', NF90_DOUBLE, &
1929	id_dim_zu_yz(av), id_var_zu_yz(av) )
1930	CALL handle_netcdf_error( 'netcdf', 193 )
1931
1932	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_zu_yz(av), 'units', &
1933	'meters' )
1934	CALL handle_netcdf_error( 'netcdf', 194 )
1935
1936	nc_stat = NF90_DEF_DIM( id_set_yz(av), 'zw', nz+2, id_dim_zw_yz(av) )
1937	CALL handle_netcdf_error( 'netcdf', 195 )
1938
1939	nc_stat = NF90_DEF_VAR( id_set_yz(av), 'zw', NF90_DOUBLE, &
1940	id_dim_zw_yz(av), id_var_zw_yz(av) )
1941	CALL handle_netcdf_error( 'netcdf', 196 )
1942
1943	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_zw_yz(av), 'units', &
1944	'meters' )
1945	CALL handle_netcdf_error( 'netcdf', 197 )
1946
1947
1948	!
1949	!-- Define the variables
1950	var_list = ';'
1951	i = 1
1952
1953	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
1954
1955	IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN
1956
1957	!
1958	!-- Check for the grid
1959	found = .TRUE.
1960	SELECT CASE ( do2d(av,i) )
1961	!
1962	!-- Most variables are defined on the zu grid
1963	CASE ( 'e_yz', 'p_yz', 'pc_yz', 'pr_yz', 'pt_yz', 'q_yz', &
1964	'ql_yz', 'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qv_yz', &
1965	'rho_yz', 's_yz', 'sa_yz', 'vpt_yz' )
1966
1967	grid_x = 'x'
1968	grid_y = 'y'
1969	grid_z = 'zu'
1970	!
1971	!-- u grid
1972	CASE ( 'u_yz' )
1973
1974	grid_x = 'xu'
1975	grid_y = 'y'
1976	grid_z = 'zu'
1977	!
1978	!-- v grid
1979	CASE ( 'v_yz' )
1980
1981	grid_x = 'x'
1982	grid_y = 'yv'
1983	grid_z = 'zu'
1984	!
1985	!-- w grid
1986	CASE ( 'w_yz' )
1987
1988	grid_x = 'x'
1989	grid_y = 'y'
1990	grid_z = 'zw'
1991
1992	CASE DEFAULT
1993	!
1994	!-- Check for user-defined quantities
1995	CALL user_define_netcdf_grid( do2d(av,i), found, &
1996	grid_x, grid_y, grid_z )
1997
1998	END SELECT
1999
2000	!
2001	!-- Select the respective dimension ids
2002	IF ( grid_x == 'x' ) THEN
2003	id_x = id_dim_x_yz(av)
2004	ELSEIF ( grid_x == 'xu' ) THEN
2005	id_x = id_dim_xu_yz(av)
2006	ENDIF
2007
2008	IF ( grid_y == 'y' ) THEN
2009	id_y = id_dim_y_yz(av)
2010	ELSEIF ( grid_y == 'yv' ) THEN
2011	id_y = id_dim_yv_yz(av)
2012	ENDIF
2013
2014	IF ( grid_z == 'zu' ) THEN
2015	id_z = id_dim_zu_yz(av)
2016	ELSEIF ( grid_z == 'zw' ) THEN
2017	id_z = id_dim_zw_yz(av)
2018	ENDIF
2019
2020	!
2021	!-- Define the grid
2022	nc_stat = NF90_DEF_VAR( id_set_yz(av), do2d(av,i), &
2023	nc_precision(3), &
2024	(/ id_x, id_y, id_z, id_dim_time_yz(av) /), &
2025	id_var_do2d(av,i) )
2026
2027	IF ( .NOT. found ) THEN
2028	WRITE ( message_string, * ) 'no grid defined for', &
2029	' variable ', TRIM( do2d(av,i) )
2030	CALL message( 'define_netcdf_header', 'PA0244',&
2031	0, 1, 0, 6, 0 )
2032	ENDIF
2033
2034	var_list = TRIM( var_list ) // TRIM( do2d(av,i) ) // ';'
2035
2036	CALL handle_netcdf_error( 'netcdf', 198 )
2037	!
2038	!-- Store the 'real' name of the variable (with *, for example)
2039	!-- in the long_name attribute. This is evaluated by Ferret,
2040	!-- for example.
2041	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_do2d(av,i), &
2042	'long_name', do2d(av,i) )
2043	CALL handle_netcdf_error( 'netcdf', 199 )
2044	!
2045	!-- Define the variable's unit
2046	nc_stat = NF90_PUT_ATT( id_set_yz(av), id_var_do2d(av,i), &
2047	'units', TRIM( do2d_unit(av,i) ) )
2048	CALL handle_netcdf_error( 'netcdf', 356 )
2049	ENDIF
2050
2051	i = i + 1
2052
2053	ENDDO
2054
2055	!
2056	!-- No arrays to output. Close the netcdf file and return.
2057	IF ( i == 1 ) RETURN
2058
2059	!
2060	!-- Write the list of variables as global attribute (this is used by
2061	!-- restart runs and by combine_plot_fields)
2062	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'VAR_LIST', &
2063	var_list )
2064	CALL handle_netcdf_error( 'netcdf', 200 )
2065
2066	!
2067	!-- Leave NetCDF define mode
2068	nc_stat = NF90_ENDDEF( id_set_yz(av) )
2069	CALL handle_netcdf_error( 'netcdf', 201 )
2070
2071	!
2072	!-- Write axis data: x_yz, y, zu, zw
2073	ALLOCATE( netcdf_data(1:ns) )
2074
2075	!
2076	!-- Write x_yz data (shifted by +dx/2)
2077	DO i = 1, ns
2078	IF( section(i,3) == -1 ) THEN
2079	netcdf_data(i) = -1.0 ! section averaged along x
2080	ELSE
2081	netcdf_data(i) = ( section(i,3) + 0.5 ) * dx
2082	ENDIF
2083	ENDDO
2084	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_x_yz(av), netcdf_data, &
2085	start = (/ 1 /), count = (/ ns /) )
2086	CALL handle_netcdf_error( 'netcdf', 202 )
2087
2088	!
2089	!-- Write x_yz data (xu grid)
2090	DO i = 1, ns
2091	IF( section(i,3) == -1 ) THEN
2092	netcdf_data(i) = -1.0 ! section averaged along x
2093	ELSE
2094	netcdf_data(i) = section(i,3) * dx
2095	ENDIF
2096	ENDDO
2097	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_xu_yz(av), netcdf_data, &
2098	start = (/ 1 /), count = (/ ns /) )
2099	CALL handle_netcdf_error( 'netcdf', 383 )
2100
2101	!
2102	!-- Write gridpoint number data
2103	netcdf_data(1:ns) = section(1:ns,3)
2104	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_ind_x_yz(av), &
2105	netcdf_data, start = (/ 1 /), &
2106	count = (/ ns /) )
2107	CALL handle_netcdf_error( 'netcdf', 203 )
2108
2109	DEALLOCATE( netcdf_data )
2110
2111	!
2112	!-- Write data for y (shifted by +dy/2) and yv axis
2113	ALLOCATE( netcdf_data(0:ny+1) )
2114
2115	DO j = 0, ny+1
2116	netcdf_data(j) = ( j + 0.5 ) * dy
2117	ENDDO
2118
2119	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_y_yz(av), netcdf_data, &
2120	start = (/ 1 /), count = (/ ny+2 /) )
2121	CALL handle_netcdf_error( 'netcdf', 204 )
2122
2123	DO j = 0, ny+1
2124	netcdf_data(j) = j * dy
2125	ENDDO
2126
2127	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_yv_yz(av), &
2128	netcdf_data, start = (/ 1 /), &
2129	count = (/ ny+2 /) )
2130	CALL handle_netcdf_error( 'netcdf', 384 )
2131
2132	DEALLOCATE( netcdf_data )
2133
2134	!
2135	!-- Write zu and zw data (vertical axes)
2136	ALLOCATE( netcdf_data(0:nz+1) )
2137
2138	netcdf_data(0:nz+1) = zu(nzb:nzt+1)
2139	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_zu_yz(av), &
2140	netcdf_data, start = (/ 1 /), &
2141	count = (/ nz+2 /) )
2142	CALL handle_netcdf_error( 'netcdf', 205 )
2143
2144	netcdf_data(0:nz+1) = zw(nzb:nzt+1)
2145	nc_stat = NF90_PUT_VAR( id_set_yz(av), id_var_zw_yz(av), &
2146	netcdf_data, start = (/ 1 /), &
2147	count = (/ nz+2 /) )
2148	CALL handle_netcdf_error( 'netcdf', 206 )
2149
2150	DEALLOCATE( netcdf_data )
2151
2152
2153	CASE ( 'yz_ext' )
2154
2155	!
2156	!-- Get the list of variables and compare with the actual run.
2157	!-- First var_list_old has to be reset, since GET_ATT does not assign
2158	!-- trailing blanks.
2159	var_list_old = ' '
2160	nc_stat = NF90_GET_ATT( id_set_yz(av), NF90_GLOBAL, 'VAR_LIST', &
2161	var_list_old )
2162	CALL handle_netcdf_error( 'netcdf', 207 )
2163
2164	var_list = ';'
2165	i = 1
2166	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
2167	IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN
2168	netcdf_var_name = do2d(av,i)
2169	CALL clean_netcdf_varname( netcdf_var_name )
2170	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2171	ENDIF
2172	i = i + 1
2173	ENDDO
2174
2175	IF ( av == 0 ) THEN
2176	var = '(yz)'
2177	ELSE
2178	var = '(yz_av)'
2179	ENDIF
2180
2181	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
2182	message_string = 'NetCDF file for cross-sections ' // &
2183	TRIM( var ) // ' from previuos run found,' // &
2184	'& but this file cannot be extended due to' // &
2185	' variable mismatch.' // &
2186	'&New file is created instead.'
2187	CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 )
2188	extend = .FALSE.
2189	RETURN
2190	ENDIF
2191
2192	!
2193	!-- Calculate the number of current sections
2194	ns = 1
2195	DO WHILE ( section(ns,3) /= -9999 .AND. ns <= 100 )
2196	ns = ns + 1
2197	ENDDO
2198	ns = ns - 1
2199
2200	!
2201	!-- Get and compare the number of vertical cross sections
2202	nc_stat = NF90_INQ_VARID( id_set_yz(av), 'x_yz', id_var_x_yz(av) )
2203	CALL handle_netcdf_error( 'netcdf', 208 )
2204
2205	nc_stat = NF90_INQUIRE_VARIABLE( id_set_yz(av), id_var_x_yz(av), &
2206	dimids = id_dim_x_yz_old )
2207	CALL handle_netcdf_error( 'netcdf', 209 )
2208	id_dim_x_yz(av) = id_dim_x_yz_old(1)
2209
2210	nc_stat = NF90_INQUIRE_DIMENSION( id_set_yz(av), id_dim_x_yz(av), &
2211	len = ns_old )
2212	CALL handle_netcdf_error( 'netcdf', 210 )
2213
2214	IF ( ns /= ns_old ) THEN
2215	message_string = 'NetCDF file for cross-sections ' // &
2216	TRIM( var ) // ' from previuos run found,' // &
2217	'&but this file cannot be extended due to' // &
2218	' mismatch in number of' // &
2219	'&cross sections.' // &
2220	'&New file is created instead.'
2221	CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 )
2222	extend = .FALSE.
2223	RETURN
2224	ENDIF
2225
2226	!
2227	!-- Get and compare the heights of the cross sections
2228	ALLOCATE( netcdf_data(1:ns_old) )
2229
2230	nc_stat = NF90_GET_VAR( id_set_yz(av), id_var_x_yz(av), netcdf_data )
2231	CALL handle_netcdf_error( 'netcdf', 211 )
2232
2233	DO i = 1, ns
2234	IF ( section(i,3) /= -1 ) THEN
2235	IF ( ( section(i,3) * dx ) /= netcdf_data(i) ) THEN
2236	message_string = 'NetCDF file for cross-sections ' // &
2237	TRIM( var ) // ' from previuos run found,' // &
2238	'&but this file cannot be extended' // &
2239	' due to mismatch in cross' // &
2240	'&section levels.' // &
2241	'&New file is created instead.'
2242	CALL message( 'define_netcdf_header', 'PA0251', &
2243	0, 1, 0, 6, 0 )
2244	extend = .FALSE.
2245	RETURN
2246	ENDIF
2247	ELSE
2248	IF ( -1.0 /= netcdf_data(i) ) THEN
2249	message_string = 'NetCDF file for cross-sections ' // &
2250	TRIM( var ) // ' from previuos run found,' // &
2251	'&but this file cannot be extended' // &
2252	' due to mismatch in cross' // &
2253	'&section levels.' // &
2254	'&New file is created instead.'
2255	CALL message( 'define_netcdf_header', 'PA0251', &
2256	0, 1, 0, 6, 0 )
2257	extend = .FALSE.
2258	RETURN
2259	ENDIF
2260	ENDIF
2261	ENDDO
2262
2263	DEALLOCATE( netcdf_data )
2264
2265	!
2266	!-- Get the id of the time coordinate (unlimited coordinate) and its
2267	!-- last index on the file. The next time level is pl2d..count+1.
2268	!-- The current time must be larger than the last output time
2269	!-- on the file.
2270	nc_stat = NF90_INQ_VARID( id_set_yz(av), 'time', id_var_time_yz(av) )
2271	CALL handle_netcdf_error( 'netcdf', 212 )
2272
2273	nc_stat = NF90_INQUIRE_VARIABLE( id_set_yz(av), id_var_time_yz(av), &
2274	dimids = id_dim_time_old )
2275	CALL handle_netcdf_error( 'netcdf', 213 )
2276	id_dim_time_yz(av) = id_dim_time_old(1)
2277
2278	nc_stat = NF90_INQUIRE_DIMENSION( id_set_yz(av), id_dim_time_yz(av), &
2279	len = do2d_yz_time_count(av) )
2280	CALL handle_netcdf_error( 'netcdf', 214 )
2281
2282	nc_stat = NF90_GET_VAR( id_set_yz(av), id_var_time_yz(av), &
2283	last_time_coordinate, &
2284	start = (/ do2d_yz_time_count(av) /), &
2285	count = (/ 1 /) )
2286	CALL handle_netcdf_error( 'netcdf', 215 )
2287
2288	IF ( last_time_coordinate(1) >= simulated_time ) THEN
2289	message_string = 'NetCDF file for cross sections ' // &
2290	TRIM( var ) // ' from previuos run found,' // &
2291	'&but this file cannot be extended becaus' // &
2292	'e the current output time' // &
2293	'&is less or equal than the last output t' // &
2294	'ime on this file.' // &
2295	'&New file is created instead.'
2296	CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 )
2297	do2d_yz_time_count(av) = 0
2298	extend = .FALSE.
2299	RETURN
2300	ENDIF
2301
2302	!
2303	!-- Dataset seems to be extendable.
2304	!-- Now get the variable ids.
2305	i = 1
2306	DO WHILE ( do2d(av,i)(1:1) /= ' ' )
2307	IF ( INDEX( do2d(av,i), 'yz' ) /= 0 ) THEN
2308	netcdf_var_name = do2d(av,i)
2309	CALL clean_netcdf_varname( netcdf_var_name )
2310	nc_stat = NF90_INQ_VARID( id_set_yz(av), netcdf_var_name, &
2311	id_var_do2d(av,i) )
2312	CALL handle_netcdf_error( 'netcdf', 216 )
2313	ENDIF
2314	i = i + 1
2315	ENDDO
2316
2317	!
2318	!-- Change the titel attribute on file
2319	nc_stat = NF90_PUT_ATT( id_set_yz(av), NF90_GLOBAL, 'title', &
2320	TRIM( run_description_header ) )
2321	CALL handle_netcdf_error( 'netcdf', 217 )
2322	message_string = 'NetCDF file for cross-sections ' // &
2323	TRIM( var ) // ' from previous run found.' // &
2324	'&This file will be extended.'
2325	CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 )
2326
2327
2328	CASE ( 'pr_new' )
2329
2330	!
2331	!-- Define some global attributes of the dataset
2332	IF ( averaging_interval_pr /= 0.0 ) THEN
2333	WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
2334	averaging_interval_pr
2335	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', &
2336	TRIM( run_description_header ) // &
2337	TRIM( time_average_text ) )
2338	CALL handle_netcdf_error( 'netcdf', 218 )
2339
2340	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_pr
2341	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'time_avg', &
2342	TRIM( time_average_text ) )
2343	ELSE
2344	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', &
2345	TRIM( run_description_header ) )
2346	ENDIF
2347	CALL handle_netcdf_error( 'netcdf', 219 )
2348
2349	!
2350	!-- Define time coordinate for profiles (unlimited dimension)
2351	nc_stat = NF90_DEF_DIM( id_set_pr, 'time', NF90_UNLIMITED, &
2352	id_dim_time_pr )
2353	CALL handle_netcdf_error( 'netcdf', 220 )
2354
2355	nc_stat = NF90_DEF_VAR( id_set_pr, 'time', NF90_DOUBLE, &
2356	id_dim_time_pr, id_var_time_pr )
2357	CALL handle_netcdf_error( 'netcdf', 221 )
2358
2359	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_time_pr, 'units', 'seconds')
2360	CALL handle_netcdf_error( 'netcdf', 222 )
2361
2362	!
2363	!-- Define the variables
2364	var_list = ';'
2365	DO i = 1, dopr_n
2366	!
2367	!-- First, remove those characters not allowed by NetCDF
2368	netcdf_var_name = data_output_pr(i)
2369	CALL clean_netcdf_varname( netcdf_var_name )
2370
2371	IF ( statistic_regions == 0 ) THEN
2372
2373	!
2374	!-- Define the z-axes (each variable gets its own z-axis)
2375	nc_stat = NF90_DEF_DIM( id_set_pr, 'z'//TRIM(netcdf_var_name), &
2376	nzt+2-nzb, id_dim_z_pr(i,0) )
2377	CALL handle_netcdf_error( 'netcdf', 223 )
2378
2379	nc_stat = NF90_DEF_VAR( id_set_pr, 'z'//TRIM(netcdf_var_name), &
2380	NF90_DOUBLE, id_dim_z_pr(i,0), &
2381	id_var_z_pr(i,0) )
2382	CALL handle_netcdf_error( 'netcdf', 224 )
2383
2384	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_z_pr(i,0), 'units', &
2385	'meters' )
2386	CALL handle_netcdf_error( 'netcdf', 225 )
2387	!
2388	!-- Define the variable
2389	nc_stat = NF90_DEF_VAR( id_set_pr, netcdf_var_name, &
2390	nc_precision(5), (/ id_dim_z_pr(i,0), &
2391	id_dim_time_pr /), id_var_dopr(i,0) )
2392	CALL handle_netcdf_error( 'netcdf', 226 )
2393
2394	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,0), &
2395	'long_name', TRIM( data_output_pr(i) ) )
2396	CALL handle_netcdf_error( 'netcdf', 227 )
2397
2398	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,0), &
2399	'units', TRIM( dopr_unit(i) ) )
2400	CALL handle_netcdf_error( 'netcdf', 228 )
2401
2402	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2403
2404	ELSE
2405	!
2406	!-- If statistic regions are defined, add suffix _SR+#SR to the
2407	!-- names
2408	DO j = 0, statistic_regions
2409	WRITE ( suffix, '(''_'',I1)' ) j
2410
2411	!
2412	!-- Define the z-axes (each variable gets it own z-axis)
2413	nc_stat = NF90_DEF_DIM( id_set_pr, &
2414	'z'//TRIM(netcdf_var_name)//suffix, &
2415	nzt+2-nzb, id_dim_z_pr(i,j) )
2416	CALL handle_netcdf_error( 'netcdf', 229 )
2417
2418	nc_stat = NF90_DEF_VAR( id_set_pr, &
2419	'z'//TRIM(netcdf_var_name)//suffix, &
2420	nc_precision(5), id_dim_z_pr(i,j), &
2421	id_var_z_pr(i,j) )
2422	CALL handle_netcdf_error( 'netcdf', 230 )
2423
2424	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_z_pr(i,j), &
2425	'units', 'meters' )
2426	CALL handle_netcdf_error( 'netcdf', 231 )
2427
2428	!
2429	!-- Define the variable
2430	nc_stat = NF90_DEF_VAR( id_set_pr, &
2431	TRIM( netcdf_var_name ) // suffix, &
2432	nc_precision(5), &
2433	(/ id_dim_z_pr(i,j), &
2434	id_dim_time_pr /), id_var_dopr(i,j) )
2435	CALL handle_netcdf_error( 'netcdf', 232 )
2436
2437	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,j), &
2438	'long_name', &
2439	TRIM( data_output_pr(i) ) // ' SR ' &
2440	// suffix(2:2) )
2441	CALL handle_netcdf_error( 'netcdf', 233 )
2442
2443	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_dopr(i,j), &
2444	'units', TRIM( dopr_unit(i) ) )
2445	CALL handle_netcdf_error( 'netcdf', 234 )
2446
2447	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2448	suffix // ';'
2449
2450	ENDDO
2451
2452	ENDIF
2453
2454	ENDDO
2455
2456	!
2457	!-- Write the list of variables as global attribute (this is used by
2458	!-- restart runs)
2459	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'VAR_LIST', var_list )
2460	CALL handle_netcdf_error( 'netcdf', 235 )
2461
2462	!
2463	!-- Define normalization variables (as time series)
2464	DO i = 1, dopr_norm_num
2465
2466	nc_stat = NF90_DEF_VAR( id_set_pr, 'NORM_' // &
2467	TRIM( dopr_norm_names(i) ), &
2468	nc_precision(5), (/ id_dim_time_pr /), &
2469	id_var_norm_dopr(i) )
2470	CALL handle_netcdf_error( 'netcdf', 236 )
2471
2472	nc_stat = NF90_PUT_ATT( id_set_pr, id_var_norm_dopr(i), &
2473	'long_name', &
2474	TRIM( dopr_norm_longnames(i) ) )
2475	CALL handle_netcdf_error( 'netcdf', 237 )
2476
2477	ENDDO
2478
2479	!
2480	!-- Leave NetCDF define mode
2481	nc_stat = NF90_ENDDEF( id_set_pr )
2482	CALL handle_netcdf_error( 'netcdf', 238 )
2483
2484	!
2485	!-- Write z-axes data
2486	DO i = 1, dopr_n
2487	DO j = 0, statistic_regions
2488
2489	nc_stat = NF90_PUT_VAR( id_set_pr, id_var_z_pr(i,j), &
2490	hom(nzb:nzt+1,2,dopr_index(i),0), &
2491	start = (/ 1 /), &
2492	count = (/ nzt-nzb+2 /) )
2493	CALL handle_netcdf_error( 'netcdf', 239 )
2494
2495	ENDDO
2496	ENDDO
2497
2498
2499	CASE ( 'pr_ext' )
2500
2501	!
2502	!-- Get the list of variables and compare with the actual run.
2503	!-- First var_list_old has to be reset, since GET_ATT does not assign
2504	!-- trailing blanks.
2505	var_list_old = ' '
2506	nc_stat = NF90_GET_ATT( id_set_pr, NF90_GLOBAL, 'VAR_LIST', &
2507	var_list_old )
2508	CALL handle_netcdf_error( 'netcdf', 240 )
2509
2510	var_list = ';'
2511	DO i = 1, dopr_n
2512
2513	netcdf_var_name = data_output_pr(i)
2514	CALL clean_netcdf_varname( netcdf_var_name )
2515
2516	IF ( statistic_regions == 0 ) THEN
2517	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2518	ELSE
2519	DO j = 0, statistic_regions
2520	WRITE ( suffix, '(''_'',I1)' ) j
2521	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2522	suffix // ';'
2523	ENDDO
2524	ENDIF
2525
2526	ENDDO
2527
2528	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
2529	message_string = 'NetCDF file for vertical profiles ' // &
2530	'from previuos run found,' // &
2531	'& but this file cannot be extended due to' // &
2532	' variable mismatch.' // &
2533	'&New file is created instead.'
2534	CALL message( 'define_netcdf_header', 'PA0254', 0, 1, 0, 6, 0 )
2535	extend = .FALSE.
2536	RETURN
2537	ENDIF
2538
2539	!
2540	!-- Get the id of the time coordinate (unlimited coordinate) and its
2541	!-- last index on the file. The next time level is dopr..count+1.
2542	!-- The current time must be larger than the last output time
2543	!-- on the file.
2544	nc_stat = NF90_INQ_VARID( id_set_pr, 'time', id_var_time_pr )
2545	CALL handle_netcdf_error( 'netcdf', 241 )
2546
2547	nc_stat = NF90_INQUIRE_VARIABLE( id_set_pr, id_var_time_pr, &
2548	dimids = id_dim_time_old )
2549	CALL handle_netcdf_error( 'netcdf', 242 )
2550	id_dim_time_pr = id_dim_time_old(1)
2551
2552	nc_stat = NF90_INQUIRE_DIMENSION( id_set_pr, id_dim_time_pr, &
2553	len = dopr_time_count )
2554	CALL handle_netcdf_error( 'netcdf', 243 )
2555
2556	nc_stat = NF90_GET_VAR( id_set_pr, id_var_time_pr, &
2557	last_time_coordinate, &
2558	start = (/ dopr_time_count /), &
2559	count = (/ 1 /) )
2560	CALL handle_netcdf_error( 'netcdf', 244 )
2561
2562	IF ( last_time_coordinate(1) >= simulated_time ) THEN
2563	message_string = 'NetCDF file for vertical profiles ' // &
2564	'from previuos run found,' // &
2565	'&but this file cannot be extended becaus' // &
2566	'e the current output time' // &
2567	'&is less or equal than the last output t' // &
2568	'ime on this file.' // &
2569	'&New file is created instead.'
2570	CALL message( 'define_netcdf_header', 'PA0255', 0, 1, 0, 6, 0 )
2571	dopr_time_count = 0
2572	extend = .FALSE.
2573	RETURN
2574	ENDIF
2575
2576	!
2577	!-- Dataset seems to be extendable.
2578	!-- Now get the variable ids.
2579	i = 1
2580	DO i = 1, dopr_n
2581
2582	netcdf_var_name_base = data_output_pr(i)
2583	CALL clean_netcdf_varname( netcdf_var_name_base )
2584
2585	IF ( statistic_regions == 0 ) THEN
2586	nc_stat = NF90_INQ_VARID( id_set_pr, netcdf_var_name_base, &
2587	id_var_dopr(i,0) )
2588	CALL handle_netcdf_error( 'netcdf', 245 )
2589	ELSE
2590	DO j = 0, statistic_regions
2591	WRITE ( suffix, '(''_'',I1)' ) j
2592	netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix
2593	nc_stat = NF90_INQ_VARID( id_set_pr, netcdf_var_name, &
2594	id_var_dopr(i,j) )
2595	CALL handle_netcdf_error( 'netcdf', 246 )
2596	ENDDO
2597	ENDIF
2598
2599	ENDDO
2600
2601	!
2602	!-- Get ids of the normalization variables
2603	DO i = 1, dopr_norm_num
2604	nc_stat = NF90_INQ_VARID( id_set_pr, &
2605	'NORM_' // TRIM( dopr_norm_names(i) ), &
2606	id_var_norm_dopr(i) )
2607	CALL handle_netcdf_error( 'netcdf', 247 )
2608	ENDDO
2609
2610	!
2611	!-- Change the title attribute on file
2612	nc_stat = NF90_PUT_ATT( id_set_pr, NF90_GLOBAL, 'title', &
2613	TRIM( run_description_header ) )
2614	CALL handle_netcdf_error( 'netcdf', 248 )
2615	message_string = 'NetCDF file for vertical profiles ' // &
2616	'from previous run found.' // &
2617	'&This file will be extended.'
2618	CALL message( 'define_netcdf_header', 'PA0256', 0, 0, 0, 6, 0 )
2619
2620
2621	CASE ( 'ts_new' )
2622
2623	!
2624	!-- Define some global attributes of the dataset
2625	nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'title', &
2626	TRIM( run_description_header ) )
2627	CALL handle_netcdf_error( 'netcdf', 249 )
2628
2629	!
2630	!-- Define time coordinate for time series (unlimited dimension)
2631	nc_stat = NF90_DEF_DIM( id_set_ts, 'time', NF90_UNLIMITED, &
2632	id_dim_time_ts )
2633	CALL handle_netcdf_error( 'netcdf', 250 )
2634
2635	nc_stat = NF90_DEF_VAR( id_set_ts, 'time', NF90_DOUBLE, &
2636	id_dim_time_ts, id_var_time_ts )
2637	CALL handle_netcdf_error( 'netcdf', 251 )
2638
2639	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_time_ts, 'units', 'seconds')
2640	CALL handle_netcdf_error( 'netcdf', 252 )
2641
2642	!
2643	!-- Define the variables
2644	var_list = ';'
2645	DO i = 1, dots_num
2646	!
2647	!-- First, remove those characters not allowed by NetCDF
2648	netcdf_var_name = dots_label(i)
2649	CALL clean_netcdf_varname( netcdf_var_name )
2650
2651	IF ( statistic_regions == 0 ) THEN
2652
2653	nc_stat = NF90_DEF_VAR( id_set_ts, netcdf_var_name, &
2654	nc_precision(6), (/ id_dim_time_ts /), &
2655	id_var_dots(i,0) )
2656	CALL handle_netcdf_error( 'netcdf', 253 )
2657
2658	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,0), &
2659	'long_name', TRIM( dots_label(i) ) )
2660	CALL handle_netcdf_error( 'netcdf', 254 )
2661
2662	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,0), &
2663	'units', TRIM( dots_unit(i) ) )
2664	CALL handle_netcdf_error( 'netcdf', 255 )
2665
2666	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2667
2668	ELSE
2669	!
2670	!-- If statistic regions are defined, add suffix _SR+#SR to the
2671	!-- names
2672	DO j = 0, statistic_regions
2673	WRITE ( suffix, '(''_'',I1)' ) j
2674
2675	nc_stat = NF90_DEF_VAR( id_set_ts, &
2676	TRIM( netcdf_var_name ) // suffix, &
2677	nc_precision(6), &
2678	(/ id_dim_time_ts /), &
2679	id_var_dots(i,j) )
2680	CALL handle_netcdf_error( 'netcdf', 256 )
2681
2682	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,j), &
2683	'long_name', &
2684	TRIM( dots_label(i) ) // ' SR ' // &
2685	suffix(2:2) )
2686	CALL handle_netcdf_error( 'netcdf', 257 )
2687
2688	nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,j), &
2689	'units', TRIM( dots_unit(i) ) )
2690	CALL handle_netcdf_error( 'netcdf', 347 )
2691
2692	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2693	suffix // ';'
2694
2695	ENDDO
2696
2697	ENDIF
2698
2699	ENDDO
2700
2701	!
2702	!-- Write the list of variables as global attribute (this is used by
2703	!-- restart runs)
2704	nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'VAR_LIST', var_list )
2705	CALL handle_netcdf_error( 'netcdf', 258 )
2706
2707	!
2708	!-- Leave NetCDF define mode
2709	nc_stat = NF90_ENDDEF( id_set_ts )
2710	CALL handle_netcdf_error( 'netcdf', 259 )
2711
2712
2713	CASE ( 'ts_ext' )
2714
2715	!
2716	!-- Get the list of variables and compare with the actual run.
2717	!-- First var_list_old has to be reset, since GET_ATT does not assign
2718	!-- trailing blanks.
2719	var_list_old = ' '
2720	nc_stat = NF90_GET_ATT( id_set_ts, NF90_GLOBAL, 'VAR_LIST', &
2721	var_list_old )
2722	CALL handle_netcdf_error( 'netcdf', 260 )
2723
2724	var_list = ';'
2725	i = 1
2726	DO i = 1, dots_num
2727
2728	netcdf_var_name = dots_label(i)
2729	CALL clean_netcdf_varname( netcdf_var_name )
2730
2731	IF ( statistic_regions == 0 ) THEN
2732	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // ';'
2733	ELSE
2734	DO j = 0, statistic_regions
2735	WRITE ( suffix, '(''_'',I1)' ) j
2736	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
2737	suffix // ';'
2738	ENDDO
2739	ENDIF
2740
2741	ENDDO
2742
2743	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
2744	message_string = 'NetCDF file for time series ' // &
2745	'from previuos run found,' // &
2746	'& but this file cannot be extended due to' // &
2747	' variable mismatch.' // &
2748	'&New file is created instead.'
2749	CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 )
2750	extend = .FALSE.
2751	RETURN
2752	ENDIF
2753
2754	!
2755	!-- Get the id of the time coordinate (unlimited coordinate) and its
2756	!-- last index on the file. The next time level is dots..count+1.
2757	!-- The current time must be larger than the last output time
2758	!-- on the file.
2759	nc_stat = NF90_INQ_VARID( id_set_ts, 'time', id_var_time_ts )
2760	CALL handle_netcdf_error( 'netcdf', 261 )
2761
2762	nc_stat = NF90_INQUIRE_VARIABLE( id_set_ts, id_var_time_ts, &
2763	dimids = id_dim_time_old )
2764	CALL handle_netcdf_error( 'netcdf', 262 )
2765	id_dim_time_ts = id_dim_time_old(1)
2766
2767	nc_stat = NF90_INQUIRE_DIMENSION( id_set_ts, id_dim_time_ts, &
2768	len = dots_time_count )
2769	CALL handle_netcdf_error( 'netcdf', 263 )
2770
2771	nc_stat = NF90_GET_VAR( id_set_ts, id_var_time_ts, &
2772	last_time_coordinate, &
2773	start = (/ dots_time_count /), &
2774	count = (/ 1 /) )
2775	CALL handle_netcdf_error( 'netcdf', 264 )
2776
2777	IF ( last_time_coordinate(1) >= simulated_time ) THEN
2778	message_string = 'NetCDF file for time series ' // &
2779	'from previuos run found,' // &
2780	'&but this file cannot be extended becaus' // &
2781	'e the current output time' // &
2782	'&is less or equal than the last output t' // &
2783	'ime on this file.' // &
2784	'&New file is created instead.'
2785	CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 )
2786	dots_time_count = 0
2787	extend = .FALSE.
2788	RETURN
2789	ENDIF
2790
2791	!
2792	!-- Dataset seems to be extendable.
2793	!-- Now get the variable ids
2794	i = 1
2795	DO i = 1, dots_num
2796
2797	netcdf_var_name_base = dots_label(i)
2798	CALL clean_netcdf_varname( netcdf_var_name_base )
2799
2800	IF ( statistic_regions == 0 ) THEN
2801	nc_stat = NF90_INQ_VARID( id_set_ts, netcdf_var_name_base, &
2802	id_var_dots(i,0) )
2803	CALL handle_netcdf_error( 'netcdf', 265 )
2804	ELSE
2805	DO j = 0, statistic_regions
2806	WRITE ( suffix, '(''_'',I1)' ) j
2807	netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix
2808	nc_stat = NF90_INQ_VARID( id_set_ts, netcdf_var_name, &
2809	id_var_dots(i,j) )
2810	CALL handle_netcdf_error( 'netcdf', 266 )
2811	ENDDO
2812	ENDIF
2813
2814	ENDDO
2815
2816	!
2817	!-- Change the title attribute on file
2818	nc_stat = NF90_PUT_ATT( id_set_ts, NF90_GLOBAL, 'title', &
2819	TRIM( run_description_header ) )
2820	CALL handle_netcdf_error( 'netcdf', 267 )
2821	message_string = 'NetCDF file for time series ' // &
2822	'from previous run found.' // &
2823	'&This file will be extended.'
2824	CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 )
2825
2826
2827	CASE ( 'sp_new' )
2828
2829	!
2830	!-- Define some global attributes of the dataset
2831	IF ( averaging_interval_sp /= 0.0 ) THEN
2832	WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
2833	averaging_interval_sp
2834	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
2835	TRIM( run_description_header ) // &
2836	TRIM( time_average_text ) )
2837	CALL handle_netcdf_error( 'netcdf', 268 )
2838
2839	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_sp
2840	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'time_avg', &
2841	TRIM( time_average_text ) )
2842	ELSE
2843	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
2844	TRIM( run_description_header ) )
2845	ENDIF
2846	CALL handle_netcdf_error( 'netcdf', 269 )
2847
2848	!
2849	!-- Define time coordinate for spectra (unlimited dimension)
2850	nc_stat = NF90_DEF_DIM( id_set_sp, 'time', NF90_UNLIMITED, &
2851	id_dim_time_sp )
2852	CALL handle_netcdf_error( 'netcdf', 270 )
2853
2854	nc_stat = NF90_DEF_VAR( id_set_sp, 'time', NF90_DOUBLE, &
2855	id_dim_time_sp, id_var_time_sp )
2856	CALL handle_netcdf_error( 'netcdf', 271 )
2857
2858	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_time_sp, 'units', 'seconds')
2859	CALL handle_netcdf_error( 'netcdf', 272 )
2860
2861	!
2862	!-- Define the spatial dimensions and coordinates for spectra.
2863	!-- First, determine the number of vertical levels for which spectra
2864	!-- are to be output.
2865	ns = 1
2866	DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 )
2867	ns = ns + 1
2868	ENDDO
2869	ns = ns - 1
2870
2871	!
2872	!-- Define vertical coordinate grid (zu grid)
2873	nc_stat = NF90_DEF_DIM( id_set_sp, 'zu_sp', ns, id_dim_zu_sp )
2874	CALL handle_netcdf_error( 'netcdf', 273 )
2875
2876	nc_stat = NF90_DEF_VAR( id_set_sp, 'zu_sp', NF90_DOUBLE, &
2877	id_dim_zu_sp, id_var_zu_sp )
2878	CALL handle_netcdf_error( 'netcdf', 274 )
2879
2880	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_zu_sp, 'units', 'meters' )
2881	CALL handle_netcdf_error( 'netcdf', 275 )
2882
2883	!
2884	!-- Define vertical coordinate grid (zw grid)
2885	nc_stat = NF90_DEF_DIM( id_set_sp, 'zw_sp', ns, id_dim_zw_sp )
2886	CALL handle_netcdf_error( 'netcdf', 276 )
2887
2888	nc_stat = NF90_DEF_VAR( id_set_sp, 'zw_sp', NF90_DOUBLE, &
2889	id_dim_zw_sp, id_var_zw_sp )
2890	CALL handle_netcdf_error( 'netcdf', 277 )
2891
2892	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_zw_sp, 'units', 'meters' )
2893	CALL handle_netcdf_error( 'netcdf', 278 )
2894
2895	!
2896	!-- Define x-axis
2897	nc_stat = NF90_DEF_DIM( id_set_sp, 'k_x', nx/2, id_dim_x_sp )
2898	CALL handle_netcdf_error( 'netcdf', 279 )
2899
2900	nc_stat = NF90_DEF_VAR( id_set_sp, 'k_x', NF90_DOUBLE, id_dim_x_sp, &
2901	id_var_x_sp )
2902	CALL handle_netcdf_error( 'netcdf', 280 )
2903
2904	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_x_sp, 'units', 'm-1' )
2905	CALL handle_netcdf_error( 'netcdf', 281 )
2906
2907	!
2908	!-- Define y-axis
2909	nc_stat = NF90_DEF_DIM( id_set_sp, 'k_y', ny/2, id_dim_y_sp )
2910	CALL handle_netcdf_error( 'netcdf', 282 )
2911
2912	nc_stat = NF90_DEF_VAR( id_set_sp, 'k_y', NF90_DOUBLE, id_dim_y_sp, &
2913	id_var_y_sp )
2914	CALL handle_netcdf_error( 'netcdf', 283 )
2915
2916	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_y_sp, 'units', 'm-1' )
2917	CALL handle_netcdf_error( 'netcdf', 284 )
2918
2919	!
2920	!-- Define the variables
2921	var_list = ';'
2922	i = 1
2923	DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 )
2924	!
2925	!-- First check for the vertical grid
2926	found = .TRUE.
2927	SELECT CASE ( data_output_sp(i) )
2928	!
2929	!-- Most variables are defined on the zu levels
2930	CASE ( 'e', 'p', 'pc', 'pr', 'pt', 'q', 'ql', 'ql_c', 'ql_v', &
2931	'ql_vp', 'qv', 'rho', 's', 'sa', 'u', 'v', 'vpt' )
2932
2933	grid_z = 'zu'
2934	!
2935	!-- zw levels
2936	CASE ( 'w' )
2937
2938	grid_z = 'zw'
2939
2940	CASE DEFAULT
2941	!
2942	!-- Check for user-defined quantities (found, grid_x and grid_y
2943	!-- are dummies)
2944	CALL user_define_netcdf_grid( data_output_sp(i), found, &
2945	grid_x, grid_y, grid_z )
2946
2947	END SELECT
2948
2949	IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN
2950
2951	!
2952	!-- Define the variable
2953	netcdf_var_name = TRIM( data_output_sp(i) ) // '_x'
2954	CALL clean_netcdf_varname( netcdf_var_name )
2955	IF ( TRIM( grid_z ) == 'zw' ) THEN
2956	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2957	nc_precision(7), (/ id_dim_x_sp, &
2958	id_dim_zw_sp, id_dim_time_sp /), &
2959	id_var_dospx(i) )
2960	ELSE
2961	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2962	nc_precision(7), (/ id_dim_x_sp, &
2963	id_dim_zu_sp, id_dim_time_sp /), &
2964	id_var_dospx(i) )
2965	ENDIF
2966	CALL handle_netcdf_error( 'netcdf', 285 )
2967
2968	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospx(i), &
2969	'long_name', netcdf_var_name )
2970	CALL handle_netcdf_error( 'netcdf', 286 )
2971
2972	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospx(i), &
2973	'units', 'unknown' )
2974	CALL handle_netcdf_error( 'netcdf', 287 )
2975
2976	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
2977
2978	ENDIF
2979
2980	IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN
2981
2982	!
2983	!-- Define the variable
2984	netcdf_var_name = TRIM( data_output_sp(i) ) // '_y'
2985	CALL clean_netcdf_varname( netcdf_var_name )
2986	IF ( TRIM( grid_z ) == 'zw' ) THEN
2987	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2988	nc_precision(7), (/ id_dim_y_sp, &
2989	id_dim_zw_sp, id_dim_time_sp /), &
2990	id_var_dospy(i) )
2991	ELSE
2992	nc_stat = NF90_DEF_VAR( id_set_sp, netcdf_var_name, &
2993	nc_precision(7), (/ id_dim_y_sp, &
2994	id_dim_zu_sp, id_dim_time_sp /), &
2995	id_var_dospy(i) )
2996	ENDIF
2997	CALL handle_netcdf_error( 'netcdf', 288 )
2998
2999	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospy(i), &
3000	'long_name', netcdf_var_name )
3001	CALL handle_netcdf_error( 'netcdf', 289 )
3002
3003	nc_stat = NF90_PUT_ATT( id_set_sp, id_var_dospy(i), &
3004	'units', 'unknown' )
3005	CALL handle_netcdf_error( 'netcdf', 290 )
3006
3007	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
3008
3009	ENDIF
3010
3011	i = i + 1
3012
3013	ENDDO
3014
3015	!
3016	!-- Write the list of variables as global attribute (this is used by
3017	!-- restart runs)
3018	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'VAR_LIST', var_list )
3019	CALL handle_netcdf_error( 'netcdf', 291 )
3020
3021	!
3022	!-- Leave NetCDF define mode
3023	nc_stat = NF90_ENDDEF( id_set_sp )
3024	CALL handle_netcdf_error( 'netcdf', 292 )
3025
3026	!
3027	!-- Write axis data: zu_sp, zw_sp, k_x, k_y
3028	ALLOCATE( netcdf_data(1:ns) )
3029
3030	!
3031	!-- Write zu data
3032	netcdf_data(1:ns) = zu( comp_spectra_level(1:ns) )
3033	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_zu_sp, netcdf_data, &
3034	start = (/ 1 /), count = (/ ns /) )
3035	CALL handle_netcdf_error( 'netcdf', 293 )
3036
3037	!
3038	!-- Write zw data
3039	netcdf_data(1:ns) = zw( comp_spectra_level(1:ns) )
3040	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_zw_sp, netcdf_data, &
3041	start = (/ 1 /), count = (/ ns /) )
3042	CALL handle_netcdf_error( 'netcdf', 294 )
3043
3044	DEALLOCATE( netcdf_data )
3045
3046	!
3047	!-- Write data for x and y axis (wavenumbers)
3048	ALLOCATE( netcdf_data(nx/2) )
3049	DO i = 1, nx/2
3050	netcdf_data(i) = 2.0 * pi * i / ( dx * ( nx + 1 ) )
3051	ENDDO
3052
3053	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_x_sp, netcdf_data, &
3054	start = (/ 1 /), count = (/ nx/2 /) )
3055	CALL handle_netcdf_error( 'netcdf', 295 )
3056
3057	DEALLOCATE( netcdf_data )
3058
3059	ALLOCATE( netcdf_data(ny/2) )
3060	DO i = 1, ny/2
3061	netcdf_data(i) = 2.0 * pi * i / ( dy * ( ny + 1 ) )
3062	ENDDO
3063
3064	nc_stat = NF90_PUT_VAR( id_set_sp, id_var_y_sp, netcdf_data, &
3065	start = (/ 1 /), count = (/ ny/2 /) )
3066	CALL handle_netcdf_error( 'netcdf', 296 )
3067
3068	DEALLOCATE( netcdf_data )
3069
3070
3071	CASE ( 'sp_ext' )
3072
3073	!
3074	!-- Get the list of variables and compare with the actual run.
3075	!-- First var_list_old has to be reset, since GET_ATT does not assign
3076	!-- trailing blanks.
3077	var_list_old = ' '
3078	nc_stat = NF90_GET_ATT( id_set_sp, NF90_GLOBAL, 'VAR_LIST', &
3079	var_list_old )
3080	CALL handle_netcdf_error( 'netcdf', 297 )
3081	var_list = ';'
3082	i = 1
3083	DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 )
3084
3085	IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN
3086	netcdf_var_name = TRIM( data_output_sp(i) ) // '_x'
3087	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
3088	ENDIF
3089
3090	IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN
3091	netcdf_var_name = TRIM( data_output_sp(i) ) // '_y'
3092	var_list = TRIM( var_list ) // TRIM( netcdf_var_name ) // ';'
3093	ENDIF
3094
3095	i = i + 1
3096
3097	ENDDO
3098
3099	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
3100	message_string = 'NetCDF file for spectra ' // &
3101	'from previuos run found,' // &
3102	'& but this file cannot be extended due to' // &
3103	' variable mismatch.' // &
3104	'&New file is created instead.'
3105	CALL message( 'define_netcdf_header', 'PA0260', 0, 1, 0, 6, 0 )
3106	extend = .FALSE.
3107	RETURN
3108	ENDIF
3109
3110	!
3111	!-- Determine the number of current vertical levels for which spectra
3112	!-- shall be output
3113	ns = 1
3114	DO WHILE ( comp_spectra_level(ns) /= 999999 .AND. ns <= 100 )
3115	ns = ns + 1
3116	ENDDO
3117	ns = ns - 1
3118
3119	!
3120	!-- Get and compare the number of vertical levels
3121	nc_stat = NF90_INQ_VARID( id_set_sp, 'zu_sp', id_var_zu_sp )
3122	CALL handle_netcdf_error( 'netcdf', 298 )
3123
3124	nc_stat = NF90_INQUIRE_VARIABLE( id_set_sp, id_var_zu_sp, &
3125	dimids = id_dim_zu_sp_old )
3126	CALL handle_netcdf_error( 'netcdf', 299 )
3127	id_dim_zu_sp = id_dim_zu_sp_old(1)
3128
3129	nc_stat = NF90_INQUIRE_DIMENSION( id_set_sp, id_dim_zu_sp, &
3130	len = ns_old )
3131	CALL handle_netcdf_error( 'netcdf', 300 )
3132
3133	IF ( ns /= ns_old ) THEN
3134	message_string = 'NetCDF file for spectra ' // &
3135	' from previuos run found,' // &
3136	'&but this file cannot be extended due to' // &
3137	' mismatch in number of' // &
3138	'&vertical levels.' // &
3139	'&New file is created instead.'
3140	CALL message( 'define_netcdf_header', 'PA0261', 0, 1, 0, 6, 0 )
3141	extend = .FALSE.
3142	RETURN
3143	ENDIF
3144
3145	!
3146	!-- Get and compare the heights of the cross sections
3147	ALLOCATE( netcdf_data(1:ns_old) )
3148
3149	nc_stat = NF90_GET_VAR( id_set_sp, id_var_zu_sp, netcdf_data )
3150	CALL handle_netcdf_error( 'netcdf', 301 )
3151
3152	DO i = 1, ns
3153	IF ( zu(comp_spectra_level(i)) /= netcdf_data(i) ) THEN
3154	message_string = 'NetCDF file for spectra ' // &
3155	' from previuos run found,' // &
3156	'&but this file cannot be extended due to' // &
3157	' mismatch in heights of' // &
3158	'&vertical levels.' // &
3159	'&New file is created instead.'
3160	CALL message( 'define_netcdf_header', 'PA0262', 0, 1, 0, 6, 0 )
3161	extend = .FALSE.
3162	RETURN
3163	ENDIF
3164	ENDDO
3165
3166	DEALLOCATE( netcdf_data )
3167
3168	!
3169	!-- Get the id of the time coordinate (unlimited coordinate) and its
3170	!-- last index on the file. The next time level is plsp..count+1.
3171	!-- The current time must be larger than the last output time
3172	!-- on the file.
3173	nc_stat = NF90_INQ_VARID( id_set_sp, 'time', id_var_time_sp )
3174	CALL handle_netcdf_error( 'netcdf', 302 )
3175
3176	nc_stat = NF90_INQUIRE_VARIABLE( id_set_sp, id_var_time_sp, &
3177	dimids = id_dim_time_old )
3178	CALL handle_netcdf_error( 'netcdf', 303 )
3179	id_dim_time_sp = id_dim_time_old(1)
3180
3181	nc_stat = NF90_INQUIRE_DIMENSION( id_set_sp, id_dim_time_sp, &
3182	len = dosp_time_count )
3183	CALL handle_netcdf_error( 'netcdf', 304 )
3184
3185	nc_stat = NF90_GET_VAR( id_set_sp, id_var_time_sp, &
3186	last_time_coordinate, &
3187	start = (/ dosp_time_count /), &
3188	count = (/ 1 /) )
3189	CALL handle_netcdf_error( 'netcdf', 305 )
3190
3191	IF ( last_time_coordinate(1) >= simulated_time ) THEN
3192	message_string = 'NetCDF file for spectra ' // &
3193	'from previuos run found,' // &
3194	'&but this file cannot be extended becaus' // &
3195	'e the current output time' // &
3196	'&is less or equal than the last output t' // &
3197	'ime on this file.' // &
3198	'&New file is created instead.'
3199	CALL message( 'define_netcdf_header', 'PA0263', 0, 1, 0, 6, 0 )
3200	dosp_time_count = 0
3201	extend = .FALSE.
3202	RETURN
3203	ENDIF
3204
3205	!
3206	!-- Dataset seems to be extendable.
3207	!-- Now get the variable ids.
3208	i = 1
3209	DO WHILE ( data_output_sp(i) /= ' ' .AND. i <= 10 )
3210
3211	IF ( INDEX( spectra_direction(i), 'x' ) /= 0 ) THEN
3212	netcdf_var_name = TRIM( data_output_sp(i) ) // '_x'
3213	nc_stat = NF90_INQ_VARID( id_set_sp, netcdf_var_name, &
3214	id_var_dospx(i) )
3215	CALL handle_netcdf_error( 'netcdf', 306 )
3216	ENDIF
3217
3218	IF ( INDEX( spectra_direction(i), 'y' ) /= 0 ) THEN
3219	netcdf_var_name = TRIM( data_output_sp(i) ) // '_y'
3220	nc_stat = NF90_INQ_VARID( id_set_sp, netcdf_var_name, &
3221	id_var_dospy(i) )
3222	CALL handle_netcdf_error( 'netcdf', 307 )
3223	ENDIF
3224
3225	i = i + 1
3226
3227	ENDDO
3228
3229	!
3230	!-- Change the titel attribute on file
3231	IF ( averaging_interval_sp /= 0.0 ) THEN
3232	WRITE (time_average_text,'('', '',F7.1,'' s average'')') &
3233	averaging_interval_sp
3234	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
3235	TRIM( run_description_header ) // &
3236	TRIM( time_average_text ) )
3237	CALL handle_netcdf_error( 'netcdf', 308 )
3238
3239	WRITE ( time_average_text,'(F7.1,'' s avg'')' ) averaging_interval_sp
3240	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'time_avg', &
3241	TRIM( time_average_text ) )
3242	ELSE
3243	nc_stat = NF90_PUT_ATT( id_set_sp, NF90_GLOBAL, 'title', &
3244	TRIM( run_description_header ) )
3245	ENDIF
3246	CALL handle_netcdf_error( 'netcdf', 309 )
3247	message_string = 'NetCDF file for spectra ' // &
3248	'from previous run found.' // &
3249	'&This file will be extended.'
3250	CALL message( 'define_netcdf_header', 'PA0264', 0, 0, 0, 6, 0 )
3251
3252
3253	CASE ( 'pt_new' )
3254
3255	!
3256	!-- Define some global attributes of the dataset
3257	nc_stat = NF90_PUT_ATT( id_set_prt, NF90_GLOBAL, 'title', &
3258	TRIM( run_description_header ) )
3259	CALL handle_netcdf_error( 'netcdf', 310 )
3260
3261	!
3262	!-- Define time coordinate for particles (unlimited dimension)
3263	nc_stat = NF90_DEF_DIM( id_set_prt, 'time', NF90_UNLIMITED, &
3264	id_dim_time_prt )
3265	CALL handle_netcdf_error( 'netcdf', 311 )
3266
3267	nc_stat = NF90_DEF_VAR( id_set_prt, 'time', NF90_DOUBLE, &
3268	id_dim_time_prt, id_var_time_prt )
3269	CALL handle_netcdf_error( 'netcdf', 312 )
3270
3271	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_time_prt, 'units', &
3272	'seconds' )
3273	CALL handle_netcdf_error( 'netcdf', 313 )
3274
3275	!
3276	!-- Define particle coordinate (maximum particle number)
3277	nc_stat = NF90_DEF_DIM( id_set_prt, 'particle_number', &
3278	maximum_number_of_particles, id_dim_prtnum )
3279	CALL handle_netcdf_error( 'netcdf', 314 )
3280
3281	nc_stat = NF90_DEF_VAR( id_set_prt, 'particle_number', NF90_DOUBLE, &
3282	id_dim_prtnum, id_var_prtnum )
3283	CALL handle_netcdf_error( 'netcdf', 315 )
3284
3285	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prtnum, 'units', &
3286	'particle number' )
3287	CALL handle_netcdf_error( 'netcdf', 316 )
3288
3289	!
3290	!-- Define variable which contains the real number of particles in use
3291	nc_stat = NF90_DEF_VAR( id_set_prt, 'real_num_of_prt', NF90_INT, &
3292	id_dim_time_prt, id_var_rnop_prt )
3293	CALL handle_netcdf_error( 'netcdf', 317 )
3294
3295	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_rnop_prt, 'units', &
3296	'particle number' )
3297	CALL handle_netcdf_error( 'netcdf', 318 )
3298
3299	!
3300	!-- Define the variables
3301	DO i = 1, 17
3302
3303	nc_stat = NF90_DEF_VAR( id_set_prt, prt_var_names(i), &
3304	nc_precision(8), &
3305	(/ id_dim_prtnum, id_dim_time_prt /), &
3306	id_var_prt(i) )
3307	CALL handle_netcdf_error( 'netcdf', 319 )
3308
3309	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prt(i), &
3310	'long_name', TRIM( prt_var_names(i) ) )
3311	CALL handle_netcdf_error( 'netcdf', 320 )
3312
3313	nc_stat = NF90_PUT_ATT( id_set_prt, id_var_prt(i), &
3314	'units', TRIM( prt_var_units(i) ) )
3315	CALL handle_netcdf_error( 'netcdf', 321 )
3316
3317	ENDDO
3318
3319	!
3320	!-- Leave NetCDF define mode
3321	nc_stat = NF90_ENDDEF( id_set_prt )
3322	CALL handle_netcdf_error( 'netcdf', 322 )
3323
3324
3325	CASE ( 'pt_ext' )
3326
3327	!
3328	!-- Get the id of the time coordinate (unlimited coordinate) and its
3329	!-- last index on the file. The next time level is prt..count+1.
3330	!-- The current time must be larger than the last output time
3331	!-- on the file.
3332	nc_stat = NF90_INQ_VARID( id_set_prt, 'time', id_var_time_prt )
3333	CALL handle_netcdf_error( 'netcdf', 323 )
3334
3335	nc_stat = NF90_INQUIRE_VARIABLE( id_set_prt, id_var_time_prt, &
3336	dimids = id_dim_time_old )
3337	CALL handle_netcdf_error( 'netcdf', 324 )
3338	id_dim_time_prt = id_dim_time_old(1)
3339
3340	nc_stat = NF90_INQUIRE_DIMENSION( id_set_prt, id_dim_time_prt, &
3341	len = prt_time_count )
3342	CALL handle_netcdf_error( 'netcdf', 325 )
3343
3344	nc_stat = NF90_GET_VAR( id_set_prt, id_var_time_prt, &
3345	last_time_coordinate, &
3346	start = (/ prt_time_count /), &
3347	count = (/ 1 /) )
3348	CALL handle_netcdf_error( 'netcdf', 326 )
3349
3350	IF ( last_time_coordinate(1) >= simulated_time ) THEN
3351	message_string = 'NetCDF file for particles ' // &
3352	'from previuos run found,' // &
3353	'&but this file cannot be extended becaus' // &
3354	'e the current output time' // &
3355	'&is less or equal than the last output t' // &
3356	'ime on this file.' // &
3357	'&New file is created instead.'
3358	CALL message( 'define_netcdf_header', 'PA0265', 0, 1, 0, 6, 0 )
3359	prt_time_count = 0
3360	extend = .FALSE.
3361	RETURN
3362	ENDIF
3363
3364	!
3365	!-- Dataset seems to be extendable.
3366	!-- Now get the variable ids.
3367	nc_stat = NF90_INQ_VARID( id_set_prt, 'real_num_of_prt', &
3368	id_var_rnop_prt )
3369	CALL handle_netcdf_error( 'netcdf', 327 )
3370
3371	DO i = 1, 17
3372
3373	nc_stat = NF90_INQ_VARID( id_set_prt, prt_var_names(i), &
3374	id_var_prt(i) )
3375	CALL handle_netcdf_error( 'netcdf', 328 )
3376
3377	ENDDO
3378
3379	message_string = 'NetCDF file for particles ' // &
3380	'from previous run found.' // &
3381	'&This file will be extended.'
3382	CALL message( 'define_netcdf_header', 'PA0266', 0, 0, 0, 6, 0 )
3383
3384
3385
3386	CASE ( 'ps_new' )
3387
3388	!
3389	!-- Define some global attributes of the dataset
3390	nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'title', &
3391	TRIM( run_description_header ) )
3392	CALL handle_netcdf_error( 'netcdf', 396 )
3393
3394	!
3395	!-- Define time coordinate for particle time series (unlimited dimension)
3396	nc_stat = NF90_DEF_DIM( id_set_pts, 'time', NF90_UNLIMITED, &
3397	id_dim_time_pts )
3398	CALL handle_netcdf_error( 'netcdf', 397 )
3399
3400	nc_stat = NF90_DEF_VAR( id_set_pts, 'time', NF90_DOUBLE, &
3401	id_dim_time_pts, id_var_time_pts )
3402	CALL handle_netcdf_error( 'netcdf', 398 )
3403
3404	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_time_pts, 'units', &
3405	'seconds')
3406	CALL handle_netcdf_error( 'netcdf', 399 )
3407
3408	!
3409	!-- Define the variables. If more than one particle group is defined,
3410	!-- define seperate variables for each group
3411	var_list = ';'
3412	DO i = 1, dopts_num
3413
3414	!
3415	!-- First, remove those characters not allowed by NetCDF
3416	netcdf_var_name = dopts_label(i)
3417	CALL clean_netcdf_varname( netcdf_var_name )
3418
3419	DO j = 0, number_of_particle_groups
3420
3421	IF ( j == 0 ) THEN
3422	suffix1 = ''
3423	ELSE
3424	WRITE ( suffix1, '(''_'',I2.2)' ) j
3425	ENDIF
3426
3427	nc_stat = NF90_DEF_VAR( id_set_pts, &
3428	TRIM( netcdf_var_name ) // suffix1, &
3429	nc_precision(6), &
3430	(/ id_dim_time_pts /), &
3431	id_var_dopts(i,j) )
3432	CALL handle_netcdf_error( 'netcdf', 400 )
3433
3434	IF ( j == 0 ) THEN
3435	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), &
3436	'long_name', &
3437	TRIM( dopts_label(i) ) )
3438	ELSE
3439	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), &
3440	'long_name', &
3441	TRIM( dopts_label(i) ) // ' PG ' // &
3442	suffix1(2:3) )
3443	ENDIF
3444	CALL handle_netcdf_error( 'netcdf', 401 )
3445
3446	nc_stat = NF90_PUT_ATT( id_set_pts, id_var_dopts(i,j), &
3447	'units', TRIM( dopts_unit(i) ) )
3448	CALL handle_netcdf_error( 'netcdf', 402 )
3449
3450	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
3451	suffix1 // ';'
3452
3453	IF ( number_of_particle_groups == 1 ) EXIT
3454
3455	ENDDO
3456
3457	ENDDO
3458
3459	!
3460	!-- Write the list of variables as global attribute (this is used by
3461	!-- restart runs)
3462	nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'VAR_LIST', &
3463	var_list )
3464	CALL handle_netcdf_error( 'netcdf', 403 )
3465
3466
3467	!
3468	!-- Leave NetCDF define mode
3469	nc_stat = NF90_ENDDEF( id_set_pts )
3470	CALL handle_netcdf_error( 'netcdf', 404 )
3471
3472
3473	CASE ( 'ps_ext' )
3474
3475	!
3476	!-- Get the list of variables and compare with the actual run.
3477	!-- First var_list_old has to be reset, since GET_ATT does not assign
3478	!-- trailing blanks.
3479	var_list_old = ' '
3480	nc_stat = NF90_GET_ATT( id_set_pts, NF90_GLOBAL, 'VAR_LIST', &
3481	var_list_old )
3482	CALL handle_netcdf_error( 'netcdf', 405 )
3483
3484	var_list = ';'
3485	i = 1
3486	DO i = 1, dopts_num
3487
3488	netcdf_var_name = dopts_label(i)
3489	CALL clean_netcdf_varname( netcdf_var_name )
3490
3491	DO j = 0, number_of_particle_groups
3492
3493	IF ( j == 0 ) THEN
3494	suffix1 = ''
3495	ELSE
3496	WRITE ( suffix1, '(''_'',I2.2)' ) j
3497	ENDIF
3498
3499	var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
3500	suffix1 // ';'
3501
3502	IF ( number_of_particle_groups == 1 ) EXIT
3503
3504	ENDDO
3505
3506	ENDDO
3507
3508	IF ( TRIM( var_list ) /= TRIM( var_list_old ) ) THEN
3509	message_string = 'NetCDF file for particle time series ' // &
3510	'from previuos run found,' // &
3511	'& but this file cannot be extended due to' // &
3512	' variable mismatch.' // &
3513	'&New file is created instead.'
3514	CALL message( 'define_netcdf_header', 'PA0267', 0, 1, 0, 6, 0 )
3515	extend = .FALSE.
3516	RETURN
3517	ENDIF
3518
3519	!
3520	!-- Get the id of the time coordinate (unlimited coordinate) and its
3521	!-- last index on the file. The next time level is dots..count+1.
3522	!-- The current time must be larger than the last output time
3523	!-- on the file.
3524	nc_stat = NF90_INQ_VARID( id_set_pts, 'time', id_var_time_pts )
3525	CALL handle_netcdf_error( 'netcdf', 406 )
3526
3527	nc_stat = NF90_INQUIRE_VARIABLE( id_set_pts, id_var_time_pts, &
3528	dimids = id_dim_time_old )
3529	CALL handle_netcdf_error( 'netcdf', 407 )
3530	id_dim_time_pts = id_dim_time_old(1)
3531
3532	nc_stat = NF90_INQUIRE_DIMENSION( id_set_pts, id_dim_time_pts, &
3533	len = dopts_time_count )
3534	CALL handle_netcdf_error( 'netcdf', 408 )
3535
3536	nc_stat = NF90_GET_VAR( id_set_pts, id_var_time_pts, &
3537	last_time_coordinate, &
3538	start = (/ dopts_time_count /), &
3539	count = (/ 1 /) )
3540	CALL handle_netcdf_error( 'netcdf', 409 )
3541
3542	IF ( last_time_coordinate(1) >= simulated_time ) THEN
3543	message_string = 'NetCDF file for particle time series ' // &
3544	'from previuos run found,' // &
3545	'&but this file cannot be extended becaus' // &
3546	'e the current output time' // &
3547	'&is less or equal than the last output t' // &
3548	'ime on this file.' // &
3549	'&New file is created instead.'
3550	CALL message( 'define_netcdf_header', 'PA0268', 0, 1, 0, 6, 0 )
3551	dopts_time_count = 0
3552	extend = .FALSE.
3553	RETURN
3554	ENDIF
3555
3556	!
3557	!-- Dataset seems to be extendable.
3558	!-- Now get the variable ids
3559	i = 1
3560	DO i = 1, dopts_num
3561
3562	netcdf_var_name_base = dopts_label(i)
3563	CALL clean_netcdf_varname( netcdf_var_name_base )
3564
3565	DO j = 0, number_of_particle_groups
3566
3567	IF ( j == 0 ) THEN
3568	suffix1 = ''
3569	ELSE
3570	WRITE ( suffix1, '(''_'',I2.2)' ) j
3571	ENDIF
3572
3573	netcdf_var_name = TRIM( netcdf_var_name_base ) // suffix1
3574
3575	nc_stat = NF90_INQ_VARID( id_set_pts, netcdf_var_name, &
3576	id_var_dopts(i,j) )
3577	CALL handle_netcdf_error( 'netcdf', 410 )
3578
3579	IF ( number_of_particle_groups == 1 ) EXIT
3580
3581	ENDDO
3582
3583	ENDDO
3584
3585	!
3586	!-- Change the title attribute on file
3587	nc_stat = NF90_PUT_ATT( id_set_pts, NF90_GLOBAL, 'title', &
3588	TRIM( run_description_header ) )
3589	CALL handle_netcdf_error( 'netcdf', 411 )
3590	message_string = 'NetCDF file for particle time series ' // &
3591	'from previous run found.' // &
3592	'&This file will be extended.'
3593	CALL message( 'define_netcdf_header', 'PA0269', 0, 0, 0, 6, 0 )
3594
3595
3596	CASE DEFAULT
3597
3598	message_string = 'mode "' // TRIM( mode) // '" not supported'
3599	CALL message( 'define_netcdf_header', 'PA0270', 0, 0, 0, 6, 0 )
3600
3601	END SELECT
3602
3603	#endif
3604	END SUBROUTINE define_netcdf_header
3605
3606
3607	SUBROUTINE handle_netcdf_error( routine_name, errno )
3608	#if defined( __netcdf )
3609
3610	!------------------------------------------------------------------------------!
3611	!
3612	! Description:
3613	! ------------
3614	! Prints out a text message corresponding to the current status.
3615	!------------------------------------------------------------------------------!
3616
3617	USE control_parameters
3618	USE netcdf
3619	USE netcdf_control
3620	USE pegrid
3621
3622	IMPLICIT NONE
3623
3624	CHARACTER(LEN=6) :: message_identifier
3625	CHARACTER(LEN=*) :: routine_name
3626
3627	INTEGER :: errno
3628
3629	IF ( nc_stat /= NF90_NOERR ) THEN
3630
3631	WRITE( message_identifier, '(''NC'',I4.4)' ) errno
3632	message_string = TRIM( NF90_STRERROR( nc_stat ) )
3633
3634	CALL message( routine_name, message_identifier, 2, 2, 0, 6, 1 )
3635
3636	ENDIF
3637
3638	#endif
3639	END SUBROUTINE handle_netcdf_error
3640
3641
3642
3643	SUBROUTINE clean_netcdf_varname( string )
3644	#if defined( __netcdf )
3645
3646	!------------------------------------------------------------------------------!
3647	!
3648	! Description:
3649	! ------------
3650	! Replace those characters in string which are not allowed by NetCDF.
3651	!------------------------------------------------------------------------------!
3652
3653	USE netcdf_control
3654
3655	IMPLICIT NONE
3656
3657	CHARACTER (LEN=10), INTENT(INOUT) :: string
3658
3659	INTEGER :: i, ic
3660
3661	DO i = 1, replace_num
3662	DO
3663	ic = INDEX( string, replace_char(i) )
3664	IF ( ic /= 0 ) THEN
3665	string(ic:ic) = replace_by(i)
3666	ELSE
3667	EXIT
3668	ENDIF
3669	ENDDO
3670	ENDDO
3671
3672	#endif
3673	END SUBROUTINE clean_netcdf_varname

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |