Changeset 4144 for palm/trunk/SOURCE/indoor_model_mod.f90

Timestamp:

Aug 6, 2019 9:11:47 AM (5 years ago)

Author:

raasch

Message:

relational operators .EQ., .NE., etc. replaced by ==, /=, etc.

File:

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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -454 +457 @@
           IF ( building_id_f%var(j,i) /= building_id_f%fill )  THEN
              IF ( num_buildings_l(myid) > 0 )  THEN
-                IF ( ANY( building_id_f%var(j,i) .EQ.  build_ids_l ) )  THEN 
+                IF ( ANY( building_id_f%var(j,i) ==  build_ids_l ) )  THEN
                    CYCLE
                 ELSE
@@ -521 +524 @@
 
        IF ( ALLOCATED(build_ids_final) )  THEN
-          IF ( ANY( build_ids(n) .EQ. build_ids_final ) )  THEN    !FK: Warum ANY?, Warum .EQ.? --> s.o
+          IF ( ANY( build_ids(n) == build_ids_final ) )  THEN    !FK: Warum ANY?, Warum .EQ.? --> s.o
              CYCLE
           ELSE