Ignore:
Timestamp:
Apr 7, 2016 2:23:03 PM (5 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_client.f90

    r1818 r1833  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! gfortran requires pointer attributes for some array declarations,
     23! long line wrapped
    2324!
    2425! Former revisions:
     
    354355       IMPLICIT none
    355356
    356        REAL(wp), INTENT(IN) ,DIMENSION(:,:) ::  array
     357       REAL(wp), INTENT(IN) ,DIMENSION(:,:), POINTER ::  array
    357358
    358359       INTEGER                              :: NrDims
     
    387388       IMPLICIT none
    388389
    389        REAL(wp),INTENT(IN),DIMENSION(:,:,:) ::  array
     390       REAL(wp),INTENT(IN),DIMENSION(:,:,:), POINTER ::  array
    390391
    391392       INTEGER                              ::  NrDims
     
    551552              ar%SendBuf = c_loc(base_array_cs(ar%SendIndex))
    552553              if(ar%SendIndex+ar%SendSize > bufsize) then
    553                  write(0,'(a,i4,4i7,1x,a)') 'Client Buffer too small ',i,ar%SendIndex,ar%SendSize,ar%SendIndex+ar%SendSize,bufsize,trim(ar%name)
     554                 write(0,'(a,i4,4i7,1x,a)') 'Client Buffer too small ',i,      &
     555                     ar%SendIndex,ar%SendSize,ar%SendIndex+ar%SendSize,bufsize,trim(ar%name)
    554556                 CALL MPI_Abort (MPI_COMM_WORLD, istat, ierr)
    555557              end if
Note: See TracChangeset for help on using the changeset viewer.