Changeset 4671 for palm/trunk/SOURCE/poisfft_mod.f90

Timestamp:

Sep 9, 2020 8:27:58 PM (4 years ago)

Author:

pavelkrc

Message:

Radiative transfer model RTM version 4.1

File:

• palm/trunk/SOURCE/poisfft_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/poisfft_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OMP bugfix
+!
+! 4649 2020-08-25 12:11:17Z raasch
 ! File re-formatted to follow the PALM coding standard
-!
 !
 ! 4429 2020-02-27 15:24:30Z raasch
@@ -985 +987 @@
     INTEGER(iwp) ::  m                   !<
     INTEGER(iwp) ::  n                   !<
-!   INTEGER(iwp) ::  omp_get_thread_num  !<
+!$  INTEGER(iwp) ::  omp_get_thread_num  !<
     INTEGER(iwp) ::  tn                  !<