Changeset 4144 for palm/trunk/SOURCE/wind_turbine_model_mod.f90

Timestamp:

Aug 6, 2019 9:11:47 AM (5 years ago)

Author:

raasch

Message:

relational operators .EQ., .NE., etc. replaced by ==, /=, etc.

File:

• palm/trunk/SOURCE/wind_turbine_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
+! 
+! 4056 2019-06-27 13:53:16Z Giersch
 ! CASE DEFAULT action in wtm_actions needs to be CONTINUE. Otherwise an abort  
 ! will happen for location values that are not implemented as CASE statements
@@ -1522 +1525 @@
 !             lct(1) = lct(1)
 
-          IF ( ( trad1(lct(1)) - cur_r ) .GT. 0.0 )  THEN
+          IF ( ( trad1(lct(1)) - cur_r ) > 0.0 )  THEN
              lct(1) = lct(1) - 1
           ENDIF
@@ -1534 +1537 @@
           t2 = ttoint2(trow)
 
-          IF ( t1 .EQ. t2 ) THEN  ! if both are the same, the weights are NaN
-             weight_a = 0.5_wp    ! then do interpolate in between same twice
-             weight_b = 0.5_wp    ! using 0.5 as weight
+          IF ( t1 == t2 )  THEN  ! if both are the same, the weights are NaN
+             weight_a = 0.5_wp     ! then do interpolate in between same twice
+             weight_b = 0.5_wp     ! using 0.5 as weight
           ENDIF