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

palm/trunk/SOURCE/pmc_client.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! cpp-statement added (nesting can only be used in parallel mode),
+! all kinds given in PALM style
 !
 ! Former revisions:
@@ -35 +36 @@
 !------------------------------------------------------------------------------!
 
+#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, DA_NameDef, DA_Namelen, PMC_STATUS_OK, PMC_DA_NAME_ERR, PeDef, ArrayDef, &
                                          DA_Desclen, DA_Namelen, PMC_G_SetName, PMC_G_GetName
@@ -51 +57 @@
 !   data local to this MODULE
     Type(ClientDef)                       :: me
-    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
 
     INTEGER, save                         :: myIndex = 0                !Counter and unique number for Data Arrays
@@ -310 +318 @@
     SUBROUTINE PMC_C_Set_DataArray_2d (array)
        IMPLICIT none
+!--    TO_DO: is double precision absolutely required here?
        REAL(kind=dp),INTENT(IN),DIMENSION(:,:)    :: array
        !-- local variables
@@ -344 +353 @@
     SUBROUTINE PMC_C_Set_DataArray_3d (array)
        IMPLICIT none
+!--    TO_DO: is double precision absolutely required here?
        REAL(kind=dp),INTENT(IN),DIMENSION(:,:,:)  :: array
        !-- local variables
@@ -377 +387 @@
 
    SUBROUTINE PMC_C_setInd_and_AllocMem
+
       IMPLICIT none
 
       INTEGER                                 :: i, ierr
       INTEGER                                 :: arlen, myIndex, tag
-      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
@@ -574 +585 @@
     END SUBROUTINE PMC_C_PutBuffer
 
-
-! Private SUBROUTINEs
-
+#endif
 END MODULE pmc_client