Home

Context Navigation

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

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

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |