Ignore:
Timestamp:
Mar 26, 2018 9:39:22 AM (3 years ago)
Author:
maronga
Message:

renamed all Fortran NAMELISTS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/parin.f90

    r2921 r2932  
    2525! -----------------
    2626! $Id$
     27! inipar renamed to initialization_parameters.
     28! d3par renamed to runtime_parameters.
     29!
     30! 2921 2018-03-22 15:05:23Z Giersch
    2731! Activation of spinup has been moved from lsm/usm_parin to parin itself
    2832!
     
    523527             wall_salinityflux, wall_scalarflux, y_shift, zeta_max, zeta_min,  &
    524528             z0h_factor
    525      
     529
     530    NAMELIST /initialization_parameters/  aerosol_bulk, alpha_surface,         &
     531             approximation, bc_e_b,                                            &
     532             bc_lr, bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b,           &
     533             bc_q_t,bc_s_b, bc_s_t, bc_sa_t, bc_uv_b, bc_uv_t,                 &
     534             bottom_salinityflux, building_height, building_length_x,          &
     535             building_length_y, building_wall_left, building_wall_south,       &
     536             calc_soil_moisture_during_spinup,                                 &
     537             call_psolver_at_all_substeps, call_microphysics_at_all_substeps,  &
     538             canyon_height,                                                    &
     539             canyon_width_x, canyon_width_y, canyon_wall_left,                 &
     540             canyon_wall_south, c_sedimentation, cfl_factor, cloud_droplets,   &
     541             cloud_physics, cloud_scheme, cloud_top_radiation,                 &
     542             cloud_water_sedimentation,                                        &
     543             collective_wait, collision_turbulence, complex_terrain,           &
     544             conserve_volume_flow,                                             &
     545             conserve_volume_flow_mode, constant_flux_layer,                   &
     546             coupling_start_time, curvature_solution_effects_bulk,             &
     547             cycle_mg, damp_level_1d,                                          &
     548             data_output_during_spinup,                                        &
     549             day_of_year_init,                                                 &
     550             dissipation_1d,                                                   &
     551             dp_external, dp_level_b, dp_smooth, dpdxy, dry_aerosol_radius,    &
     552             dt, dt_pr_1d, dt_run_control_1d, dt_spinup, dx, dy, dz, dz_max,   &
     553             dz_stretch_factor, dz_stretch_level, end_time_1d,                 &
     554             ensemble_member_nr, e_init, e_min, fft_method,                    &
     555             flux_input_mode, flux_output_mode, forcing,                       &
     556             galilei_transformation, humidity,                                 &
     557             inflow_damping_height, inflow_damping_width,                      &
     558             inflow_disturbance_begin, inflow_disturbance_end,                 &
     559             initializing_actions, km_constant,                                &
     560             large_scale_forcing, large_scale_subsidence, latitude,            &
     561             limiter_sedimentation, longitude,                                 &
     562             loop_optimization, lsf_exception, masking_method, mg_cycles,      &
     563             mg_switch_to_pe0_level, mixing_length_1d, momentum_advec,         &
     564             most_method, na_init, nc_const, netcdf_precision, neutral, ngsrb, &
     565             nsor, nsor_ini, nudging, nx, ny, nz, ocean, omega, omega_sor,     &
     566             outflow_source_plane, passive_scalar,                             &
     567             prandtl_number, precipitation, psolver, pt_damping_factor,        &
     568             pt_damping_width, pt_reference, pt_surface,                       &
     569             pt_surface_initial_change, pt_vertical_gradient,                  &
     570             pt_vertical_gradient_level, q_surface, q_surface_initial_change,  &
     571             q_vertical_gradient, q_vertical_gradient_level,                   &
     572             random_generator, random_heatflux, rans_mode,                     &
     573             rayleigh_damping_factor, rayleigh_damping_height,                 &
     574             recycling_width, recycling_yshift,                                &
     575             reference_state, residual_limit,                                  &
     576             roughness_length, sa_surface,                                     &
     577             sa_vertical_gradient, sa_vertical_gradient_level, scalar_advec,   &
     578             scalar_rayleigh_damping, sigma_bulk,                              &
     579             spinup_time, spinup_pt_amplitude, spinup_pt_mean,                 &
     580             statistic_regions, subs_vertical_gradient,                        &
     581             subs_vertical_gradient_level, surface_heatflux, surface_pressure, &
     582             surface_scalarflux, surface_waterflux,                            &
     583             s_surface, s_surface_initial_change, s_vertical_gradient,         &
     584             s_vertical_gradient_level, time_utc_init, timestep_scheme,        &
     585             topography, topography_grid_convention, top_heatflux,             &
     586             top_momentumflux_u, top_momentumflux_v, top_salinityflux,         &
     587             top_scalarflux, transpose_compute_overlap,                        &
     588             tunnel_height, tunnel_length, tunnel_width_x, tunnel_width_y,     &
     589             tunnel_wall_depth, turbulence_closure,                            &
     590             turbulent_inflow, turbulent_outflow,                              &
     591             use_subsidence_tendencies, ug_surface, ug_vertical_gradient,      &
     592             ug_vertical_gradient_level, use_surface_fluxes, use_cmax,         &
     593             use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke,      &
     594             uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient,  &
     595             vg_vertical_gradient_level, v_bulk, v_profile, ventilation_effect,&
     596             wall_adjustment, wall_heatflux, wall_humidityflux,                &
     597             wall_salinityflux, wall_scalarflux, y_shift, zeta_max, zeta_min,  &
     598             z0h_factor
     599             
    526600    NAMELIST /d3par/  averaging_interval, averaging_interval_pr,               &
    527601             cpu_log_barrierwait, create_disturbances,                         &
     
    545619             termination_time_needed, vnest_start_time, z_max_do2d
    546620
     621    NAMELIST /runtime_parameters/  averaging_interval, averaging_interval_pr,  &
     622             cpu_log_barrierwait, create_disturbances,                         &
     623             cross_profiles, data_output, data_output_masks,                   &
     624             data_output_pr, data_output_2d_on_each_pe, disturbance_amplitude, &
     625             disturbance_energy_limit, disturbance_level_b,                    &
     626             disturbance_level_t, do2d_at_begin, do3d_at_begin,                &
     627             dt, dt_averaging_input, dt_averaging_input_pr,                    &
     628             dt_coupling, dt_data_output, dt_data_output_av, dt_disturb,       &
     629             dt_domask, dt_dopr, dt_dopr_listing, dt_dots, dt_do2d_xy,         &
     630             dt_do2d_xz, dt_do2d_yz, dt_do3d, dt_max, dt_restart,              &
     631             dt_run_control,end_time, force_print_header, mask_scale_x,        &
     632             mask_scale_y, mask_scale_z, mask_x, mask_y, mask_z, mask_x_loop,  &
     633             mask_y_loop, mask_z_loop, netcdf_data_format, netcdf_deflate,     &
     634             normalizing_region, npex, npey, nz_do3d,                          &
     635             precipitation_amount_interval, profile_columns, profile_rows,     &
     636             restart_time, section_xy, section_xz, section_yz,                 &
     637             skip_time_data_output, skip_time_data_output_av, skip_time_dopr,  &
     638             skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,          &
     639             skip_time_do3d, skip_time_domask, synchronous_exchange,           &
     640             termination_time_needed, vnest_start_time, z_max_do2d
    547641
    548642    NAMELIST /envpar/  batch_job, host, local_dvrserver_running,               &
     
    617711!--       Read the control parameters for initialization.
    618712!--       The namelist "inipar" must be provided in the NAMELIST-file.
    619           READ ( 11, inipar, ERR=10, END=11 )
     713          READ ( 11, initialization_parameters, ERR=10, END=11 )
    620714
    621715          GOTO 12
    622716
    623  10       message_string = 'errors in \$inipar &or no \$inipar-namelist ' //   &
     717 10       message_string = 'errors in initialization_parameters &or no ' //    &
     718                           'initialization_parameters-namelist ' //            &
    624719                           'found (CRAY-machines only)'
    625720          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
    626721
    627  11       message_string = 'no \$inipar-namelist found'
     722 11       REWIND ( 11 )
     723          READ ( 11, inipar, ERR=13, END=14 )
     724 
     725          message_string = 'namelist inipar is deprecated and will be ' //     &
     726                          'removed in near future. Please &use namelist ' //   &
     727                          'initialization_parameters instead'
     728          CALL message( 'parin', 'PA0272', 0, 1, 0, 6, 0 )
     729 
     730          GOTO 12
     731 
     732 13       message_string = 'errors in inipar &or no inipar-namelist ' //       &
     733                           'found (CRAY-machines only)'
     734          CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
     735         
     736 14       message_string = 'no initialization_parameters-namelist found'
    628737          CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
    629738
    630739!
    631740!--       Try to read runtime parameters given by the user for this run
    632 !--       (namelist "d3par"). The namelist "d3par" can be omitted. In that case
    633 !--       default values are used for the parameters.
     741!--       (namelist "runtime_parameters"). The namelist "runtime_parmeters"   
     742!--       can be omitted. In that case default values are used for the         
     743!--       parameters.
    634744 12       line = ' '
    635745
    636746          REWIND ( 11 )
    637747          line = ' '
    638           DO   WHILE ( INDEX( line, '&d3par' ) == 0 )
     748          DO   WHILE ( INDEX( line, '&runtime_parameters' ) == 0 )
    639749             READ ( 11, '(A)', END=20 )  line
    640750          ENDDO
     
    643753!
    644754!--       Read namelist
     755          READ ( 11, runtime_parameters )
     756
     757          GOTO 21
     758         
     759 20       REWIND ( 11 )
     760          line = ' '
     761          DO   WHILE ( INDEX( line, '&d3par' ) == 0 )
     762             READ ( 11, '(A)', END=21 )  line
     763          ENDDO
     764          BACKSPACE ( 11 )
     765 
     766 !
     767!--       Read namelist
    645768          READ ( 11, d3par )
    646 
    647  20       CONTINUE
     769 
     770          message_string = 'namelist d3par is deprecated and will be ' //      &
     771                          'removed in near future. Please &use namelist ' //   &
     772                          'runtime_parameters instead'
     773          CALL message( 'parin', 'PA0487', 0, 1, 0, 6, 0 )
     774         
     775 21       CONTINUE
    648776
    649777!
Note: See TracChangeset for help on using the changeset viewer.