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

Timestamp:

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

Author:

gryschka

Message:

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

File:

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

palm/trunk/SOURCE/check_parameters.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:
 !
 ! 680 2011-02-04 23:16:06Z gryschka $
@@ -571 +572 @@
     
     IF( momentum_advec == 'ws-scheme' .AND. & 
-        call_psolver_at_all_substeps .EQ. .FALSE. ) THEN
+        .NOT. call_psolver_at_all_substeps  ) THEN
         message_string = 'psolver must be called at each RK3 substep when "'//&
                       TRIM(momentum_advec) // ' "is used for momentum_advec'