Changeset 2118 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Jan 17, 2017 4:38:49 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r2108 r2118 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! -acc_rank, background_communication, i_left, i_right, j_south, j_north, 23 ! num_acc_per_node, on_device 23 24 ! 24 25 ! Former revisions: … … 1142 1143 LOGICAL :: nudging = .FALSE. !< 1143 1144 LOGICAL :: ocean = .FALSE. !< 1144 LOGICAL :: on_device = .FALSE. !<1145 1145 LOGICAL :: outflow_l = .FALSE. !< 1146 1146 LOGICAL :: outflow_n = .FALSE. !< … … 1557 1557 USE kinds 1558 1558 1559 INTEGER(iwp) :: i_left !<1560 INTEGER(iwp) :: i_right !<1561 INTEGER(iwp) :: j_north !<1562 INTEGER(iwp) :: j_south !<1563 1559 INTEGER(iwp) :: nbgp = 3 !< 1564 1560 INTEGER(iwp) :: ngp_sums !< … … 1801 1797 CHARACTER(LEN=7) :: myid_char = '' 1802 1798 1803 INTEGER(iwp) :: acc_rank !<1804 1799 INTEGER(iwp) :: comm1dx !< 1805 1800 INTEGER(iwp) :: comm1dy !< … … 1824 1819 INTEGER(iwp) :: numprocs = 1 !< 1825 1820 INTEGER(iwp) :: numprocs_previous_run = -1 !< 1826 INTEGER(iwp) :: num_acc_per_node = 0 !<1827 1821 INTEGER(iwp) :: pleft !< 1828 1822 INTEGER(iwp) :: pnorth !< … … 1848 1842 INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE :: hor_index_bounds_previous_run !< 1849 1843 1850 LOGICAL :: background_communication =.FALSE. !<1851 1844 LOGICAL :: collective_wait = .FALSE. !< 1852 1845 LOGICAL :: sendrecv_in_background = .FALSE. !<
Note: See TracChangeset
for help on using the changeset viewer.