Ignore:
Timestamp:
Feb 2, 2013 11:24:22 AM (11 years ago)
Author:
raasch
Message:

unused variables remove from several routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    107107!-- Local variables
    108108    CHARACTER (LEN=9) ::  time_to_string
    109     CHARACTER (LEN=1) ::  cdum
    110     INTEGER           ::  i, run_description_header_i(80)
     109    INTEGER           ::  i
    111110#if defined( __openacc )
    112111    REAL, DIMENSION(100) ::  acc_dum
     
    134133!-- Get the number of accelerator boards per node and assign the MPI processes
    135134!-- to these boards
     135    PRINT*, '*** ACC_DEVICE_NVIDIA = ', ACC_DEVICE_NVIDIA
    136136    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
    137139    acc_rank = MOD( myid, num_acc_per_node )
     140!    STOP '****'
    138141    CALL ACC_SET_DEVICE_NUM ( acc_rank, ACC_DEVICE_NVIDIA )
    139142!
     
    144147                                      ACC_GET_DEVICE_NUM( ACC_DEVICE_NVIDIA )
    145148#endif
     149
    146150!
    147151!-- Ensure that OpenACC first attaches the GPU devices by copying a dummy data
Note: See TracChangeset for help on using the changeset viewer.