Changeset 688 for palm

Timestamp:

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

Author:

gryschka

Message:

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

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (2 diffs)
• exchange_horiz.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'

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