Ignore:
Timestamp:
Jan 10, 2020 2:00:44 PM (18 months ago)
Author:
raasch
Message:

bugfixes for previous commit: unused variables removed, Temperton-fft usage on GPU, openacc porting of vector version of Obukhov length calculation, collective read switched off on NEC to avoid hanging; some vector directives added in prognostic equations to force vectorization on Intel19 compiler, configuration files for NEC Aurora added

File:
1 edited

Legend:

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

    r4366 r4370  
    99! -----------------
    1010! $Id$
     11! unused variables removed
     12!
     13! 4366 2020-01-09 08:12:43Z raasch
    1114! vectorized routines added
    1215!
     
    22452248    INTEGER(iwp) ::  j      !<
    22462249    INTEGER(iwp) ::  jbase  !<
    2247     INTEGER(iwp) ::  jj     !<
    22482250    INTEGER(iwp) ::  k      !<
    22492251    INTEGER(iwp) ::  la     !<
    2250     INTEGER(iwp) ::  nb     !<
    2251     INTEGER(iwp) ::  nblox  !<
    22522252    INTEGER(iwp) ::  nfax   !<
    22532253    INTEGER(iwp) ::  nvex   !<
    22542254    INTEGER(iwp) ::  nx     !<
    2255     INTEGER(iwp) ::  mm     !<
    22562255
    22572256
     
    22642263    nx   = n + 1
    22652264    IF ( MOD(n,2) == 1 )  nx = n
    2266     nblox = 1
    22672265    nvex = 1
    22682266
Note: See TracChangeset for help on using the changeset viewer.