Changeset 1092 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Feb 2, 2013 11:24:22 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r1037 r1092 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! unused variables removed 23 23 ! 24 24 ! Former revisions: … … 107 107 !-- Local variables 108 108 CHARACTER (LEN=9) :: time_to_string 109 CHARACTER (LEN=1) :: cdum 110 INTEGER :: i, run_description_header_i(80) 109 INTEGER :: i 111 110 #if defined( __openacc ) 112 111 REAL, DIMENSION(100) :: acc_dum … … 134 133 !-- Get the number of accelerator boards per node and assign the MPI processes 135 134 !-- to these boards 135 PRINT*, '*** ACC_DEVICE_NVIDIA = ', ACC_DEVICE_NVIDIA 136 136 num_acc_per_node = ACC_GET_NUM_DEVICES( ACC_DEVICE_NVIDIA ) 137 IF ( numprocs == 1 .AND. num_acc_per_node > 0 ) num_acc_per_node = 1 138 PRINT*, '*** myid = ', myid, ' num_acc_per_node = ', num_acc_per_node 137 139 acc_rank = MOD( myid, num_acc_per_node ) 140 ! STOP '****' 138 141 CALL ACC_SET_DEVICE_NUM ( acc_rank, ACC_DEVICE_NVIDIA ) 139 142 ! … … 144 147 ACC_GET_DEVICE_NUM( ACC_DEVICE_NVIDIA ) 145 148 #endif 149 146 150 ! 147 151 !-- Ensure that OpenACC first attaches the GPU devices by copying a dummy data
Note: See TracChangeset
for help on using the changeset viewer.