Changeset 1786 for palm/trunk/SOURCE/pmc_general.f90

Timestamp:

Mar 8, 2016 5:49:27 AM (9 years ago)

Author:

raasch

Message:

pmc-change in server-client get-put, spectra-directives removed, spectra-package modularized

File:

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

palm/trunk/SOURCE/pmc_general.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! change in client-server data transfer: server now gets data from client
+! instead that client put's it to the server
 !
 ! Former revisions:
@@ -82 +83 @@
       TYPE(c_ptr)                   :: data                        ! Pointer of data in server space
       TYPE(c_ptr), DIMENSION(2)     :: po_data                     ! Base Pointers, PMC_S_Set_Active_data_array sets active pointer
-      INTEGER(idp)                  :: BufIndex                    ! index in Send Buffer
-      INTEGER                       :: BufSize                     ! size in Send Buffer
+      INTEGER(idp)                  :: SendIndex                   ! index in Send Buffer
+      INTEGER(idp)                  :: RecvIndex                   ! index in Receive Buffer
+      INTEGER                       :: SendSize                    ! size in Send Buffer
+      INTEGER                       :: RecvSize                    ! size in Receiver Buffer
       TYPE (c_ptr)                  :: SendBuf                     ! Pointer of Data in Send buffer
+      TYPE (c_ptr)                  :: RecvBuf                     ! Pointer of Data in ReceiveS buffer
       CHARACTER(len=8)              :: Name                        ! Name of Array
 
@@ -108 +112 @@
       INTEGER                       :: inter_npes                  ! Number of PEs client model
       INTEGER                       :: intra_rank                  ! rank within intra_comm
-      INTEGER                       :: BufWin                      ! MPI RMA windows
+      INTEGER                       :: win_server_client           ! MPI RMA for preparing data on server AND client side
       TYPE (PeDef), DIMENSION(:), POINTER      :: PEs              ! List of all Client PEs
    END TYPE ClientDef