Changeset 4637 for palm/trunk

Timestamp:

Aug 7, 2020 7:49:33 AM (4 years ago)

Author:

suehring

Message:

Avoid usage of omp_lib, instead declare omp_get_thread_num explicitly

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! Fix bugs in OpenMP directives
+!
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Avoid usage of omp_lib, instead declare omp_get_thread_num explicitly
+!
+! 4636 2020-08-06 14:10:12Z resler
+! Fix bugs in OpenMP directives
+!
+! 4636 2020-08-06 14:10:12Z suehring
 ! - Bugfix in variable name separation in profile-output initialization
 ! - Bugfix in counting the number of chemistry profiles
@@ -3262 +3268 @@
     USE statistics
 
-    !$ USE omp_lib
-
     CHARACTER (LEN=*) ::  mode   !<
 
-    INTEGER(iwp) ::  i       !< running index on x-axis
-    INTEGER(iwp) ::  j       !< running index on y-axis
-    INTEGER(iwp) ::  k       !< vertical index counter
-    INTEGER(iwp) ::  lpr     !< running index chem spcs
-    INTEGER(iwp) ::  m       !< running index for surface elements
-    INTEGER(iwp) ::  sr      !< statistical region
-    INTEGER(iwp) ::  surf_e  !< end surface index
-    INTEGER(iwp) ::  surf_s  !< start surface index
-    INTEGER(iwp) ::  tn      !< thread number
+    INTEGER(iwp) ::  i                   !< running index on x-axis
+    INTEGER(iwp) ::  j                   !< running index on y-axis
+    INTEGER(iwp) ::  k                   !< vertical index counter
+    INTEGER(iwp) ::  lpr                 !< running index chem spcs
+    INTEGER(iwp) ::  m                   !< running index for surface elements
+!$  INTEGER(iwp) ::  omp_get_thread_num  !< intrinsic OMP function
+    INTEGER(iwp) ::  sr                  !< statistical region
+    INTEGER(iwp) ::  surf_e              !< end surface index
+    INTEGER(iwp) ::  surf_s              !< start surface index
+    INTEGER(iwp) ::  tn                  !< thread number
 
     REAL(wp)                                            ::  flag     !< topography masking flag