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

Timestamp:

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

Author:

gryschka

Message:

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

File:

• palm/trunk/SOURCE/check_parameters.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'