Changeset 3241 for palm/trunk/SOURCE/calc_mean_profile.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (7 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/calc_mean_profile.f90 (modified) (3 diffs)

palm/trunk/SOURCE/calc_mean_profile.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! omp_get_thread_num now declared in openmp directive,
+! unused variable removed
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -83 +87 @@
 
        USE control_parameters,                                                 &
-           ONLY:  intermediate_timestep_count, message_string
+           ONLY:  intermediate_timestep_count
 
        USE indices,                                                            &
@@ -103 +107 @@
        INTEGER(iwp) ::  k                  !<
        INTEGER(iwp) ::  pr                 !< 
-       INTEGER(iwp) ::  omp_get_thread_num !<
+!$     INTEGER(iwp) ::  omp_get_thread_num !<
        INTEGER(iwp) ::  tn                 !<