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

Timestamp:

Feb 29, 2016 8:37:15 AM (8 years ago)

Author:

raasch

Message:

pmc now runs with pointer version too

File:

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

palm/trunk/SOURCE/pmc_general.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! +po_data in type arraydef
 !
 ! Former revisions:
@@ -75 +75 @@
       INTEGER,DIMENSION(4)          :: A_dim                       ! Size of dimensions
       INTEGER                       :: dim_order                   ! Order of Dimensions: 2 = 2D array, 33 = 3D array
-      TYPE (c_ptr)                  :: data                        ! Pointer of data in server space
+      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