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/package_parin.f90

    r2718 r2932  
    2525! -----------------
    2626! $Id$
     27! renamed particles_par to particle_parameters
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    157160
    158161    USE control_parameters,                                                    &
    159         ONLY:  dt_data_output, dt_dopts, dt_dvrp, particle_maximum_age,        &
    160                threshold
     162        ONLY:  dt_data_output, dt_dopts, dt_dvrp, message_string,              &
     163               particle_maximum_age, threshold
    161164
    162165    USE dvrp_variables,                                                        &
     
    249252                                  write_particle_statistics
    250253
     254                                 
     255    NAMELIST /particle_parameters/                                             &
     256                                  aero_species, aero_type, aero_weight,        &
     257                                  alloc_factor, bc_par_b, bc_par_lr,           &
     258                                  bc_par_ns, bc_par_t,                         &
     259                                  collision_kernel, curvature_solution_effects,&
     260                                  deallocate_memory, density_ratio,            &
     261                                  dissipation_classes, dt_dopts,               &
     262                                  dt_min_part, dt_prel,                        &
     263                                  dt_write_particle_data,                      &
     264                                  end_time_prel, initial_weighting_factor,     &
     265                                  log_sigma,                                   &
     266                                  max_number_particles_per_gridbox, merging,   &
     267                                  min_nr_particle,                             &
     268                                  na, number_concentration,                    &
     269                                  number_of_particle_groups,                   &
     270                                  number_particles_per_gridbox,                &
     271                                  particles_per_point,                         &
     272                                  particle_advection_start,                    &
     273                                  particle_maximum_age, pdx, pdy, pdz, psb,    &
     274                                  psl, psn, psr, pss, pst, radius,             &
     275                                  radius_classes, radius_merge, radius_split,  &
     276                                  random_start_position,                       &
     277                                  read_particles_from_restartfile, rm,         &
     278                                  seed_follows_topography,                     &
     279                                  splitting, splitting_factor,                 &
     280                                  splitting_factor_max, splitting_function,    &
     281                                  splitting_mode, step_dealloc,                &
     282                                  use_sgs_for_particles,                       &
     283                                  vertical_particle_advection,                 &
     284                                  weight_factor_merge, weight_factor_split,    &
     285                                  write_particle_statistics
    251286!
    252287!-- Position the namelist-file at the beginning (it was already opened in
     
    275310    REWIND ( 11 )
    276311    line = ' '
    277     DO   WHILE ( INDEX( line, '&particles_par' ) == 0 )
     312    DO   WHILE ( INDEX( line, '&particle_parameters' ) == 0 )
    278313       READ ( 11, '(A)', END=30 )  line
    279314    ENDDO
     
    282317!
    283318!-- Read user-defined namelist
    284     READ ( 11, particles_par )
     319    READ ( 11, particle_parameters )
    285320
    286321!
    287322!-- Set flag that indicates that particles are switched on
    288323    particle_advection = .TRUE.
    289 
    290  30 CONTINUE
     324   
     325    GOTO 31
     326
     327!
     328!-- Try to find particles package (old namelist)
     32930  REWIND ( 11 )
     330    line = ' '
     331    DO   WHILE ( INDEX( line, '&particles_par' ) == 0 )
     332       READ ( 11, '(A)', END=31 )  line
     333    ENDDO
     334    BACKSPACE ( 11 )
     335
     336!
     337!-- Read user-defined namelist
     338    READ ( 11, particles_par )
     339   
     340   
     341    message_string = 'namelist particles_par is deprecated and will be ' //    &
     342                     'removed in near future. Please &use namelist ' //        &
     343                     'particle_parameters instead'
     344    CALL message( 'package_parin', 'PA0487', 0, 1, 0, 6, 0 )
     345
     346!
     347!-- Set flag that indicates that particles are switched on
     348    particle_advection = .TRUE.
     349
     350 31 CONTINUE
    291351
    292352 END SUBROUTINE package_parin
Note: See TracChangeset for help on using the changeset viewer.