Changeset 1797 for palm/trunk/SOURCE/pmc_client.f90

Timestamp:

Mar 21, 2016 4:50:28 PM (8 years ago)

Author:

raasch

Message:

Introduction of different data transfer modes; restart mechanism adjusted for nested runs; parameter consistency checks for nested runs; further formatting cleanup

File:

• palm/trunk/SOURCE/pmc_client.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_client.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! introduction of different datatransfer modes
 !
 ! Former revisions:
@@ -401 +401 @@
        do i=1,me%inter_npes
           aPE => me%PEs(i)
-          ar  => aPE%array_list(next_array_in_list)    !actual array is last array in list
+          ar  => aPE%array_list(next_array_in_list)
           ar%NrDims    = NrDims
           ar%A_dim     = dims
@@ -575 +575 @@
       INTEGER(kind=MPI_ADDRESS_KIND)    ::  target_disp
 
-      t1 = PMC_Time()
-      CALL MPI_Barrier(me%intra_comm, ierr)                         ! Wait for server to fill buffer
-      t2 = PMC_Time()-t1
-      if(present(WaitTime)) WaitTime = t2
+!
+!--   Synchronization of the model is done in pmci_client_synchronize and pmci_server_synchronize
+!--   Therefor the RMA window can be filled without sychronization at this point and a barrier
+!--   is not necessary
+!--   Please note that WaitTime has to be set in PMC_S_FillBuffer AND PMC_C_GetBuffer
+      if(present(WaitTime))  then
+         t1 = PMC_Time()
+         CALL MPI_Barrier(me%intra_comm, ierr)
+         t2 = PMC_Time()
+         WaitTime = t2-t1
+      end if
 
       CALL MPI_Barrier(me%intra_comm, ierr)                         ! Wait for buffer is filled