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

Timestamp:

Apr 7, 2016 2:23:03 PM (8 years ago)

Author:

raasch

Message:

spectrum renamed spactra_par and further modularized, POINTER-attributes added in coupler-routines to avoid gfortran error messages

File:

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

palm/trunk/SOURCE/pmc_server.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! gfortran requires pointer attributes for some array declarations,
+! long line wrapped
 !
 ! Former revisions:
@@ -277 +278 @@
         IMPLICIT none
 
-        INTEGER,INTENT(IN)                         :: ClientId
-        REAL(wp), INTENT(IN), DIMENSION(:,:)           ::  array
-        REAL(wp), INTENT(IN), DIMENSION(:,:), OPTIONAL ::  array_2
+        INTEGER,INTENT(IN) ::  ClientId
+
+        REAL(wp), INTENT(IN), DIMENSION(:,:), POINTER           ::  array
+        REAL(wp), INTENT(IN), DIMENSION(:,:), POINTER, OPTIONAL ::  array_2
 
         INTEGER                           :: NrDims
@@ -307 +309 @@
         IMPLICIT none
 
-        INTEGER,INTENT(IN)                         :: ClientId
-        REAL(wp), INTENT(IN), DIMENSION(:,:,:)           ::  array
-        REAL(wp), INTENT(IN), DIMENSION(:,:,:), OPTIONAL ::  array_2
+        INTEGER,INTENT(IN) ::  ClientId
+
+        REAL(wp), INTENT(IN), DIMENSION(:,:,:), POINTER           ::  array
+        REAL(wp), INTENT(IN), DIMENSION(:,:,:), POINTER, OPTIONAL ::  array_2
         INTEGER,INTENT(IN)                         :: nz_cl
         INTEGER,INTENT(IN)                         :: nz
@@ -433 +436 @@
             ar%SendBuf = c_loc(base_array_sc(ar%SendIndex))
             if(ar%SendIndex+ar%SendSize > bufsize) then
-               write(0,'(a,i4,4i7,1x,a)') 'Server Buffer too small ',i,ar%SendIndex,ar%SendSize,ar%SendIndex+ar%SendSize,bufsize,trim(ar%name)
+               write(0,'(a,i4,4i7,1x,a)') 'Server Buffer too small ',i,        &
+                  ar%SendIndex,ar%SendSize,ar%SendIndex+ar%SendSize,bufsize,trim(ar%name)
                CALL MPI_Abort (MPI_COMM_WORLD, istat, ierr)
             end if