Changeset 3274 for palm/trunk/SOURCE/parin.f90
- Timestamp:
- Sep 24, 2018 3:42:55 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r3248 r3274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Modularization of all bulk cloud physics code components 28 ! 29 ! 3248 2018-09-14 09:42:06Z sward 27 30 ! Minor formating changes 28 31 ! … … 420 423 421 424 USE arrays_3d, & 422 ONLY: pt_init, q_init, ref_state, s_init, sa_init, & 425 ONLY: pt_init, q_init, ref_state, s_init, sa_init, & 423 426 ug, u_init, v_init, vg 427 428 USE bulk_cloud_model_mod, & 429 ONLY: bcm_parin 424 430 425 431 USE chemistry_model_mod, & 426 432 ONLY: chem_parin 427 433 428 434 USE chem_modules 429 435 … … 455 461 USE land_surface_model_mod, & 456 462 ONLY: lsm_parin 457 458 USE microphysics_mod, &459 ONLY: c_sedimentation, cloud_water_sedimentation, &460 collision_turbulence, curvature_solution_effects_bulk, &461 dry_aerosol_radius, limiter_sedimentation, na_init, nc_const, &462 sigma_bulk, ventilation_effect463 463 464 464 USE model_1d_mod, & … … 525 525 INTEGER(iwp) :: ioerr !< error flag for open/read/write 526 526 527 NAMELIST /inipar/ a erosol_bulk, alpha_surface, approximation, bc_e_b, &527 NAMELIST /inipar/ alpha_surface, approximation, bc_e_b, & 528 528 bc_lr, bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b, & 529 529 bc_q_t,bc_s_b, bc_s_t, bc_sa_t, bc_uv_b, bc_uv_t, & … … 531 531 building_length_y, building_wall_left, building_wall_south, & 532 532 calc_soil_moisture_during_spinup, & 533 call_psolver_at_all_substeps, call_microphysics_at_all_substeps,&533 call_psolver_at_all_substeps, & 534 534 canyon_height, & 535 535 canyon_width_x, canyon_width_y, canyon_wall_left, & 536 canyon_wall_south, c_sedimentation, cfl_factor, cloud_droplets, & 537 cloud_physics, cloud_scheme, cloud_top_radiation, & 538 cloud_water_sedimentation, & 539 collective_wait, collision_turbulence, complex_terrain, & 536 canyon_wall_south, cfl_factor, cloud_droplets, & 537 cloud_top_radiation, & 538 collective_wait, complex_terrain, & 540 539 conserve_volume_flow, & 541 540 conserve_volume_flow_mode, constant_flux_layer, & 542 coupling_start_time, curvature_solution_effects_bulk,&541 coupling_start_time, & 543 542 cycle_mg, damp_level_1d, & 544 543 data_output_during_spinup, & 545 544 day_of_year_init, & 546 545 dissipation_1d, & 547 dp_external, dp_level_b, dp_smooth, dpdxy, dry_aerosol_radius,&546 dp_external, dp_level_b, dp_smooth, dpdxy, & 548 547 dt, dt_pr_1d, dt_run_control_1d, dt_spinup, dx, dy, dz, dz_max, & 549 548 dz_stretch_factor, dz_stretch_level, dz_stretch_level_start, & … … 555 554 initializing_actions, km_constant, & 556 555 large_scale_forcing, large_scale_subsidence, latitude, & 557 l imiter_sedimentation, longitude, &556 longitude, & 558 557 loop_optimization, lsf_exception, masking_method, mg_cycles, & 559 558 mg_switch_to_pe0_level, mixing_length_1d, momentum_advec, & 560 most_method, n a_init, nc_const, nesting_offline, &559 most_method, nesting_offline, & 561 560 netcdf_precision, neutral, ngsrb, & 562 561 nsor, nsor_ini, nudging, nx, ny, nz, ocean, omega, omega_sor, & 563 562 outflow_source_plane, passive_scalar, & 564 prandtl_number, p recipitation, psolver, pt_damping_factor, &563 prandtl_number, psolver, pt_damping_factor, & 565 564 pt_damping_width, pt_reference, pt_surface, & 566 565 pt_surface_initial_change, pt_vertical_gradient, & … … 574 573 roughness_length, sa_surface, & 575 574 sa_vertical_gradient, sa_vertical_gradient_level, scalar_advec, & 576 scalar_rayleigh_damping, sigma_bulk,&575 scalar_rayleigh_damping, & 577 576 spinup_time, spinup_pt_amplitude, spinup_pt_mean, & 578 577 statistic_regions, subs_vertical_gradient, & … … 592 591 use_top_fluxes, use_ug_for_galilei_tr, use_upstream_for_tke, & 593 592 uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient, & 594 vg_vertical_gradient_level, v_bulk, v_profile, ventilation_effect,&593 vg_vertical_gradient_level, v_bulk, v_profile,& 595 594 wall_adjustment, wall_heatflux, wall_humidityflux, & 596 595 wall_salinityflux, wall_scalarflux, y_shift, zeta_max, zeta_min, & 597 596 z0h_factor 598 597 599 NAMELIST /initialization_parameters/ a erosol_bulk, alpha_surface, &598 NAMELIST /initialization_parameters/ alpha_surface, & 600 599 approximation, bc_e_b, & 601 600 bc_lr, bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b, & … … 604 603 building_length_y, building_wall_left, building_wall_south, & 605 604 calc_soil_moisture_during_spinup, & 606 call_psolver_at_all_substeps, call_microphysics_at_all_substeps,&605 call_psolver_at_all_substeps, & 607 606 canyon_height, & 608 607 canyon_width_x, canyon_width_y, canyon_wall_left, & 609 canyon_wall_south, c_sedimentation, cfl_factor, cloud_droplets, & 610 cloud_physics, cloud_scheme, cloud_top_radiation, & 611 cloud_water_sedimentation, & 612 collective_wait, collision_turbulence, complex_terrain, & 608 canyon_wall_south, cfl_factor, cloud_droplets, & 609 cloud_top_radiation, & 610 collective_wait, complex_terrain, & 613 611 conserve_volume_flow, & 614 612 conserve_volume_flow_mode, constant_flux_layer, & 615 coupling_start_time, curvature_solution_effects_bulk,&613 coupling_start_time, & 616 614 cycle_mg, damp_level_1d, & 617 615 data_output_during_spinup, & 618 616 day_of_year_init, & 619 617 dissipation_1d, & 620 dp_external, dp_level_b, dp_smooth, dpdxy, dry_aerosol_radius,&618 dp_external, dp_level_b, dp_smooth, dpdxy, & 621 619 dt, dt_pr_1d, dt_run_control_1d, dt_spinup, dx, dy, dz, dz_max, & 622 620 dz_stretch_factor, dz_stretch_level, dz_stretch_level_start, & … … 628 626 initializing_actions, km_constant, & 629 627 large_scale_forcing, large_scale_subsidence, latitude, & 630 l imiter_sedimentation, longitude, &628 longitude, & 631 629 loop_optimization, lsf_exception, masking_method, mg_cycles, & 632 630 mg_switch_to_pe0_level, mixing_length_1d, momentum_advec, & 633 most_method, n a_init, nc_const, nesting_offline, &631 most_method, nesting_offline, & 634 632 netcdf_precision, neutral, ngsrb, & 635 633 nsor, nsor_ini, nudging, nx, ny, nz, ocean, omega, omega_sor, & 636 634 outflow_source_plane, passive_scalar, & 637 prandtl_number, p recipitation, psolver, pt_damping_factor, &635 prandtl_number, psolver, pt_damping_factor, & 638 636 pt_damping_width, pt_reference, pt_surface, & 639 637 pt_surface_initial_change, pt_vertical_gradient, & … … 647 645 roughness_length, sa_surface, & 648 646 sa_vertical_gradient, sa_vertical_gradient_level, scalar_advec, & 649 scalar_rayleigh_damping, sigma_bulk,&647 scalar_rayleigh_damping, & 650 648 spinup_time, spinup_pt_amplitude, spinup_pt_mean, & 651 649 statistic_regions, subs_vertical_gradient, & … … 665 663 use_free_convection_scaling, & 666 664 uv_heights, u_bulk, u_profile, vg_surface, vg_vertical_gradient, & 667 vg_vertical_gradient_level, v_bulk, v_profile, ventilation_effect,&665 vg_vertical_gradient_level, v_bulk, v_profile,& 668 666 wall_adjustment, wall_heatflux, wall_humidityflux, & 669 667 wall_salinityflux, wall_scalarflux, y_shift, zeta_max, zeta_min, & … … 684 682 mask_y_loop, mask_z_loop, netcdf_data_format, netcdf_deflate, & 685 683 normalizing_region, npex, npey, nz_do3d, & 686 pr ecipitation_amount_interval, profile_columns, profile_rows, &684 profile_columns, profile_rows, & 687 685 restart_time, section_xy, section_xz, section_yz, & 688 686 skip_time_data_output, skip_time_data_output_av, skip_time_dopr, & … … 705 703 mask_y_loop, mask_z_loop, netcdf_data_format, netcdf_deflate, & 706 704 normalizing_region, npex, npey, nz_do3d, & 707 pr ecipitation_amount_interval, profile_columns, profile_rows, &705 profile_columns, profile_rows, & 708 706 restart_time, section_xy, section_xz, section_yz, & 709 707 skip_time_data_output, skip_time_data_output_av, skip_time_dopr, & … … 864 862 865 863 ! 864 !-- Check if gust module is used and read &gust_par if required 865 CALL bcm_parin 866 867 ! 866 868 !-- Check if urban surface model is used and read &urban_surface_par if required 867 869 CALL usm_parin
Note: See TracChangeset
for help on using the changeset viewer.