Changeset 686 for palm/trunk/SOURCE/exchange_horiz.f90

Timestamp:

Feb 20, 2011 1:45:08 PM (12 years ago)

Author:

gryschka

Message:

Bugifx: Replaced == by .EQ. in logical expressions

File:

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

palm/trunk/SOURCE/exchange_horiz.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+!
+! bugfix: Replaced "==" by ".EQ." in case of logical expression
 !
 ! Former revisions:
@@ -62 +63 @@
 !-- Set i appropriately, because the coarser grids have different
 !-- MPI datatypes type_xz, type_yz.
-    IF ( exchange_mg == .TRUE. )  THEN
+    IF ( exchange_mg .EQ. .TRUE. )  THEN
        i = grid_level
     ELSE