Ignore:
Timestamp:
Apr 12, 2013 6:19:32 AM (9 years ago)
Author:
raasch
Message:

asynchronous transfer of ghost point data for acc-optimized version

File:
1 edited

Legend:

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

    r1116 r1128  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! +background_communication, i_left, i_right, j_north, j_south, req, req_count,
     23! send_receive, sendrecv_in_background, wait_stat
    2324!
    2425! Former revisions:
     
    10711072!------------------------------------------------------------------------------!
    10721073
    1073     INTEGER ::  nbgp = 3, ngp_sums, nnx, nx = 0, nx_a, nx_o, nxl, nxlg,   &
    1074                 nxlu, nxr, nxrg, nx_on_file, nny, ny = 0, ny_a, ny_o,    &
    1075                 nyn, nyng, nys, nysg, nysv, ny_on_file, nnz, nz = 0,&
    1076                 nzb, nzb_diff, nzb_max, nzt, nzt_diff
     1074    INTEGER ::  i_left, i_right, j_north, j_south, nbgp = 3, ngp_sums, nnx,    &
     1075                nx = 0, nx_a, nx_o, nxl, nxlg, nxlu, nxr, nxrg, nx_on_file,    &
     1076                nny, ny = 0, ny_a, ny_o, nyn, nyng, nys, nysg, nysv,           &
     1077                ny_on_file, nnz, nz = 0, nzb, nzb_diff, nzb_max, nzt, nzt_diff
    10771078
    10781079
     
    14711472#endif
    14721473#endif
     1474    CHARACTER(LEN=2) ::  send_receive = 'al'
    14731475    CHARACTER(LEN=5) ::  myid_char = ''
    14741476    INTEGER          ::  acc_rank, id_inflow = 0, id_recycling = 0,      &
    1475                          myid = 0, num_acc_per_node = 0,                 &
     1477                         myid = 0, num_acc_per_node = 0, req_count = 0,  &
    14761478                         target_id, npex = -1, npey = -1, numprocs = 1,  &
    14771479                         numprocs_previous_run = -1,                     &
    14781480                         tasks_per_node = -9999, threads_per_task = 1
    14791481
    1480     INTEGER          ::  pdims(2) = 1
     1482    INTEGER          ::  pdims(2) = 1, req(100)
    14811483
    14821484    INTEGER, DIMENSION(:,:), ALLOCATABLE ::  hor_index_bounds, &
    14831485                                             hor_index_bounds_previous_run
    14841486
    1485     LOGICAL ::  collective_wait = .FALSE.
     1487    LOGICAL ::  background_communication =.FALSE., collective_wait = .FALSE., &
     1488                sendrecv_in_background = .FALSE.
    14861489
    14871490#if defined( __parallel )
     
    15001503#if ! defined ( __check )
    15011504    INTEGER ::  status(MPI_STATUS_SIZE)
     1505    INTEGER, DIMENSION(MPI_STATUS_SIZE,100) ::  wait_stat
    15021506#endif
    15031507
Note: See TracChangeset for help on using the changeset viewer.