Changeset 686 for palm

Timestamp:

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

Author:

gryschka

Message:

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

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (2 diffs)
• exchange_horiz.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+!
+! bugfix: Replaced "==" by ".EQ." in case of logical expression
 !
 ! Former revisions:
@@ -566 +568 @@
     
     IF( momentum_advec == 'ws-scheme' .AND. & 
-        call_psolver_at_all_substeps == .FALSE. ) THEN
+        call_psolver_at_all_substeps .EQ. .FALSE. ) THEN
         message_string = 'psolver must be called at each RK3 substep when "'//&
                       TRIM(momentum_advec) // ' "is used for momentum_advec'

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