Changeset 4017 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Jun 6, 2019 12:16:46 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r3990 r4017 1195 1195 INTEGER(iwp) :: dots_time_count = 0 !< number of output intervals for timeseries output 1196 1196 INTEGER(iwp) :: dp_level_ind_b = 0 !< lowest grid index for external pressure gradient forcing 1197 INTEGER(iwp) :: dvrp_filecount = 0 !< parameter for dvr visualization software1198 1197 INTEGER(iwp) :: ensemble_member_nr = 0 !< namelist parameter 1199 1198 INTEGER(iwp) :: gamma_mg !< switch for steering the multigrid cycle: 1: v-cycle, 2: w-cycle … … 1460 1459 REAL(wp) :: dt_do2d_yz = 9999999.9_wp !< namelist parameter 1461 1460 REAL(wp) :: dt_do3d = 9999999.9_wp !< namelist parameter 1462 REAL(wp) :: dt_dvrp = 9999999.9_wp !< namelist parameter1463 1461 REAL(wp) :: dt_max = 20.0_wp !< namelist parameter 1464 1462 REAL(wp) :: dt_restart = 9999999.9_wp !< namelist parameter … … 1545 1543 REAL(wp) :: time_do_av = 0.0_wp !< time since last averaged-data output 1546 1544 REAL(wp) :: time_do_sla = 0.0_wp !< time since last 1547 REAL(wp) :: time_dvrp = 0.0_wp !< time since last dvrp output1548 1545 REAL(wp) :: time_restart = 9999999.9_wp !< time at which run shall be terminated and restarted 1549 1546 REAL(wp) :: time_run_control = 0.0_wp !< time since last RUN_CONTROL output … … 1627 1624 1628 1625 END MODULE control_parameters 1629 1630 1631 !------------------------------------------------------------------------------!1632 ! Description:1633 ! ------------1634 !> Definition of variables used with dvrp-software.1635 !------------------------------------------------------------------------------!1636 MODULE dvrp_variables1637 1638 USE kinds1639 1640 CHARACTER (LEN=10) :: dvrp_output = 'rtsp' !< dvr namelist parameter1641 CHARACTER (LEN=10) :: particle_color = 'none' !< dvr namelist parameter1642 CHARACTER (LEN=10) :: particle_dvrpsize = 'none' !< dvr namelist parameter1643 1644 CHARACTER (LEN=20), DIMENSION(10) :: mode_dvrp = & !< dvr namelist parameter1645 (/ ( ' ', i9 = 1,10 ) /)1646 1647 CHARACTER (LEN=80) :: dvrp_directory = 'default' !< dvr namelist parameter1648 CHARACTER (LEN=80) :: dvrp_file = 'default' !< dvr namelist parameter1649 CHARACTER (LEN=80) :: dvrp_host = 'origin.rvs.uni-hannover.de' !< dvr namelist parameter1650 CHARACTER (LEN=80) :: dvrp_password = '********' !< dvr namelist parameter1651 CHARACTER (LEN=80) :: dvrp_username = ' ' !< dvr namelist parameter1652 1653 INTEGER(iwp) :: cluster_size = 1 !< dvr namelist parameter1654 INTEGER(iwp) :: dvrp_colortable_entries = 4 !< internal dvr software variable1655 INTEGER(iwp) :: dvrp_colortable_entries_prt = 22 !< internal dvr software variable1656 INTEGER(iwp) :: islice_dvrp !< internal dvr software variable1657 INTEGER(iwp) :: nx_dvrp !< internal dvr software variable1658 INTEGER(iwp) :: nxl_dvrp !< internal dvr software variable1659 INTEGER(iwp) :: nxr_dvrp !< internal dvr software variable1660 INTEGER(iwp) :: ny_dvrp !< internal dvr software variable1661 INTEGER(iwp) :: nyn_dvrp !< internal dvr software variable1662 INTEGER(iwp) :: nys_dvrp !< internal dvr software variable1663 INTEGER(iwp) :: nz_dvrp !< internal dvr software variable1664 INTEGER(iwp) :: pathlines_fadeintime = 5 !< dvr namelist parameter1665 INTEGER(iwp) :: pathlines_fadeouttime = 5 !< dvr namelist parameter1666 INTEGER(iwp) :: pathlines_linecount = 1000 !< dvr namelist parameter1667 INTEGER(iwp) :: pathlines_maxhistory = 40 !< dvr namelist parameter1668 INTEGER(iwp) :: pathlines_wavecount = 10 !< dvr namelist parameter1669 INTEGER(iwp) :: pathlines_wavetime = 50 !< dvr namelist parameter1670 INTEGER(iwp) :: vc_gradient_normals = 0 !< dvr namelist parameter1671 INTEGER(iwp) :: vc_mode = 0 !< dvr namelist parameter1672 INTEGER(iwp) :: vc_size_x = 2 !< dvr namelist parameter1673 INTEGER(iwp) :: vc_size_y = 2 !< dvr namelist parameter1674 INTEGER(iwp) :: vc_size_z = 2 !< dvr namelist parameter1675 1676 INTEGER(iwp), DIMENSION(10) :: slicer_position_dvrp !< internal dvr software variable1677 1678 LOGICAL :: cyclic_dvrp = .FALSE. !< internal dvr software variable1679 LOGICAL :: dvrp_overlap !< internal dvr software variable1680 LOGICAL :: dvrp_total_overlap !< internal dvr software variable1681 LOGICAL :: local_dvrserver_running !< namelist parameter (ENVPAR namelist provided by palmrun)1682 LOGICAL :: lock_steering_update = .FALSE. !< internal dvr software variable1683 LOGICAL :: use_seperate_pe_for_dvrp_output = .FALSE. !< internal dvr software variable1684 1685 REAL(wp) :: clip_dvrp_l = 9999999.9_wp !< dvr namelist parameter1686 REAL(wp) :: clip_dvrp_n = 9999999.9_wp !< dvr namelist parameter1687 REAL(wp) :: clip_dvrp_r = 9999999.9_wp !< dvr namelist parameter1688 REAL(wp) :: clip_dvrp_s = 9999999.9_wp !< dvr namelist parameter1689 REAL(wp) :: superelevation = 1.0_wp !< dvr namelist parameter1690 REAL(wp) :: superelevation_x = 1.0_wp !< dvr namelist parameter1691 REAL(wp) :: superelevation_y = 1.0_wp !< dvr namelist parameter1692 REAL(wp) :: vc_alpha = 38.0_wp !< dvr namelist parameter1693 1694 REAL(wp), DIMENSION(2) :: color_interval = (/ 0.0_wp, 1.0_wp /) !< dvr namelist parameter1695 REAL(wp), DIMENSION(2) :: dvrpsize_interval = (/ 0.0_wp, 1.0_wp /) !< dvr namelist parameter1696 1697 REAL(wp), DIMENSION(3) :: groundplate_color = (/ 0.0_wp, 0.6_wp, 0.0_wp /) !< dvr namelist parameter1698 REAL(wp), DIMENSION(3) :: topography_color = (/ 0.8_wp, 0.7_wp, 0.6_wp /) !< dvr namelist parameter1699 1700 REAL(wp), DIMENSION(2,10) :: slicer_range_limits_dvrp !< dvr namelist parameter1701 1702 REAL(wp), DIMENSION(3,10) :: isosurface_color !< dvr namelist parameter1703 1704 REAL(sp), DIMENSION(2,100) :: interval_values_dvrp !< internal dvr software variable1705 REAL(sp), DIMENSION(2,100) :: interval_values_dvrp_prt !< internal dvr software variable1706 REAL(sp), DIMENSION(2,100) :: interval_h_dvrp !< internal dvr software variable1707 REAL(sp), DIMENSION(2,100) :: interval_h_dvrp_prt !< internal dvr software variable1708 REAL(sp), DIMENSION(2,100) :: interval_l_dvrp = 0.5_sp !< internal dvr software variable1709 REAL(sp), DIMENSION(2,100) :: interval_l_dvrp_prt = 0.5_sp !< internal dvr software variable1710 REAL(sp), DIMENSION(2,100) :: interval_s_dvrp = 1.0_sp !< internal dvr software variable1711 REAL(sp), DIMENSION(2,100) :: interval_s_dvrp_prt = 1.0_sp !< internal dvr software variable1712 REAL(sp), DIMENSION(2,100) :: interval_a_dvrp = 0.0_sp !< internal dvr software variable1713 REAL(sp), DIMENSION(2,100) :: interval_a_dvrp_prt = 0.0_sp !< internal dvr software variable1714 1715 DATA slicer_range_limits_dvrp / -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, & !< internal dvr software variable1716 -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, &1717 -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, -1.0_wp, 1.0_wp, &1718 -1.0_wp, 1.0_wp /1719 1720 DATA isosurface_color / 0.9_wp, 0.9_wp, 0.9_wp, 0.8_wp, 0.1_wp, 0.1_wp, 0.1_wp, 0.1_wp, 0.8_wp, & !< internal dvr software variable1721 0.1_wp, 0.8_wp, 0.1_wp, 0.6_wp, 0.1_wp, 0.1_wp, 0.1_wp, 0.1_wp, 0.6_wp, &1722 0.1_wp, 0.6_wp, 0.1_wp, 0.4_wp, 0.1_wp, 0.1_wp, 0.1_wp, 0.1_wp, 0.4_wp, &1723 0.1_wp, 0.4_wp, 0.1_wp /1724 1725 DATA interval_h_dvrp / 270.0_wp, 225.0_wp, 225.0_wp, 180.0_wp, 70.0_wp, 25.0_wp, & !< internal dvr software variable1726 25.0_wp, -25.0_wp, 192 * 0.0_wp /1727 1728 DATA interval_h_dvrp_prt / 270.0_wp, 225.0_wp, 225.0_wp, 180.0_wp, 70.0_wp, 25.0_wp, & !< internal dvr software variable1729 25.0_wp, -25.0_wp, 192 * 0.0_wp /1730 1731 REAL(sp), DIMENSION(:), ALLOCATABLE :: xcoor_dvrp !< internal dvr software variable1732 REAL(sp), DIMENSION(:), ALLOCATABLE :: ycoor_dvrp !< internal dvr software variable1733 REAL(sp), DIMENSION(:), ALLOCATABLE :: zcoor_dvrp !< internal dvr software variable1734 1735 TYPE steering1736 CHARACTER (LEN=24) :: name !< internal dvr software variable1737 REAL(sp) :: min !< internal dvr software variable1738 REAL(sp) :: max !< internal dvr software variable1739 INTEGER(iwp) :: imin !< internal dvr software variable1740 INTEGER(iwp) :: imax !< internal dvr software variable1741 END TYPE steering1742 1743 TYPE(steering), DIMENSION(:), ALLOCATABLE :: steering_dvrp !< internal dvr software variable1744 1745 SAVE1746 1747 END MODULE dvrp_variables1748 1626 1749 1627
Note: See TracChangeset
for help on using the changeset viewer.