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

Timestamp:

Feb 20, 2011 6:29:10 PM (12 years ago)

Author:

gryschka

Message:

Bugifx for some logical expressions (syntax was not compatible with all compilers)

File:

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

palm/trunk/SOURCE/exchange_horiz.f90

@@ -5 +5 @@
 ! -----------------
 !
+! Bugfix for some logical expressions 
+! (syntax was not compatible with all compilers)
 !
 ! Former revisions:
 ! -----------------
-! 686 2011-02-20 13:45:08Z gryschka $
-! bugfix: Replaced "==" by ".EQ." in case of logical expression
+!
+! $id:
 !
 ! 683 2011-02-09 14:25:15Z raasch
@@ -63 +65 @@
 !-- Set i appropriately, because the coarser grids have different
 !-- MPI datatypes type_xz, type_yz.
-    IF ( exchange_mg .EQ. .TRUE. )  THEN
+    IF ( exchange_mg )  THEN
        i = grid_level
     ELSE