Ignore:
Timestamp:
Jun 29, 2017 1:31:14 PM (4 years ago)
Author:
raasch
Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:
1 edited

Legend:

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

    r2274 r2300  
    2525! -----------------
    2626! $Id$
     27! NEC related code partly removed, host replaced by loop_optimization
     28!
     29! 2274 2017-06-09 13:27:48Z Giersch
    2730! Changed error messages
    2831!
     
    15381541       INTEGER(iwp) ::  k     !<
    15391542       INTEGER(iwp) ::  siza  !<
     1543       INTEGER(iwp) ::  sizw  !< required on NEC only
    15401544
    15411545       REAL(wp), DIMENSION(0:nx,nz)       ::  ar     !<
     
    15431547       REAL(wp), DIMENSION(6*(nx+4),nz+1) ::  work1  !<
    15441548       
    1545 #if defined( __nec )
    1546        INTEGER(iwp) ::  sizw  !<
    1547        
    1548        COMPLEX(wp), DIMENSION((nx+4)/2+1,nz+1) ::  work  !<
    1549 #endif
     1549       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work  !< required on NEC only
    15501550
    15511551       IF ( fft_method == 'temperton-algorithm' )  THEN
     
    15911591
    15921592#if defined( __nec )
     1593          ALLOCATE( work((nx+4)/2+1,nz+1) )
    15931594          siza = SIZE( ai, 1 )
    15941595          sizw = SIZE( work, 1 )
     
    16451646          ENDIF
    16461647
     1648          DEALLOCATE( work )
    16471649#else
    16481650          message_string = 'no system-specific fft-call available'
     
    16801682       INTEGER(iwp) ::  ny1   !<
    16811683       INTEGER(iwp) ::  siza  !<
     1684       INTEGER(iwp) ::  sizw  !< required on NEC only
    16821685
    16831686       REAL(wp), DIMENSION(0:ny1,nz)      ::  ar     !<
     
    16851688       REAL(wp), DIMENSION(6*(ny+4),nz+1) ::  work1  !<
    16861689       
    1687 #if defined( __nec )
    1688        INTEGER(iwp) ::  sizw  !<
    1689        
    1690        COMPLEX(wp), DIMENSION((ny+4)/2+1,nz+1) ::  work !<
    1691 #endif
     1690       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work !< required on NEC only
     1691
    16921692
    16931693       IF ( fft_method == 'temperton-algorithm' )  THEN
     
    17331733
    17341734#if defined( __nec )
     1735          ALLOCATE( work((ny+4)/2+1,nz+1) )
    17351736          siza = SIZE( ai, 1 )
    17361737          sizw = SIZE( work, 1 )
     
    17871788          ENDIF
    17881789
     1790          DEALLOCATE( work )
    17891791#else
    17901792          message_string = 'no system-specific fft-call available'
Note: See TracChangeset for help on using the changeset viewer.