Home

Context Navigation

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

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

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |