Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 1831 for palm/trunk/SOURCE


Ignore:
Timestamp:
Apr 7, 2016 1:15:51 PM (9 years ago)
Author:
hoffmann
Message:

cloud physics variables renamed

Location:
palm/trunk/SOURCE
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/data_output_ptseries.f90

    r1818 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! curvature_solution_effects moved to particle_attributes
    2222!
    2323! Former revisions:
    … …  
    7070 
    7171
    72     USE cloud_parameters,                                                      &
    73         ONLY:  curvature_solution_effects
    74 
    7572    USE control_parameters,                                                    &
    7673        ONLY:  dopts_time_count, time_since_reference_point
    … …  
    9390
    9491    USE particle_attributes,                                                   &
    95         ONLY:  grid_particles, number_of_particles, number_of_particle_groups, &
    96                particles, prt_count
     92        ONLY:  curvature_solution_effects, grid_particles, number_of_particles,&
     93               number_of_particle_groups, particles, prt_count
    9794
    9895    USE pegrid

  • palm/trunk/SOURCE/diffusion_e.f90

    r1818 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! turbulence renamed collision_turbulence
    2222!
    2323! Former revisions:
    … …  
    116116           
    117117       USE control_parameters,                                                 &
    118            ONLY:  atmos_ocean_sign, g, turbulence, use_single_reference_value, &
     118           ONLY:  atmos_ocean_sign, g, use_single_reference_value, &
    119119                  wall_adjustment, wall_adjustment_factor
    120                  
     120
     121       USE cloud_parameters,                                                   &
     122           ONLY:  collision_turbulence
     123
    121124       USE grid_variables,                                                     &
    122125           ONLY:  ddx2, ddy2
    … …  
    215218!--          velocities
    216219             IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.               &
    217                   turbulence )  THEN
     220                  collision_turbulence )  THEN
    218221                DO  j = nys, nyn
    219222                   DO  k = nzb_s_inner(j,i)+1, nzt
    … …  
    287290!--          velocities
    288291             IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.               &
    289                   turbulence )  THEN
     292                  collision_turbulence )  THEN
    290293                DO  j = nys, nyn
    291294                   DO  k = nzb_s_inner(j,i)+1, nzt
    … …  
    301304!
    302305!--    Boundary condition for dissipation
    303        IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence )  THEN
     306       IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.                     &
     307            collision_turbulence )  THEN
    304308          DO  i = nxl, nxr
    305309             DO  j = nys, nyn
    … …  
    323327         
    324328       USE control_parameters,                                                 &
    325            ONLY:  atmos_ocean_sign, g, turbulence, use_single_reference_value, &
     329           ONLY:  atmos_ocean_sign, g, use_single_reference_value,            &
    326330                  wall_adjustment, wall_adjustment_factor
    327                
     331
     332       USE cloud_parameters,                                                   &
     333           ONLY:  collision_turbulence
     334
    328335       USE grid_variables,                                                     &
    329336           ONLY:  ddx2, ddy2
    … …  
    416423!--                   velocities
    417424                      IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.      &
    418                            turbulence )  THEN
     425                           collision_turbulence )  THEN
    419426                         diss(k,j,i) = dissipation
    420427                      ENDIF
    … …  
    483490!--                   particle  velocities
    484491                      IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.      &
    485                            turbulence )  THEN
     492                           collision_turbulence )  THEN
    486493                         diss(k,j,i) = dissipation
    487494                      ENDIF
    … …  
    498505!
    499506!--    Boundary condition for dissipation
    500        IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence )  THEN
     507       IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.                     &
     508            collision_turbulence )  THEN
    501509          !$acc kernels present( diss, nzb_s_inner )
    502510          DO  i = i_left, i_right
    … …  
    522530         
    523531       USE control_parameters,                                                 &
    524            ONLY:  atmos_ocean_sign, g, turbulence, use_single_reference_value, &
     532           ONLY:  atmos_ocean_sign, g, use_single_reference_value,            &
    525533                  wall_adjustment, wall_adjustment_factor
    526                
     534
     535       USE cloud_parameters,                                                   &
     536           ONLY:  collision_turbulence
     537
    527538       USE grid_variables,                                                     &
    528539           ONLY:  ddx2, ddy2
    … …  
    607618!
    608619!--    Store dissipation if needed for calculating the sgs particle velocities
    609        IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence )  THEN
     620       IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  collision_turbulence )  THEN
    610621          DO  k = nzb_s_inner(j,i)+1, nzt
    611622             diss(k,j,i) = dissipation(k)

  • palm/trunk/SOURCE/header.f90

    r1827 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
    22 !
     21! turbulence renamed collision_turbulence,
     22! drizzle renamed cloud_water_sedimentation
     23!
    2324! Former revisions:
    2425! -----------------
    … …  
    251252       
    252253    USE cloud_parameters,                                                      &
    253         ONLY:  cp, curvature_solution_effects, c_sedimentation,                &
    254                limiter_sedimentation, l_v, nc_const, r_d, ventilation_effect
     254        ONLY:  cloud_water_sedimentation, collision_turbulence, cp,            &
     255               c_sedimentation, limiter_sedimentation, l_v, nc_const,          &
     256               r_d, ventilation_effect
    255257       
    256258    USE cpulog,                                                                &
    … …  
    280282    USE particle_attributes,                                                   &
    281283        ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, collision_kernel,     &
     284               curvature_solution_effects,                                     &
    282285               density_ratio, dissipation_classes, dt_min_part, dt_prel,       &
    283286               dt_write_particle_data, end_time_prel,                          &
    … …  
    16891692          WRITE ( io, 133 )
    16901693       ELSEIF ( microphysics_seifert )  THEN
    1691           IF ( drizzle )  WRITE ( io, 506 )
     1694          IF ( cloud_water_sedimentation )  WRITE ( io, 506 )
    16921695          WRITE ( io, 505 )
    1693           IF ( turbulence )  WRITE ( io, 507 )
     1696          IF ( collision_turbulence )  WRITE ( io, 507 )
    16941697          IF ( ventilation_effect )  WRITE ( io, 508 )
    16951698          IF ( limiter_sedimentation )  WRITE ( io, 509 )
    … …  
    22532256504 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order')
    22542257505 FORMAT ('    Precipitation parameterization via Seifert-Beheng-Scheme')
    2255 506 FORMAT ('    Drizzle parameterization via Stokes law')
     2258506 FORMAT ('    Cloud water sedimentation parameterization via Stokes law')
    22562259507 FORMAT ('    Turbulence effects on precipitation process')
    22572260508 FORMAT ('    Ventilation effects on evaporation of rain drops')

  • palm/trunk/SOURCE/init_3d_model.f90

    r1827 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
    22 ! 
     21! turbulence renamed collision_turbulence
     22!
    2323! Former revisions:
    2424! -----------------
    … …  
    258258   
    259259    USE cloud_parameters,                                                      &
    260         ONLY:  nc_const, precipitation_amount, precipitation_rate, prr
     260        ONLY:  collision_turbulence, nc_const, precipitation_amount,           &
     261               precipitation_rate, prr
    261262   
    262263    USE constants,                                                             &
    … …  
    569570!-- 3D-array for storing the dissipation, needed for calculating the sgs
    570571!-- particle velocities
    571     IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  turbulence  .OR.      &
    572          num_acc_per_node > 0 )  THEN
     572    IF ( use_sgs_for_particles  .OR.  wang_kernel  .OR.  collision_turbulence  &
     573         .OR.  num_acc_per_node > 0 )  THEN
    573574       ALLOCATE( diss(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    574575    ENDIF

  • palm/trunk/SOURCE/lpm_droplet_condensation.f90

    r1823 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! curvature_solution_effects moved to particle_attributes
    2222!
    2323! Former revisions:
    … …  
    9090
    9191    USE cloud_parameters,                                                      &
    92         ONLY:  bfactor, curvature_solution_effects, eps_ros, l_d_rv, l_v,      &
    93                rho_l,  r_v
     92        ONLY:  bfactor, eps_ros, l_d_rv, l_v, rho_l,  r_v
    9493
    9594    USE constants,                                                             &
    … …  
    111110
    112111    USE particle_attributes,                                                   &
    113         ONLY:  block_offset, grid_particles, hall_kernel, number_of_particles, &
    114                particles, radius_classes, use_kernel_tables, wang_kernel
     112        ONLY:  block_offset, curvature_solution_effects, grid_particles,       &
     113               hall_kernel, number_of_particles, particles, radius_classes,    &
     114               use_kernel_tables, wang_kernel
    115115
    116116

  • palm/trunk/SOURCE/lpm_init.f90

    r1823 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! curvature_solution_effects moved to particle_attributes
    2222!
    2323! Former revisions:
    … …  
    109109        ONLY:  de_dx, de_dy, de_dz, zu, zw, z0
    110110
    111     USE cloud_parameters,                                                      &
    112         ONLY:  curvature_solution_effects
    113 
    114111    USE control_parameters,                                                    &
    115112        ONLY:  cloud_droplets, constant_flux_layer, current_timestep_number,   &
    … …  
    134131        ONLY:   alloc_factor, bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,        &
    135132                block_offset, block_offset_def, collision_kernel,              &
     133                curvature_solution_effects,                                    &
    136134                density_ratio, grid_particles,                                 &
    137135                initial_weighting_factor, ibc_par_b, ibc_par_lr, ibc_par_ns,   &

  • palm/trunk/SOURCE/microphysics.f90

    r1823 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! turbulence renamed collision_turbulence,
     22! drizzle renamed cloud_water_sedimentation. cloud_water_sedimentation also
     23! avaialble for microphysics_kessler.
    2224!
    2325! Former revisions:
    … …  
    163165
    164166       USE cloud_parameters,                                                   &
    165            ONLY:  cp, hyrho, prr, pt_d_t, r_d, t_d_pt
     167           ONLY:  cloud_water_sedimentation, cp, hyrho, prr, pt_d_t, r_d, t_d_pt
    166168
    167169       USE control_parameters,                                                 &
    168            ONLY:  call_microphysics_at_all_substeps, drizzle, dt_3d, dt_micro, &
     170           ONLY:  call_microphysics_at_all_substeps, dt_3d, dt_micro,          &
    169171                  g, intermediate_timestep_count, large_scale_forcing,         &
    170172                  lsf_surf, microphysics_kessler, microphysics_seifert,        &
    … …  
    223225
    224226          CALL autoconversion_kessler
     227          IF ( cloud_water_sedimentation )  CALL sedimentation_cloud
    225228
    226229       ELSEIF ( microphysics_seifert )  THEN
    … …  
    232235          CALL evaporation_rain
    233236          CALL sedimentation_rain
    234 
    235           IF ( drizzle )  CALL sedimentation_cloud
     237          IF ( cloud_water_sedimentation )  CALL sedimentation_cloud
    236238
    237239       ENDIF
    … …  
    306308       USE cloud_parameters,                                                   &
    307309           ONLY:  a_1, a_2, a_3, b_1, b_2, b_3, beta_cc, c_1, c_2, c_3,        &
    308                   c_const, dpirho_l, eps_sb, hyrho, k_cc, kin_vis_air,         &
    309                   nc_const, x0
     310                  c_const, collision_turbulence, dpirho_l, eps_sb, hyrho,      &
     311                  k_cc, kin_vis_air, nc_const, x0
    310312
    311313       USE control_parameters,                                                 &
    312            ONLY:  dt_micro, rho_surface, turbulence
     314           ONLY:  dt_micro, rho_surface
    313315
    314316       USE cpulog,                                                             &
    … …  
    371373!--                Parameterized turbulence effects on autoconversion (Seifert,
    372374!--                Nuijens and Stevens, 2010)
    373                    IF ( turbulence )  THEN
     375                   IF ( collision_turbulence )  THEN
    374376!
    375377!--                   Weight averaged radius of cloud droplets:
    … …  
    495497
    496498       USE cloud_parameters,                                                   &
    497            ONLY:  eps_sb, hyrho, k_cr0
     499           ONLY:  collision_turbulence, eps_sb, hyrho, k_cr0
    498500
    499501       USE control_parameters,                                                 &
    500            ONLY:  dt_micro, rho_surface, turbulence
     502           ONLY:  dt_micro, rho_surface
    501503
    502504       USE cpulog,                                                             &
    … …  
    537539!--                Nuijens and Stevens, 2010). The factor of 1.0E4 is needed to
    538540!--                convert the dissipation rate (diss) from m2 s-3 to cm2 s-3.
    539                    IF ( turbulence )  THEN
     541                   IF ( collision_turbulence )  THEN
    540542                      k_cr = k_cr0 * ( 1.0_wp + 0.05_wp *                      &
    541543                                       MIN( 600.0_wp,                          &
    … …  
    11651167
    11661168       USE cloud_parameters,                                                   &
    1167            ONLY:  cp, hyrho, nc_const, prr, pt_d_t, r_d, t_d_pt
     1169           ONLY:  cloud_water_sedimentation, cp, hyrho, nc_const, prr, pt_d_t, &
     1170                  r_d, t_d_pt
    11681171
    11691172       USE control_parameters,                                                 &
    1170            ONLY:  call_microphysics_at_all_substeps, drizzle, dt_3d, dt_micro, &
     1173           ONLY:  call_microphysics_at_all_substeps, dt_3d, dt_micro,          &
    11711174                  g, intermediate_timestep_count, large_scale_forcing,         &
    11721175                  lsf_surf, microphysics_seifert, microphysics_kessler,        &
    … …  
    12361239
    12371240          CALL autoconversion_kessler( i,j )
     1241          IF ( cloud_water_sedimentation )  CALL sedimentation_cloud( i,j )
    12381242
    12391243       ELSEIF ( microphysics_seifert )  THEN
    … …  
    12451249          CALL evaporation_rain( i,j )
    12461250          CALL sedimentation_rain( i,j )
    1247 
    1248           IF ( drizzle )  CALL sedimentation_cloud( i,j )
     1251          IF ( cloud_water_sedimentation )  CALL sedimentation_cloud( i,j )
    12491252
    12501253       ENDIF
    … …  
    13261329       USE cloud_parameters,                                                   &
    13271330           ONLY:  a_1, a_2, a_3, b_1, b_2, b_3, beta_cc, c_1, c_2, c_3,        &
    1328                   c_const, dpirho_l, eps_sb, hyrho, kin_vis_air, k_cc, x0
     1331                  c_const, collision_turbulence, dpirho_l, eps_sb, hyrho,      &
     1332                  kin_vis_air, k_cc, x0
    13291333
    13301334       USE control_parameters,                                                 &
    1331            ONLY:  dt_micro, rho_surface, turbulence
     1335           ONLY:  dt_micro, rho_surface
    13321336
    13331337       USE grid_variables,                                                     &
    … …  
    13821386!--          Parameterized turbulence effects on autoconversion (Seifert,
    13831387!--          Nuijens and Stevens, 2010)
    1384              IF ( turbulence )  THEN
     1388             IF ( collision_turbulence )  THEN
    13851389!
    13861390!--             Weight averaged radius of cloud droplets:
    … …  
    14951499
    14961500       USE cloud_parameters,                                                   &
    1497            ONLY:  eps_sb, hyrho, k_cr0
     1501           ONLY:  collision_turbulence, eps_sb, hyrho, k_cr0
    14981502
    14991503       USE control_parameters,                                                 &
    1500            ONLY:  dt_micro, rho_surface, turbulence
     1504           ONLY:  dt_micro, rho_surface
    15011505
    15021506       USE indices,                                                            &
    … …  
    15291533!--          Nuijens and Stevens, 2010). The factor of 1.0E4 is needed to
    15301534!--          convert the dissipation rate (diss) from m2 s-3 to cm2 s-3.
    1531              IF ( turbulence )  THEN
     1535             IF ( collision_turbulence )  THEN
    15321536                k_cr = k_cr0 * ( 1.0_wp + 0.05_wp *                            &
    15331537                                 MIN( 600.0_wp,                                &

  • palm/trunk/SOURCE/mod_particle_attributes.f90

    r1823 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! palm_kernel removed, curvature_solution_effects added
    2222!
    2323! Former revisions:
    … …  
    8181
    8282    LOGICAL ::  all_or_nothing = .FALSE., average_impact = .FALSE.,            &
    83                 hall_kernel = .FALSE., palm_kernel = .FALSE.,                  &
    84                 particle_advection = .FALSE., random_start_position = .FALSE., &
     83                curvature_solution_effects = .FALSE.,                          &
     84                hall_kernel = .FALSE., particle_advection = .FALSE.,           &
     85                random_start_position = .FALSE.,                               &
    8586                read_particles_from_restartfile = .TRUE.,                      &
    8687                seed_follows_topography = .FALSE.,                             &

  • palm/trunk/SOURCE/modules.f90

    r1823 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! curvature_solution_effects removed
     22! turbulence renamed collision_turbulence, drizzle renamed cloud_water_sedimentation
    2223!
    2324! Former revisions:
    … …  
    479480    USE kinds
    480481
    481     LOGICAL ::  curvature_solution_effects = .FALSE., &
    482                 limiter_sedimentation = .TRUE., &
    483                 ventilation_effect = .FALSE.
     482    LOGICAL ::  cloud_water_sedimentation = .FALSE., & !< cloud water sedimentation in bulk cloud physics
     483                limiter_sedimentation = .TRUE.,      & !< sedimentation limiter in bulk cloud physics
     484                collision_turbulence = .FALSE.,      & !< turbulence effects in bulk cloud physics
     485                ventilation_effect = .TRUE.            !< ventilation effect in bulk cloud physics
    484486               
    485487
    … …  
    727729                do_sum = .FALSE., &
    728730                dp_external = .FALSE., dp_smooth = .FALSE., &
    729                 drizzle = .TRUE., dt_fixed = .FALSE., &
     731                dt_fixed = .FALSE., &
    730732                dt_3d_reached, dt_3d_reached_l, exchange_mg = .FALSE., &
    731733                first_call_lpm = .TRUE., &
    … …  
    759761                stop_dt = .FALSE., synchronous_exchange = .FALSE., &
    760762                terminate_run = .FALSE., transpose_compute_overlap = .FALSE., &
    761                 turbulence = .FALSE., turbulent_inflow = .FALSE., &
     763                turbulent_inflow = .FALSE., &
    762764                use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
    763765                use_prescribed_profile_data = .FALSE., &

  • palm/trunk/SOURCE/package_parin.f90

    r1827 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! curvature_solution_effects added
    2222!
    2323! Former revisions:
    … …  
    145145    USE particle_attributes,                                                   &
    146146        ONLY:  alloc_factor, bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,         &
    147                collision_algorithm, collision_kernel, density_ratio,           &
     147               collision_algorithm, collision_kernel,                          &
     148               curvature_solution_effects, density_ratio,                      &
    148149               dissipation_classes, dt_min_part, dt_prel,                      &
    149150               dt_write_particle_data,                                         &
    … …  
    184185    NAMELIST /particles_par/      alloc_factor, bc_par_b, bc_par_lr,           &
    185186                                  bc_par_ns, bc_par_t, collision_algorithm,    &
    186                                   collision_kernel,                            &
     187                                  collision_kernel, curvature_solution_effects,&
    187188                                  density_ratio, dissipation_classes, dt_dopts,&
    188189                                  dt_min_part, dt_prel,                        &

  • palm/trunk/SOURCE/parin.f90

    r1827 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! turbulence renamed collision_turbulence, drizzle renamed
     22! cloud_water_sedimentation
     23! curvature_solution_effects removed
    2224!
    2325! Former revisions:
    … …  
    199201 
    200202    USE cloud_parameters,                                                      &
    201         ONLY:  c_sedimentation, curvature_solution_effects,                    &
    202                limiter_sedimentation, nc_const, ventilation_effect
     203        ONLY:  c_sedimentation, cloud_water_sedimentation,                     &
     204               collision_turbulence, limiter_sedimentation, nc_const,          &
     205               ventilation_effect
    203206
    204207    USE control_parameters
    … …  
    261264             canyon_wall_south, c_sedimentation, cfl_factor, cloud_droplets,   &
    262265             cloud_physics, cloud_scheme, cloud_top_radiation,                 &
    263              collective_wait, conserve_volume_flow,                            &
     266             cloud_water_sedimentation,                                        &
     267             collective_wait, collision_turbulence, conserve_volume_flow,      &
    264268             conserve_volume_flow_mode, constant_flux_layer,                   &
    265269             coupling_start_time,                                              &
    266              curvature_solution_effects, cycle_mg, damp_level_1d,              &
     270             cycle_mg, damp_level_1d,                                          &
    267271             dissipation_1d,                                                   &
    268272             dp_external, dp_level_b, dp_smooth, dpdxy,                        &
    269              drizzle, dt, dt_pr_1d, dt_run_control_1d, dx, dy, dz, dz_max,     &
     273             dt, dt_pr_1d, dt_run_control_1d, dx, dy, dz, dz_max,              &
    270274             dz_stretch_factor, dz_stretch_level, end_time_1d,                 &
    271275             ensemble_member_nr,                                               &
    … …  
    300304             topography, topography_grid_convention, top_heatflux,             &
    301305             top_momentumflux_u, top_momentumflux_v, top_salinityflux,         &
    302              transpose_compute_overlap, turbulence, turbulent_inflow,          &
     306             transpose_compute_overlap, turbulent_inflow,                      &
    303307             use_subsidence_tendencies, ug_surface, ug_vertical_gradient,      &
    304308             ug_vertical_gradient_level, use_surface_fluxes, use_cmax,         &

  • palm/trunk/SOURCE/read_var_list.f90

    r1818 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! turbulence renamed collision_turbulence, drizzle renamed cloud_water_sedimentation
    2222!
    2323! Former revisions:
    … …  
    165165
    166166    USE cloud_parameters,                                                      &
    167         ONLY:  c_sedimentation, curvature_solution_effects,                    &
    168                limiter_sedimentation, nc_const, ventilation_effect
     167        ONLY:  c_sedimentation, collision_turbulence,                          &
     168               cloud_water_sedimentation, limiter_sedimentation,               &
     169               nc_const, ventilation_effect
    169170
    170171    USE control_parameters
    … …  
    183184
    184185    USE particle_attributes,                                                   &
    185         ONLY:  time_sort_particles
     186        ONLY:  curvature_solution_effects, time_sort_particles
    186187
    187188    USE pegrid
    … …  
    206207!-- Make version number check first
    207208    READ ( 13 )  version_on_file
    208     binary_version = '4.0'
     209    binary_version = '4.1'
    209210    IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    210211       WRITE( message_string, * ) 'version mismatch concerning control ', &
    … …  
    401402          CASE ( 'dpdxy' )
    402403             READ ( 13 )  dpdxy
    403           CASE ( 'drizzle' )
    404              READ ( 13 )  drizzle
     404          CASE ( 'cloud_water_sedimentation' )
     405             READ ( 13 )  cloud_water_sedimentation
    405406          CASE ( 'dt_pr_1d' )
    406407             READ ( 13 )  dt_pr_1d
    … …  
    661662          CASE ( 'tsc' )
    662663             READ ( 13 )  tsc
    663           CASE ( 'turbulence' )
    664              READ ( 13 )  turbulence
     664          CASE ( 'collision_turbulence' )
     665             READ ( 13 )  collision_turbulence
    665666          CASE ( 'turbulent_inflow' )
    666667             READ ( 13 )  turbulent_inflow

  • palm/trunk/SOURCE/time_integration.f90

    r1823 r1831  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! turbulence renamed collision_turbulence
    2222!
    2323! Former revisions:
    … …  
    233233               time_dots, time_do_av, time_do_sla, time_disturb, time_dvrp,    &
    234234               time_run_control, time_since_reference_point,                   &
    235                turbulence,                                                     &
    236235               turbulent_inflow, use_initial_profile_as_reference,             &
    237236               use_single_reference_value, u_gtrans, v_gtrans, ws_scheme_mom,  &
    238237               ws_scheme_sca
     238
     239    USE cloud_parameters,                                                      &
     240        ONLY: collision_turbulence
    239241
    240242    USE cpulog,                                                                &
    … …  
    501503                   CALL exchange_horiz( ql_vp, nbgp )
    502504                ENDIF
    503                 IF ( wang_kernel  .OR.  turbulence  .OR.  use_sgs_for_particles ) &
    504                 THEN
     505                IF ( wang_kernel  .OR.  collision_turbulence  .OR.            &
     506                     use_sgs_for_particles )  THEN
    505507                   CALL exchange_horiz( diss, nbgp )
    506508                ENDIF
    … …  
    568570                   CALL exchange_horiz( ql_vp, nbgp )
    569571                ENDIF
    570                 IF ( wang_kernel  .OR.  turbulence  .OR.  use_sgs_for_particles ) &
    571                 THEN
     572                IF ( wang_kernel  .OR.  collision_turbulence  .OR.            &
     573                     use_sgs_for_particles )  THEN
    572574                   CALL exchange_horiz( diss, nbgp )
    573575                ENDIF
    … …  
    657659                CALL exchange_horiz( ql_vp, nbgp )
    658660             ENDIF
    659              IF ( wang_kernel  .OR.  turbulence  .OR.  use_sgs_for_particles ) &
    660              THEN
     661             IF ( wang_kernel  .OR.  collision_turbulence  .OR.                &
     662                  use_sgs_for_particles )  THEN
    661663                CALL exchange_horiz( diss, nbgp )
    662664             ENDIF

  • palm/trunk/SOURCE/write_var_list.f90

    r1818 r1831  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! turbulence renamed collision_turbulence, drizzle renamed cloud_water_sedimentation
    2222!
    2323! Former revisions:
    … …  
    144144   
    145145    USE cloud_parameters,                                                      &
    146         ONLY:  c_sedimentation, curvature_solution_effects,                    &
    147                limiter_sedimentation, nc_const, ventilation_effect
     146        ONLY:  c_sedimentation, cloud_water_sedimentation,                     &
     147               collision_turbulence, limiter_sedimentation, nc_const,          &
     148               ventilation_effect
    148149   
    149150    USE control_parameters
    … …  
    162163   
    163164    USE particle_attributes,                                                   &
    164         ONLY:  time_sort_particles
     165        ONLY:  curvature_solution_effects, time_sort_particles
    165166   
    166167    USE pegrid
    … …  
    179180
    180181
    181     binary_version = '4.0'
     182    binary_version = '4.1'
    182183
    183184    WRITE ( 14 )  binary_version
    … …  
    314315    WRITE ( 14 )  'dpdxy                         '
    315316    WRITE ( 14 )  dpdxy
    316     WRITE ( 14 )  'drizzle                       '
    317     WRITE ( 14 )  drizzle
     317    WRITE ( 14 )  'cloud_water_sedimentation     '
     318    WRITE ( 14 )  cloud_water_sedimentation
    318319    WRITE ( 14 )  'dt_pr_1d                      '
    319320    WRITE ( 14 )  dt_pr_1d
    … …  
    568569    WRITE ( 14 )  'tsc                           '
    569570    WRITE ( 14 )  tsc
    570     WRITE ( 14 )  'turbulence                    '
    571     WRITE ( 14 )  turbulence
     571    WRITE ( 14 )  'collision_turbulence          '
     572    WRITE ( 14 )  collision_turbulence
    572573    WRITE ( 14 )  'turbulent_inflow              '
    573574    WRITE ( 14 )  turbulent_inflow
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |