Changeset 240 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Feb 18, 2009 5:50:38 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r237 r240 6 6 ! ----------------- 7 7 ! +cluster_size in dvrp_variables 8 ! +dp_external, dp_level_b, dp_level_ind_b, dp_smooth, dp_smooth_factor, dpdxy, 9 ! in control_parameters 10 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 11 ! canyon_wall_south in control_parameters 8 12 ! 9 13 ! Former revisions: … … 313 317 dosp_time_count = 0, dots_time_count = 0, & 314 318 do2d_xy_n = 0, do2d_xz_n = 0, do2d_yz_n = 0, do3d_avs_n = 0, & 319 dp_level_ind_b = 0, & 315 320 dvrp_filecount = 0, dz_stretch_level_index, gamma_mg, & 316 321 grid_level, ibc_e_b, ibc_p_b, ibc_p_t, ibc_pt_b, ibc_pt_t, & … … 323 328 nsor_ini = 100, n_sor, normalizing_region = 0, & 324 329 nz_do1d, nz_do3d = -9999, outflow_damping_width = -1, & 325 p rt_time_count = 0, recycling_plane, runnr = 0, &330 pch_index = 0, prt_time_count = 0, recycling_plane, runnr = 0, & 326 331 skip_do_avs = 0, terminate_coupled = 0, & 327 332 terminate_coupled_remote = 0, timestep_count = 0 … … 332 337 do3d_no(0:1) = 0, do3d_time_count(0:1), & 333 338 lad_vertical_gradient_level_ind(10) = -9999, & 334 pch_index = 0, &335 339 pt_vertical_gradient_level_ind(10) = -9999, & 336 340 q_vertical_gradient_level_ind(10) = -9999, & … … 354 358 data_output_2d_on_each_pe = .TRUE., do2d_at_begin = .FALSE., & 355 359 do3d_at_begin = .FALSE., do3d_compress = .FALSE., & 356 do_sum = .FALSE., dt_changed = .FALSE., dt_fixed = .FALSE., & 360 do_sum = .FALSE., dp_external = .FALSE., dp_smooth = .FALSE., & 361 dt_changed = .FALSE., dt_fixed = .FALSE., & 357 362 disturbance_created = .FALSE., & 358 363 first_call_advec_particles = .TRUE., & … … 388 393 building_height = 50.0, building_length_x = 50.0, & 389 394 building_length_y = 50.0, building_wall_left = 9999999.9, & 390 building_wall_south = 9999999.9, cthf = 0.0, cfl_factor = -1.0, & 395 building_wall_south = 9999999.9, canyon_height = 50.0, & 396 canyon_width_x = 9999999.9, canyon_width_y = 9999999.9, & 397 canyon_wall_left = 9999999.9, canyon_wall_south = 9999999.9, & 398 cthf = 0.0, cfl_factor = -1.0, & 391 399 cos_alpha_surface, disturbance_amplitude = 0.25, & 392 400 disturbance_energy_limit = 0.01, & 393 401 disturbance_level_b = -9999999.9, & 394 402 disturbance_level_t = -9999999.9, & 395 d rag_coefficient = 0.0, &403 dp_level_b = 0.0, drag_coefficient = 0.0, & 396 404 dt = -1.0, dt_averaging_input = 0.0, & 397 405 dt_averaging_input_pr = 9999999.9, dt_coupling = 9999999.9, & … … 452 460 453 461 REAL :: do2d_xy_last_time(0:1) = -1.0, do2d_xz_last_time(0:1) = -1.0, & 454 do2d_yz_last_time(0:1) = -1.0, &462 do2d_yz_last_time(0:1) = -1.0, dpdxy(1:2) = 0.0, & 455 463 lad_vertical_gradient(10) = 0.0, & 456 464 lad_vertical_gradient_level(10) = -9999999.9, & … … 472 480 wall_humidityflux(0:4) = 0.0, wall_qflux(0:4) = 0.0, & 473 481 wall_salinityflux(0:4) = 0.0, wall_scalarflux(0:4) = 0.0 482 483 REAL, DIMENSION(:), ALLOCATABLE :: dp_smooth_factor 474 484 475 485
Note: See TracChangeset
for help on using the changeset viewer.