Changeset 1128 for palm/trunk/SOURCE/modules.f90

Timestamp:

Apr 12, 2013 6:19:32 AM (11 years ago)

Author:

raasch

Message:

asynchronous transfer of ghost point data for acc-optimized version

File:

• palm/trunk/SOURCE/modules.f90 (modified) (4 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! +background_communication, i_left, i_right, j_north, j_south, req, req_count,
+! send_receive, sendrecv_in_background, wait_stat
 !
 ! Former revisions:
@@ -1071 +1072 @@
 !------------------------------------------------------------------------------!
 
-    INTEGER ::  nbgp = 3, ngp_sums, nnx, nx = 0, nx_a, nx_o, nxl, nxlg,   &
-                nxlu, nxr, nxrg, nx_on_file, nny, ny = 0, ny_a, ny_o,    &
-                nyn, nyng, nys, nysg, nysv, ny_on_file, nnz, nz = 0,&
-                nzb, nzb_diff, nzb_max, nzt, nzt_diff
+    INTEGER ::  i_left, i_right, j_north, j_south, nbgp = 3, ngp_sums, nnx,    &
+                nx = 0, nx_a, nx_o, nxl, nxlg, nxlu, nxr, nxrg, nx_on_file,    &
+                nny, ny = 0, ny_a, ny_o, nyn, nyng, nys, nysg, nysv,           &
+                ny_on_file, nnz, nz = 0, nzb, nzb_diff, nzb_max, nzt, nzt_diff
 
 
@@ -1471 +1472 @@
 #endif
 #endif
+    CHARACTER(LEN=2) ::  send_receive = 'al'
     CHARACTER(LEN=5) ::  myid_char = ''
     INTEGER          ::  acc_rank, id_inflow = 0, id_recycling = 0,      &
-                         myid = 0, num_acc_per_node = 0,                 &
+                         myid = 0, num_acc_per_node = 0, req_count = 0,  &
                          target_id, npex = -1, npey = -1, numprocs = 1,  &
                          numprocs_previous_run = -1,                     &
                          tasks_per_node = -9999, threads_per_task = 1
 
-    INTEGER          ::  pdims(2) = 1
+    INTEGER          ::  pdims(2) = 1, req(100)
 
     INTEGER, DIMENSION(:,:), ALLOCATABLE ::  hor_index_bounds, &
                                              hor_index_bounds_previous_run
 
-    LOGICAL ::  collective_wait = .FALSE.
+    LOGICAL ::  background_communication =.FALSE., collective_wait = .FALSE., &
+                sendrecv_in_background = .FALSE.
 
 #if defined( __parallel )
@@ -1500 +1503 @@
 #if ! defined ( __check )
     INTEGER ::  status(MPI_STATUS_SIZE)
+    INTEGER, DIMENSION(MPI_STATUS_SIZE,100) ::  wait_stat
 #endif