Changeset 1764 for palm/trunk/SOURCE/pmc_server.f90

Timestamp:

Feb 28, 2016 12:45:19 PM (8 years ago)

Author:

raasch

Message:

update of the nested domain system + some bugfixes

File:

• palm/trunk/SOURCE/pmc_server.f90 (modified) (9 diffs)

palm/trunk/SOURCE/pmc_server.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! cpp-statement added (nesting can only be used in parallel mode)
 !
 ! Former revisions:
@@ -35 +35 @@
 !------------------------------------------------------------------------------!
 
+#if defined( __parallel )
    use, intrinsic :: iso_c_binding
 
-   USE  mpi
-   USE  kinds,                     ONLY: wp, iwp
+#if defined( __lc )
+    USE MPI
+#else
+    INCLUDE "mpif.h"
+#endif
+   USE  kinds
    USE  PMC_general,               ONLY: ClientDef, PMC_MAX_MODELL,PMC_sort, DA_NameDef, DA_Desclen, DA_Namelen,       &
                                          PMC_G_SetName, PMC_G_GetName, PeDef, ArrayDef
@@ -60 +65 @@
    PUBLIC PMC_Server_for_Client
 
-   INTEGER, PARAMETER :: dp = wp
+!-- TO_DO: what is the meaning of this? Could variables declared in this module
+!--        also have single precision?
+!   INTEGER, PARAMETER :: dp = wp
 
    ! INTERFACE section
@@ -225 +232 @@
         IMPLICIT none
         INTEGER,INTENT(IN)                         :: ClientId
+!--   TO_DO: has array always to be of dp-kind, or can wp used here
+!--          this effects all respective declarations in this file
         REAL(kind=dp),INTENT(IN),DIMENSION(:,:)    :: array
         !-- local variables
@@ -282 +291 @@
       INTEGER                                 :: arlen, myIndex, tag
       INTEGER                                 :: rCount                    ! count MPI requests
-      INTEGER(kind=8)                         :: bufsize                   ! Size of MPI data Window
+      INTEGER(idp)                            :: bufsize                   ! Size of MPI data Window
       TYPE(PeDef),POINTER                     :: aPE
       TYPE(ArrayDef),POINTER                  :: ar
@@ -347 +356 @@
          do while (PMC_S_GetNextArray ( ClientId, myName,i))
             ar  => aPE%Arrays
+!--         TO_DO:  Adressrechnung ueberlegen?
             ar%SendBuf = c_loc(base_array(ar%BufIndex))                         !kk Adressrechnung ueberlegen
             if(ar%BufIndex+ar%BufSize > bufsize) then
+!--            TO_DO: can this error really happen, and what can be the reason?
                write(0,'(a,i4,4i7,1x,a)') 'Buffer too small ',i,ar%BufIndex,ar%BufSize,ar%BufIndex+ar%BufSize,bufsize,trim(myName)
                CALL MPI_Abort (MPI_COMM_WORLD, istat, ierr)
@@ -402 +413 @@
                end do
             else
+!--            TO_DO: can this error really happen, and what can be the reason?
                write(0,*) "Illegal Order of Dimension ",ar%dim_order
                CALL MPI_Abort (MPI_COMM_WORLD, istat, ierr);
@@ -458 +470 @@
                end do
             else
+!--            TO_DO: can this error really happen, and what can be the reason?
                write(0,*) "Illegal Order of Dimension ",ar%dim_order
                CALL MPI_Abort (MPI_COMM_WORLD, istat, ierr);
@@ -624 +637 @@
     END SUBROUTINE Set_PE_index_list
 
+#endif
 END MODULE pmc_server