Changeset 1797 for palm/trunk/SOURCE/pmc_server.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_server.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_server.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! introduction of different datatransfer modes
 !
 ! Former revisions:
@@ -498 +498 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  data_3d
 
-      t1 = PMC_Time()
-      CALL MPI_Barrier(Clients(ClientId)%intra_comm, ierr)              ! Wait for buffer empty
-      t2 = PMC_Time()
-      if(present(WaitTime)) WaitTime = t2-t1
+!--   Synchronization of the model is done in pmci_client_synchronize and pmci_server_synchronize
+!--   Therefor the RMA window cann be filled without sychronization at this point and the 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(Clients(ClientId)%intra_comm, ierr)
+        t2 = PMC_Time()
+        WaitTime = t2-t1
+      end if
 
       do ip=1,Clients(ClientId)%inter_npes