Home

Context Navigation

source: palm/trunk/SOURCE/parin.f90 @ 1429

Last change on this file since 1429 was 1429, checked in by knoop, 10 years ago
Ensemble run capability added to parallel random number generator.
Property svn:keywords set to `Id`
File size: 24.3 KB

Line
1	SUBROUTINE parin
2
3	!--------------------------------------------------------------------------------!
4	! This file is part of PALM.
5	!
6	! PALM is free software: you can redistribute it and/or modify it under the terms
7	! of the GNU General Public License as published by the Free Software Foundation,
8	! either version 3 of the License, or (at your option) any later version.
9	!
10	! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
11	! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12	! A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13	!
14	! You should have received a copy of the GNU General Public License along with
15	! PALM. If not, see <http://www.gnu.org/licenses/>.
16	!
17	! Copyright 1997-2014 Leibniz Universitaet Hannover
18	!--------------------------------------------------------------------------------!
19	!
20	! Current revisions:
21	! ------------------
22	! +ensemble_member_nr to prepare the random_generator for ensemble runs
23	!
24	! Former revisions:
25	! -----------------
26	! $Id: parin.f90 1429 2014-07-15 12:53:45Z knoop $
27	!
28	! 1402 2014-05-09 14:25:13Z raasch
29	! location messages modified, batch_job included in envpar-NAMELIST
30	!
31	! 1384 2014-05-02 14:31:06Z raasch
32	! location messages added
33	!
34	! 1365 2014-04-22 15:03:56Z boeske
35	! Usage of large scale forcing enabled:
36	! +use_subsidence_tendencies
37	!
38	! 1361 2014-04-16 15:17:48Z hoffmann
39	! +call_microphysics_at_all_substeps
40	!
41	! 1359 2014-04-11 17:15:14Z hoffmann
42	! REAL constants provided with KIND-attribute
43	!
44	! 1353 2014-04-08 15:21:23Z heinze
45	! REAL constants provided with KIND-attribute
46	!
47	! 1327 2014-03-21 11:00:16Z raasch
48	! -data_output_format, do3d_compress, do3d_comp_prec
49	!
50	! 1320 2014-03-20 08:40:49Z raasch
51	! ONLY-attribute added to USE-statements,
52	! kind-parameters added to all INTEGER and REAL declaration statements,
53	! kinds are defined in new module kinds,
54	! old module precision_kind is removed,
55	! revision history before 2012 removed,
56	! comment fields (!:) to be used for variable explanations added to
57	! all variable declaration statements
58	!
59	! 1318 2014-03-17 13:35:16Z raasch
60	! +cpu_log_barrierwait in d3par
61	!
62	! 1301 2014-03-06 13:29:46Z heinze
63	! +large_scale_subsidence
64	!
65	! 1241 2013-10-30 11:36:58Z heinze
66	! +nudging
67	! +large_scale_forcing
68	!
69	! 1216 2013-08-26 09:31:42Z raasch
70	! +transpose_compute_overlap in inipar
71	!
72	! 1195 2013-07-01 12:27:57Z heinze
73	! Bugfix: allocate ref_state
74	!
75	! 1179 2013-06-14 05:57:58Z raasch
76	! +reference_state in inipar
77	!
78	! 1159 2013-05-21 11:58:22Z fricke
79	! +use_cmax
80	!
81	! 1128 2013-04-12 06:19:32Z raasch
82	! +background_communication in inipar
83	!
84	! 1115 2013-03-26 18:16:16Z hoffmann
85	! unused variables removed
86	!
87	! 1092 2013-02-02 11:24:22Z raasch
88	! unused variables removed
89	!
90	! 1065 2012-11-22 17:42:36Z hoffmann
91	! +nc, c_sedimentation, limiter_sedimentation, turbulence
92	! -mu_constant, mu_constant_value
93	!
94	! 1053 2012-11-13 17:11:03Z hoffmann
95	! necessary expansions according to the two new prognostic equations (nr, qr)
96	! of the two-moment cloud physics scheme and steering parameters:
97	! +_init, _surface, _surface_initial_change, _vertical_gradient,
98	! +_vertical_gradient_level, surface_waterflux_,
99	! +cloud_scheme, drizzle, mu_constant, mu_constant_value, ventilation_effect
100	!
101	! 1036 2012-10-22 13:43:42Z raasch
102	! code put under GPL (PALM 3.9)
103	!
104	! 1015 2012-09-27 09:23:24Z raasch
105	! -adjust_mixing_length
106	!
107	! 1003 2012-09-14 14:35:53Z raasch
108	! -grid_matching
109	!
110	! 1001 2012-09-13 14:08:46Z raasch
111	! -cut_spline_overshoot, long_filter_factor, overshoot_limit_, ups_limit_
112	!
113	! 996 2012-09-07 10:41:47Z raasch
114	! -use_prior_plot1d_parameters
115	!
116	! 978 2012-08-09 08:28:32Z fricke
117	! -km_damp_max, outflow_damping_width
118	! +pt_damping_factor, pt_damping_width
119	! +z0h_factor
120	!
121	! 964 2012-07-26 09:14:24Z raasch
122	! -cross_normalized_x, cross_normalized_y, cross_xtext, z_max_do1d,
123	! z_max_do1d_normalized
124	!
125	! 940 2012-07-09 14:31:00Z raasch
126	! +neutral in inipar
127	!
128	! 927 2012-06-06 19:15:04Z raasch
129	! +masking_method in inipar
130	!
131	! 824 2012-02-17 09:09:57Z raasch
132	! +curvature_solution_effects in inipar
133	!
134	! 809 2012-01-30 13:32:58Z maronga
135	! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
136	!
137	! 807 2012-01-25 11:53:51Z maronga
138	! New cpp directive "__check" implemented which is used by check_namelist_files
139	!
140	! Revision 1.1 1997/07/24 11:22:50 raasch
141	! Initial revision
142	!
143	!
144	! Description:
145	! ------------
146	! This subroutine reads variables controling the run from the NAMELIST files
147	!------------------------------------------------------------------------------!
148
149	USE arrays_3d, &
150	ONLY: lad, pt_init, q_init, ref_state, sa_init, ug, u_init, v_init, &
151	vg
152
153	USE cloud_parameters, &
154	ONLY: c_sedimentation, curvature_solution_effects, &
155	limiter_sedimentation, nc_const, ventilation_effect
156
157	USE control_parameters, &
158	ONLY: alpha_surface, averaging_interval, averaging_interval_pr, &
159	bc_e_b, bc_lr, bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, &
160	bc_q_b, bc_q_t,bc_s_b, bc_s_t, bc_sa_t, bc_uv_b, bc_uv_t, &
161	bottom_salinityflux, building_height, building_length_x, &
162	building_length_y, building_wall_left, building_wall_south, &
163	call_microphysics_at_all_substeps, call_psolver_at_all_substeps,&
164	canopy_mode, canyon_height, &
165	canyon_width_x, canyon_width_y, canyon_wall_left, &
166	canyon_wall_south, cfl_factor, &
167	cloud_droplets, cloud_physics, cloud_scheme, &
168	conserve_volume_flow, conserve_volume_flow_mode, &
169	coupling_start_time, create_disturbances, cthf, cycle_mg, &
170	data_output, data_output_masks, &
171	data_output_pr, data_output_2d_on_each_pe, &
172	disturbance_amplitude, disturbance_energy_limit, &
173	disturbance_level_b, disturbance_level_t, dissipation_1d, &
174	do2d_at_begin, do3d_at_begin, &
175	dp_external, dp_level_b, dp_smooth, dpdxy, drag_coefficient, &
176	drizzle, dt, dt_averaging_input, dt_averaging_input_pr, &
177	dt_coupling, dt_data_output, dt_data_output_av, dt_disturb, &
178	dt_domask, dt_dopr, dt_dopr_listing, dt_dots, dt_do2d_xy, &
179	dt_do2d_xz, dt_do2d_yz, dt_do3d, dt_max, dt_restart, &
180	dt_run_control, dz, dz_max, dz_stretch_factor, dz_stretch_level,&
181	end_time, ensemble_member_nr, e_init, e_min, fft_method, &
182	force_print_header, &
183	galilei_transformation, host, humidity, inflow_damping_height, &
184	inflow_damping_width, inflow_disturbance_begin, &
185	inflow_disturbance_end, initializing_actions, io_blocks, &
186	io_group, km_constant, lad_surface, lad_vertical_gradient, &
187	lad_vertical_gradient_level, large_scale_forcing, &
188	large_scale_subsidence, leaf_surface_concentration, &
189	loop_optimization, masking_method, mask_scale_x, mask_scale_y, &
190	mask_scale_z, mask_x, mask_y, mask_z, mask_x_loop, &
191	mask_y_loop, mask_z_loop, maximum_cpu_time_allowed, &
192	maximum_parallel_io_streams, max_pr_user, message_string, &
193	mg_cycles, mg_switch_to_pe0_level, mixing_length_1d, &
194	momentum_advec, netcdf_data_format, netcdf_precision, neutral, &
195	ngsrb, normalizing_region, nsor, nsor_ini, nudging, ocean, &
196	omega, omega_sor, passive_scalar, pch_index, phi, nz_do3d, &
197	plant_canopy, prandtl_layer, prandtl_number, precipitation, &
198	precipitation_amount_interval, psolver, pt_damping_factor, &
199	pt_damping_width, pt_reference, pt_surface, &
200	pt_surface_initial_change, pt_vertical_gradient, &
201	pt_vertical_gradient_level, q_surface, &
202	q_surface_initial_change, q_vertical_gradient, &
203	q_vertical_gradient_level, radiation, random_generator, &
204	random_heatflux, rayleigh_damping_factor, &
205	rayleigh_damping_height, recycling_width, reference_state, &
206	residual_limit, restart_time, return_addres, return_username, &
207	revision, rif_max, rif_min, roughness_length, runnr, &
208	run_identifier, sa_surface, sa_vertical_gradient, &
209	sa_vertical_gradient_level, scalar_advec, &
210	scalar_exchange_coefficient, scalar_rayleigh_damping, &
211	section_xy, section_xz, section_yz, skip_time_data_output, &
212	skip_time_data_output_av, skip_time_dopr, skip_time_do2d_xy, &
213	skip_time_do2d_xz, skip_time_do2d_yz, skip_time_do3d, &
214	skip_time_domask, subs_vertical_gradient, &
215	subs_vertical_gradient_level, surface_heatflux, &
216	surface_pressure, surface_scalarflux, surface_waterflux, &
217	synchronous_exchange,s_surface, s_surface_initial_change, &
218	s_vertical_gradient, s_vertical_gradient_level, &
219	termination_time_needed, timestep_scheme, topography, &
220	topography_grid_convention, top_heatflux, top_momentumflux_u, &
221	top_momentumflux_v, top_salinityflux, &
222	transpose_compute_overlap, turbulence, turbulent_inflow, &
223	ug_surface, ug_vertical_gradient, ug_vertical_gradient_level, &
224	use_subsidence_tendencies, use_surface_fluxes, use_cmax, &
225	use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke, &
226	uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient,&
227	vg_vertical_gradient_level, v_bulk, v_profile, &
228	wall_adjustment, wall_heatflux, wall_humidityflux, &
229	wall_scalarflux, write_binary, z0h_factor, z_max_do2d
230
231	USE cpulog, &
232	ONLY: cpu_log_barrierwait
233
234	USE dvrp_variables, &
235	ONLY: local_dvrserver_running
236
237	USE grid_variables, &
238	ONLY: dx, dy
239
240	USE indices, &
241	ONLY: nx, ny, nz
242
243	USE model_1d, &
244	ONLY: damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
245
246	USE pegrid
247
248	USE profil_parameter, &
249	ONLY: cross_profiles, cross_ts_uymax, cross_ts_uymin, &
250	profile_columns, profile_rows
251
252	USE progress_bar, &
253	ONLY : batch_job
254
255	USE statistics, &
256	ONLY: hom, hom_sum, pr_palm, region, statistic_regions
257
258	IMPLICIT NONE
259
260	INTEGER(iwp) :: i !:
261
262
263	NAMELIST /inipar/ alpha_surface, background_communication, bc_e_b, bc_lr, &
264	bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b, &
265	bc_q_t,bc_s_b, bc_s_t, bc_sa_t, bc_uv_b, bc_uv_t, &
266	bottom_salinityflux, building_height, building_length_x, &
267	building_length_y, building_wall_left, building_wall_south, &
268	call_psolver_at_all_substeps, call_microphysics_at_all_substeps, &
269	canopy_mode, canyon_height, &
270	canyon_width_x, canyon_width_y, canyon_wall_left, &
271	canyon_wall_south, c_sedimentation, cfl_factor, cloud_droplets, &
272	cloud_physics, cloud_scheme, collective_wait, &
273	conserve_volume_flow, &
274	conserve_volume_flow_mode, coupling_start_time, cthf, &
275	curvature_solution_effects, cycle_mg, damp_level_1d, &
276	dissipation_1d, &
277	dp_external, dp_level_b, dp_smooth, dpdxy, drag_coefficient, &
278	drizzle, dt, dt_pr_1d, dt_run_control_1d, dx, dy, dz, dz_max, &
279	dz_stretch_factor, dz_stretch_level, end_time_1d, &
280	ensemble_member_nr, &
281	e_init, e_min, fft_method, galilei_transformation, humidity, &
282	inflow_damping_height, inflow_damping_width, &
283	inflow_disturbance_begin, inflow_disturbance_end, &
284	initializing_actions, km_constant, lad_surface, &
285	lad_vertical_gradient, lad_vertical_gradient_level, &
286	large_scale_forcing, large_scale_subsidence, &
287	leaf_surface_concentration, limiter_sedimentation, &
288	loop_optimization, masking_method, mg_cycles, &
289	mg_switch_to_pe0_level, mixing_length_1d, momentum_advec, &
290	nc_const, netcdf_precision, neutral, ngsrb, &
291	nsor, nsor_ini, nudging, nx, ny, nz, ocean, omega, omega_sor, &
292	passive_scalar, pch_index, phi, plant_canopy, prandtl_layer, &
293	prandtl_number, precipitation, psolver, pt_damping_factor, &
294	pt_damping_width, pt_reference, pt_surface, &
295	pt_surface_initial_change, pt_vertical_gradient, &
296	pt_vertical_gradient_level, q_surface, q_surface_initial_change, &
297	q_vertical_gradient, q_vertical_gradient_level, &
298	radiation, random_generator, random_heatflux, &
299	rayleigh_damping_factor, rayleigh_damping_height, recycling_width,&
300	reference_state, residual_limit, &
301	rif_max, rif_min, roughness_length, sa_surface, &
302	sa_vertical_gradient, sa_vertical_gradient_level, scalar_advec, &
303	scalar_exchange_coefficient, scalar_rayleigh_damping, &
304	statistic_regions, subs_vertical_gradient, &
305	subs_vertical_gradient_level, surface_heatflux, surface_pressure, &
306	surface_scalarflux, surface_waterflux, &
307	s_surface, s_surface_initial_change, s_vertical_gradient, &
308	s_vertical_gradient_level, timestep_scheme, &
309	topography, topography_grid_convention, top_heatflux, &
310	top_momentumflux_u, top_momentumflux_v, top_salinityflux, &
311	transpose_compute_overlap, turbulence, turbulent_inflow, &
312	use_subsidence_tendencies, ug_surface, ug_vertical_gradient, &
313	ug_vertical_gradient_level, use_surface_fluxes, use_cmax, &
314	use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke, &
315	uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient, &
316	vg_vertical_gradient_level, v_bulk, v_profile, ventilation_effect,&
317	wall_adjustment, wall_heatflux, wall_humidityflux, &
318	wall_scalarflux, z0h_factor
319
320	NAMELIST /d3par/ averaging_interval, averaging_interval_pr, &
321	cpu_log_barrierwait, create_disturbances, &
322	cross_profiles, cross_ts_uymax, cross_ts_uymin, &
323	data_output, data_output_masks, &
324	data_output_pr, data_output_2d_on_each_pe, disturbance_amplitude, &
325	disturbance_energy_limit, disturbance_level_b, &
326	disturbance_level_t, do2d_at_begin, do3d_at_begin, &
327	dt, dt_averaging_input, dt_averaging_input_pr, &
328	dt_coupling, dt_data_output, dt_data_output_av, dt_disturb, &
329	dt_domask, dt_dopr, dt_dopr_listing, dt_dots, dt_do2d_xy, &
330	dt_do2d_xz, dt_do2d_yz, dt_do3d, dt_max, dt_restart, &
331	dt_run_control,end_time, force_print_header, mask_scale_x, &
332	mask_scale_y, mask_scale_z, mask_x, mask_y, mask_z, mask_x_loop, &
333	mask_y_loop, mask_z_loop, netcdf_data_format, normalizing_region, &
334	npex, npey, nz_do3d, precipitation_amount_interval, &
335	profile_columns, profile_rows, restart_time, section_xy, &
336	section_xz, section_yz, skip_time_data_output, &
337	skip_time_data_output_av, skip_time_dopr, skip_time_do2d_xy, &
338	skip_time_do2d_xz, skip_time_do2d_yz, skip_time_do3d, &
339	skip_time_domask, synchronous_exchange, termination_time_needed, &
340	z_max_do2d
341
342
343	NAMELIST /envpar/ batch_job, host, local_dvrserver_running, &
344	maximum_cpu_time_allowed, maximum_parallel_io_streams, &
345	revision, return_addres, return_username, &
346	run_identifier, tasks_per_node, write_binary
347
348	!
349	!-- First read values of environment variables (this NAMELIST file is
350	!-- generated by mrun)
351	CALL location_message( 'reading environment parameters from ENVPAR', .FALSE. )
352	OPEN ( 90, FILE='ENVPAR', STATUS='OLD', FORM='FORMATTED', ERR=30 )
353	READ ( 90, envpar, ERR=31, END=32 )
354	CLOSE ( 90 )
355	CALL location_message( 'finished', .TRUE. )
356
357	!
358	!-- Calculate the number of groups into which parallel I/O is split.
359	!-- The default for files which are opened by all PEs (or where each
360	!-- PE opens his own independent file) is, that all PEs are doing input/output
361	!-- in parallel at the same time. This might cause performance or even more
362	!-- severe problems depending on the configuration of the underlying file
363	!-- system.
364	!-- First, set the default:
365	IF ( maximum_parallel_io_streams == -1 .OR. &
366	maximum_parallel_io_streams > numprocs ) THEN
367	maximum_parallel_io_streams = numprocs
368	ENDIF
369	!
370	!-- Now calculate the number of io_blocks and the io_group to which the
371	!-- respective PE belongs. I/O of the groups is done in serial, but in parallel
372	!-- for all PEs belonging to the same group.
373	!-- These settings are repeated in init_pegrid for the communicator comm2d,
374	!-- which is not available here
375	io_blocks = numprocs / maximum_parallel_io_streams
376	io_group = MOD( myid+1, io_blocks )
377
378	CALL location_message( 'reading NAMELIST parameters from PARIN', .FALSE. )
379	!
380	!-- Data is read in parallel by groups of PEs
381	DO i = 0, io_blocks-1
382	IF ( i == io_group ) THEN
383
384	!
385	!-- Open the NAMELIST-file which is send with this job
386	CALL check_open( 11 )
387
388	!
389	!-- Read the control parameters for initialization.
390	!-- The namelist "inipar" must be provided in the NAMELIST-file.
391	READ ( 11, inipar, ERR=10, END=11 )
392
393	#if defined ( __check )
394	!
395	!-- In case of a namelist file check, &inipar from the p3d file is
396	!-- used. The p3d file here must be closed and the p3df file for reading
397	!-- 3dpar is opened.
398	IF ( check_restart == 1 ) THEN
399	CALL close_file( 11 )
400	check_restart = 2
401	CALL check_open( 11 )
402	initializing_actions = 'read_restart_data'
403	ENDIF
404	#endif
405	GOTO 12
406
407	10 message_string = 'errors in \$inipar &or no \$inipar-namelist ' // &
408	'found (CRAY-machines only)'
409	CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
410
411	11 message_string = 'no \$inipar-namelist found'
412	CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
413
414	!
415	!-- If required, read control parameters from restart file (produced by
416	!-- a prior run). All PEs are reading from file created by PE0 (see
417	!-- check_open)
418	12 IF ( TRIM( initializing_actions ) == 'read_restart_data' ) THEN
419	#if ! defined ( __check )
420	CALL read_var_list
421	!
422	!-- The restart file will be reopened when reading the subdomain data
423	CALL close_file( 13 )
424
425	!
426	!-- Increment the run count
427	runnr = runnr + 1
428	#endif
429	ENDIF
430
431	!
432	!-- Definition of names of areas used for computing statistics. They must
433	!-- be defined at this place, because they are allowed to be redefined by
434	!-- the user in user_parin.
435	region = 'total domain'
436
437	!
438	!-- Read runtime parameters given by the user for this run (namelist
439	!-- "d3par"). The namelist "d3par" can be omitted. In that case, default
440	!-- values are used for the parameters.
441	READ ( 11, d3par, END=20 )
442
443	!
444	!-- Read control parameters for optionally used model software packages
445	20 CALL package_parin
446
447	!
448	!-- Read user-defined variables
449	CALL user_parin
450
451	!
452	!-- Check in case of initial run, if the grid point numbers are well
453	!-- defined and allocate some arrays which are already needed in
454	!-- init_pegrid or check_parameters. During restart jobs, these arrays
455	!-- will be allocated in read_var_list. All other arrays are allocated
456	!-- in init_3d_model.
457	IF ( TRIM( initializing_actions ) /= 'read_restart_data' ) THEN
458
459	IF ( nx <= 0 ) THEN
460	WRITE( message_string, * ) 'no value or wrong value given', &
461	' for nx: nx=', nx
462	CALL message( 'parin', 'PA0273', 1, 2, 0, 6, 0 )
463	ENDIF
464	IF ( ny <= 0 ) THEN
465	WRITE( message_string, * ) 'no value or wrong value given', &
466	' for ny: ny=', ny
467	CALL message( 'parin', 'PA0274', 1, 2, 0, 6, 0 )
468	ENDIF
469	IF ( nz <= 0 ) THEN
470	WRITE( message_string, * ) 'no value or wrong value given', &
471	' for nz: nz=', nz
472	CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
473	ENDIF
474	!
475	!-- ATTENTION: in case of changes to the following statement please
476	!-- also check the allocate statement in routine read_var_list
477	ALLOCATE( lad(0:nz+1), pt_init(0:nz+1), q_init(0:nz+1), &
478	ref_state(0:nz+1), sa_init(0:nz+1), ug(0:nz+1), &
479	u_init(0:nz+1), v_init(0:nz+1), vg(0:nz+1), &
480	hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions), &
481	hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )
482
483	hom = 0.0_wp
484
485	ENDIF
486
487	!
488	!-- NAMELIST-file is not needed anymore
489	CALL close_file( 11 )
490
491	ENDIF
492	#if defined( __parallel ) && ! ( __check )
493	CALL MPI_BARRIER( MPI_COMM_WORLD, ierr )
494	#endif
495	ENDDO
496
497	CALL location_message( 'finished', .TRUE. )
498
499	RETURN
500
501	30 message_string = 'local file ENVPAR not found' // &
502	'&some variables for steering may not be properly set'
503	CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 )
504	RETURN
505
506	31 message_string = 'errors in local file ENVPAR' // &
507	'&some variables for steering may not be properly set'
508	CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 )
509	RETURN
510
511	32 message_string = 'no envpar-NAMELIST found in local file ENVPAR' // &
512	'&some variables for steering may not be properly set'
513	CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 )
514
515	END SUBROUTINE parin

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |