Changeset 1484 for palm/trunk/SOURCE/modules.f90
 Timestamp:
 Oct 21, 2014 10:53:05 AM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/modules.f90
r1469 r1484 20 20 ! Current revisions: 21 21 !  22 ! 22 ! Changes due to new module structure of the plant canopy model: 23 ! canopymodel related parameters/variables moved to module 24 ! plant_canopy_model_mod 23 25 ! 24 26 ! Former revisions: … … 38 40 ! 1429 20140715 12:53:45Z knoop 39 41 ! +ensemble_member_nr to prepare the random_generator for ensemble runs 40 ! 42 ! 41 43 ! 1382 20140430 12:15:41Z boeske 42 44 ! Renamed variables which store large scale forcing tendencies … … 294 296 REAL(wp), DIMENSION(:), ALLOCATABLE :: & 295 297 c_u_m, c_u_m_l, c_v_m, c_v_m_l, c_w_m, c_w_m_l, ddzu, ddzu_pres, & 296 dd2zu, dzu, ddzw, dzw, hyp, inflow_damping_factor, l ad, l_grid,&298 dd2zu, dzu, ddzw, dzw, hyp, inflow_damping_factor, l_grid, & 297 299 nc_1d, nr_1d, ptdf_x, ptdf_y, p_surf, pt_surf, pt_1d, pt_init, & 298 300 qsws_surf, q_1d, q_init, q_surf, qc_1d, qr_1d, rdf, rdf_sc, & … … 313 315 314 316 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: & 315 canopy_heat_flux, cdc, d, de_dx, de_dy, de_dz, diss, diss_l_e,&317 d, de_dx, de_dy, de_dz, diss, diss_l_e, & 316 318 diss_l_nr, diss_l_pt, diss_l_q, diss_l_qr, diss_l_sa, diss_l_u, & 317 319 diss_l_v, diss_l_w, flux_l_e, flux_l_nr, flux_l_pt, flux_l_q, & 318 flux_l_qr, flux_l_sa, flux_l_u, flux_l_v, flux_l_w, kh, km, lad_s,&319 l ad_u, lad_v, lad_w, lai, l_wall, p_loc, sec, sls, tend, tric,&320 flux_l_qr, flux_l_sa, flux_l_u, flux_l_v, flux_l_w, kh, km, & 321 l_wall, p_loc, tend, tric, & 320 322 u_m_l, u_m_n, u_m_r, u_m_s, v_m_l, v_m_n, v_m_r, v_m_s, w_m_l, & 321 323 w_m_n, w_m_r, w_m_s … … 533 535 bc_sa_t = 'neumann', & 534 536 bc_uv_b = 'dirichlet', bc_uv_t = 'dirichlet', & 535 canopy_mode = 'block', &536 537 cloud_scheme = 'seifert_beheng', & 537 538 coupling_mode = 'uncoupled', & … … 586 587 nr_timesteps_this_run = 0, & 587 588 nsor = 20, nsor_ini = 100, n_sor, normalizing_region = 0, & 588 nz_do3d = 9999, p ch_index = 0, prt_time_count = 0, &589 nz_do3d = 9999, prt_time_count = 0, & 589 590 recycling_plane, runnr = 0, & 590 591 skip_do_avs = 0, subdomain_size, terminate_coupled = 0, & … … 596 597 do3d_no(0:1) = 0, do3d_time_count(0:1), & 597 598 domask_no(max_masks,0:1) = 0, domask_time_count(max_masks,0:1),& 598 lad_vertical_gradient_level_ind(10) = 9999, &599 599 mask_size(max_masks,3) = 1, mask_size_l(max_masks,3) = 1, & 600 600 mask_start_l(max_masks,3) = 1, & … … 652 652 outflow_l = .FALSE., outflow_n = .FALSE., outflow_r = .FALSE., & 653 653 outflow_s = .FALSE., passive_scalar = .FALSE., & 654 p lant_canopy = .FALSE., prandtl_layer = .TRUE., &654 prandtl_layer = .TRUE., & 655 655 precipitation = .FALSE., & 656 656 radiation = .FALSE., random_heatflux = .FALSE., & … … 682 682 canyon_width_x = 9999999.9_wp, canyon_width_y = 9999999.9_wp, & 683 683 canyon_wall_left = 9999999.9_wp, canyon_wall_south = 9999999.9_wp, & 684 c thf = 0.0_wp, cfl_factor = 1.0_wp, cos_alpha_surface, &684 cfl_factor = 1.0_wp, cos_alpha_surface, & 685 685 coupling_start_time = 0.0_wp, disturbance_amplitude = 0.25_wp, & 686 686 disturbance_energy_limit = 0.01_wp, & 687 687 disturbance_level_b = 9999999.9_wp, & 688 688 disturbance_level_t = 9999999.9_wp, & 689 dp_level_b = 0.0_wp, drag_coefficient = 0.0_wp,&689 dp_level_b = 0.0_wp, & 690 690 dt = 1.0_wp, dt_averaging_input = 0.0_wp, & 691 691 dt_averaging_input_pr = 9999999.9_wp, dt_coupling = 9999999.9_wp, & … … 703 703 f = 0.0_wp, fs = 0.0_wp, g = 9.81_wp, inflow_damping_height = 9999999.9_wp, & 704 704 inflow_damping_width = 9999999.9_wp, kappa = 0.4_wp, km_constant = 1.0_wp,& 705 lad_surface = 0.0_wp, leaf_surface_concentration = 0.0_wp, &706 705 mask_scale_x = 1.0_wp, mask_scale_y = 1.0_wp, mask_scale_z = 1.0_wp, & 707 706 maximum_cpu_time_allowed = 0.0_wp, & … … 719 718 restart_time = 9999999.9_wp, rho_reference, rho_surface, & 720 719 rif_max = 1.0_wp, rif_min = 5.0_wp, roughness_length = 0.1_wp, & 721 sa_surface = 35.0_wp, scalar_exchange_coefficient = 0.0_wp,&720 sa_surface = 35.0_wp, & 722 721 simulated_time = 0.0_wp, simulated_time_at_begin, sin_alpha_surface, & 723 722 skip_time_data_output = 0.0_wp, skip_time_data_output_av = 9999999.9_wp,& … … 745 744 REAL(wp) :: do2d_xy_last_time(0:1) = 1.0_wp, do2d_xz_last_time(0:1) = 1.0_wp, & 746 745 do2d_yz_last_time(0:1) = 1.0_wp, dpdxy(1:2) = 0.0_wp, & 747 dt_domask(max_masks) = 9999999.9_wp, lad_vertical_gradient(10) = 0.0_wp,& 748 lad_vertical_gradient_level(10) = 9999999.9_wp, & 746 dt_domask(max_masks) = 9999999.9_wp, & 749 747 mask_scale(3), & 750 748 pt_vertical_gradient(10) = 0.0_wp, &
Note: See TracChangeset
for help on using the changeset viewer.