Changeset 4637


Ignore:
Timestamp:
Aug 7, 2020 7:49:33 AM (4 months ago)
Author:
suehring
Message:

Avoid usage of omp_lib, instead declare omp_get_thread_num explicitly

File:
1 edited

Legend:

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

    r4636 r4637  
    2121! Current revisions:
    2222! -----------------
    23 ! Fix bugs in OpenMP directives
     23!
    2424!
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! Avoid usage of omp_lib, instead declare omp_get_thread_num explicitly
     29!
     30! 4636 2020-08-06 14:10:12Z resler
     31! Fix bugs in OpenMP directives
     32!
     33! 4636 2020-08-06 14:10:12Z suehring
    2834! - Bugfix in variable name separation in profile-output initialization
    2935! - Bugfix in counting the number of chemistry profiles
     
    32623268    USE statistics
    32633269
    3264     !$ USE omp_lib
    3265 
    32663270    CHARACTER (LEN=*) ::  mode   !<
    32673271
    3268     INTEGER(iwp) ::  i       !< running index on x-axis
    3269     INTEGER(iwp) ::  j       !< running index on y-axis
    3270     INTEGER(iwp) ::  k       !< vertical index counter
    3271     INTEGER(iwp) ::  lpr     !< running index chem spcs
    3272     INTEGER(iwp) ::  m       !< running index for surface elements
    3273     INTEGER(iwp) ::  sr      !< statistical region
    3274     INTEGER(iwp) ::  surf_e  !< end surface index
    3275     INTEGER(iwp) ::  surf_s  !< start surface index
    3276     INTEGER(iwp) ::  tn      !< thread number
     3272    INTEGER(iwp) ::  i                   !< running index on x-axis
     3273    INTEGER(iwp) ::  j                   !< running index on y-axis
     3274    INTEGER(iwp) ::  k                   !< vertical index counter
     3275    INTEGER(iwp) ::  lpr                 !< running index chem spcs
     3276    INTEGER(iwp) ::  m                   !< running index for surface elements
     3277!$  INTEGER(iwp) ::  omp_get_thread_num  !< intrinsic OMP function
     3278    INTEGER(iwp) ::  sr                  !< statistical region
     3279    INTEGER(iwp) ::  surf_e              !< end surface index
     3280    INTEGER(iwp) ::  surf_s              !< start surface index
     3281    INTEGER(iwp) ::  tn                  !< thread number
    32773282
    32783283    REAL(wp)                                            ::  flag     !< topography masking flag
Note: See TracChangeset for help on using the changeset viewer.