Changeset 4180 for palm/trunk/SOURCE/fft_xy_mod.f90

Timestamp:

Aug 21, 2019 2:37:54 PM (5 years ago)

Author:

scharf

Message:

removed comments in 'Former revisions' section that are older than 01.01.2019

File:

• palm/trunk/SOURCE/fft_xy_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/fft_xy_mod.f90

@@ -30 +30 @@
 ! OpenACC port for SPEC
 ! 
-! 3241 2018-09-12 15:02:00Z raasch
-! preprocessor switches for variables that are required on NEC only
-! 
-! 3045 2018-05-28 07:55:41Z Giersch
-! Error messages revised
-! 
-! 2718 2018-01-02 08:49:38Z maronga
-! Corrected "Former revisions" section
-! 
-! 2696 2017-12-14 17:12:51Z kanani
-! Change in file header (GPL part)
-!
-! 2300 2017-06-29 13:31:14Z raasch
-! NEC related code partly removed, host replaced by loop_optimization
-! 
-! 2274 2017-06-09 13:27:48Z Giersch
-! Changed error messages
-! 
-! 2119 2017-01-17 16:51:50Z raasch
-!
-! 2118 2017-01-17 16:38:49Z raasch
-! OpenACC directives and CUDA-fft related code removed
-! 
-! 2000 2016-08-20 18:09:15Z knoop
-! Forced header and separation lines into 80 columns
-! 
-! 1850 2016-04-08 13:29:27Z maronga
-! Module renamed
-! 
-! 1815 2016-04-06 13:49:59Z raasch
-! cpp-directives for ibmy removed
-!
-! 1749 2016-02-09 12:19:56Z raasch
-! small OpenACC bugfix
-!
-! 1682 2015-10-07 23:56:08Z knoop
-! Code annotations made doxygen readable
-!
-! 1600 2015-06-11 15:50:12Z raasch
-! bugfix: openMP threadprivate statement moved after variable declaration
-!
-! 1482 2014-10-18 12:34:45Z raasch
-! cudafft workaround for data declaration of ar_tmp because of PGI 14.1 bug
-!
-! 1402 2014-05-09 14:25:13Z raasch
-! fortran bugfix for r1392
-! 
-! 1398 2014-05-07 11:15:00Z heinze
-! bugfix: typo removed for KIND in CMPLX function
-!
-! 1392 2014-05-06 09:10:05Z raasch
-! bugfix: KIND attribute added to CMPLX functions
-!
-! 1374 2014-04-25 12:55:07Z raasch
-! bugfixes: missing variables added to ONLY list, dpk renamed dp
-!
-! 1372 2014-04-24 06:29:32Z raasch
-! openMP-bugfix for fftw: some arrays defined as threadprivate
-!
-! 1353 2014-04-08 15:21:23Z heinze
-! REAL constants provided with KIND-attribute 
-! 
-! 1342 2014-03-26 17:04:47Z kanani
-! REAL constants defined as wp-kind
-!
-! 1322 2014-03-20 16:38:49Z raasch
-! REAL functions provided with KIND-attribute
-!
-! 1320 2014-03-20 08:40:49Z raasch
-! ONLY-attribute added to USE-statements,
-! kind-parameters added to all INTEGER and REAL declaration statements, 
-! kinds are defined in new module kinds, 
-! old module precision_kind is removed,
-! revision history before 2012 removed,
-! comment fields (!:) to be used for variable explanations added to
-! all variable declaration statements 
-!
-! 1304 2014-03-12 10:29:42Z raasch
-! openmp bugfix: work1 used in Temperton algorithm must be private
-!
-! 1257 2013-11-08 15:18:40Z raasch
-! openacc loop and loop vector clauses removed, declare create moved after
-! the FORTRAN declaration statement
-!
-! 1219 2013-08-30 09:33:18Z heinze
-! bugfix: use own branch for fftw
-!
-! 1216 2013-08-26 09:31:42Z raasch
-! fft_x and fft_y modified for parallel / ovverlapping execution of fft and
-! transpositions,
-! fftw implemented for 1d-decomposition (fft_x_1d, fft_y_1d)
-!
-! 1210 2013-08-14 10:58:20Z raasch
-! fftw added
-!
-! 1166 2013-05-24 13:55:44Z raasch
-! C_DOUBLE/COMPLEX reset to dpk
-!
-! 1153 2013-05-10 14:33:08Z raasch
-! code adjustment of data types for CUDA fft required by PGI 12.3 / CUDA 5.0
-!
-! 1111 2013-03-08 23:54:10Z raasch
-! further openACC statements added, CUDA branch completely runs on GPU
-! bugfix: CUDA fft plans adjusted for domain decomposition (before they always
-! used total domain)
-!
-! 1106 2013-03-04 05:31:38Z raasch
-! CUDA fft added
-! array_kind renamed precision_kind, 3D- instead of 1D-loops in fft_x and fft_y
-! old fft_x, fft_y become fft_x_1d, fft_y_1d and are used for 1D-decomposition
-!
-! 1092 2013-02-02 11:24:22Z raasch
-! variable sizw declared for NEC case only
-!
-! 1036 2012-10-22 13:43:42Z raasch
-! code put under GPL (PALM 3.9)
-!
-! Revision 1.1  2002/06/11 13:00:49  raasch
-! Initial revision
-!
 !
 ! Description: