Ignore:
Timestamp:
Aug 6, 2019 9:11:47 AM (2 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/wind_turbine_model_mod.f90

    r4056 r4144  
    2626! -----------------
    2727! $Id$
     28! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
     29!
     30! 4056 2019-06-27 13:53:16Z Giersch
    2831! CASE DEFAULT action in wtm_actions needs to be CONTINUE. Otherwise an abort 
    2932! will happen for location values that are not implemented as CASE statements
     
    15221525!             lct(1) = lct(1)
    15231526
    1524           IF ( ( trad1(lct(1)) - cur_r ) .GT. 0.0 )  THEN
     1527          IF ( ( trad1(lct(1)) - cur_r ) > 0.0 )  THEN
    15251528             lct(1) = lct(1) - 1
    15261529          ENDIF
     
    15341537          t2 = ttoint2(trow)
    15351538
    1536           IF ( t1 .EQ. t2 ) THEN  ! if both are the same, the weights are NaN
    1537              weight_a = 0.5_wp    ! then do interpolate in between same twice
    1538              weight_b = 0.5_wp    ! using 0.5 as weight
     1539          IF ( t1 == t2 ) THEN  ! if both are the same, the weights are NaN
     1540             weight_a = 0.5_wp     ! then do interpolate in between same twice
     1541             weight_b = 0.5_wp     ! using 0.5 as weight
    15391542          ENDIF
    15401543
Note: See TracChangeset for help on using the changeset viewer.