Ignore:
Timestamp:
Mar 21, 2016 4:50:28 PM (6 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:
1 edited

Legend:

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

    r1792 r1797  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! introduction of different datatransfer modes
    2323!
    2424! Former revisions:
     
    401401       do i=1,me%inter_npes
    402402          aPE => me%PEs(i)
    403           ar  => aPE%array_list(next_array_in_list)    !actual array is last array in list
     403          ar  => aPE%array_list(next_array_in_list)
    404404          ar%NrDims    = NrDims
    405405          ar%A_dim     = dims
     
    575575      INTEGER(kind=MPI_ADDRESS_KIND)    ::  target_disp
    576576
    577       t1 = PMC_Time()
    578       CALL MPI_Barrier(me%intra_comm, ierr)                         ! Wait for server to fill buffer
    579       t2 = PMC_Time()-t1
    580       if(present(WaitTime)) WaitTime = t2
     577!
     578!--   Synchronization of the model is done in pmci_client_synchronize and pmci_server_synchronize
     579!--   Therefor the RMA window can be filled without sychronization at this point and a barrier
     580!--   is not necessary
     581!--   Please note that WaitTime has to be set in PMC_S_FillBuffer AND PMC_C_GetBuffer
     582      if(present(WaitTime))  then
     583         t1 = PMC_Time()
     584         CALL MPI_Barrier(me%intra_comm, ierr)
     585         t2 = PMC_Time()
     586         WaitTime = t2-t1
     587      end if
    581588
    582589      CALL MPI_Barrier(me%intra_comm, ierr)                         ! Wait for buffer is filled
Note: See TracChangeset for help on using the changeset viewer.