Changeset 1764 for palm/trunk/SOURCE/pmc_mpi_wrapper.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_mpi_wrapper.f90 (modified) (6 diffs)

palm/trunk/SOURCE/pmc_mpi_wrapper.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! cpp-statement added (nesting can only be used in parallel mode),
+! kind-parameters adjusted to PALM-kinds
 !
 ! Former revisions:
@@ -35 +36 @@
 !------------------------------------------------------------------------------!
 
+#if defined( __parallel )
    use, intrinsic :: iso_c_binding
 
-   USE  mpi
-   USE  kinds,         ONLY: wp
+#if defined( __lc )
+    USE MPI
+#else
+    INCLUDE "mpif.h"
+#endif
+   USE  kinds
    USE  PMC_handle_communicator, ONLY: m_to_server_comm, m_to_client_comm, m_model_comm, m_model_rank
    IMPLICIT none
@@ -44 +50 @@
    SAVE
 
-   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
 
 
@@ -149 +157 @@
    SUBROUTINE  PMC_Send_to_Server_real_r1 (buf, n, Server_rank, tag, ierr)
       IMPLICIT     none
+!--   TO_DO: has buf always to be of dp-kind, or can wp used here
+!--          this effects all respective declarations in this file
       REAL(kind=dp), DIMENSION(:), INTENT(IN)   :: buf
       INTEGER, INTENT(IN)                       :: n
@@ -485 +495 @@
       IMPLICIT     none
       REAL(kind=wp),DIMENSION(:),POINTER,INTENT(INOUT) :: array
-      INTEGER(kind=8),INTENT(IN)                       :: idim1
+      INTEGER(idp),INTENT(IN)                          :: idim1
       Type(c_ptr),INTENT(OUT),optional                 :: base_ptr
 
@@ -516 +526 @@
     END FUNCTION PMC_TIME
 
+#endif
  END MODULE pmc_mpi_wrapper