Ignore:
Timestamp:
Mar 14, 2014 6:25:17 PM (8 years ago)
Author:
suehring
Message:

Vertical logarithmic interpolation of horizontal particle speed for particles
between roughness height and first vertical grid level.

File:
1 edited

Legend:

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

    r1310 r1314  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! + log_z_z0, number_of_sublayers, z0_av_global
    2323!
    2424! Former revisions:
     
    14281428                maximum_number_of_tailpoints = 100,                            &
    14291429                maximum_number_of_tails = 0,                                   &
     1430                number_of_sublayers = 20,                                      &
    14301431                number_of_initial_particles = 0, number_of_particles = 0,      &
    14311432                number_of_particle_groups = 1, number_of_tails = 0,            &
     
    14651466                sgs_wfv_part = 0.3333333, sgs_wfw_part = 0.3333333,            &
    14661467                time_prel = 0.0, time_sort_particles = 0.0,                    &
    1467                 time_write_particle_data = 0.0
     1468                time_write_particle_data = 0.0, z0_av_global
    14681469
    14691470    REAL, DIMENSION(max_number_of_particle_groups) ::  &
     
    14721473                psn = 9999999.9, psr = 9999999.9, pss = 9999999.9,           &
    14731474                pst = 9999999.9, radius = 9999999.9
     1475
     1476    REAL, DIMENSION(:), ALLOCATABLE     ::  log_z_z0
    14741477
    14751478    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  particle_tail_coordinates
Note: See TracChangeset for help on using the changeset viewer.