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

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

File:
1 edited

Legend:

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

    r4115 r4144  
    2525! -----------------
    2626! $Id$
     27! relational operators .EQ., .NE., etc. replaced by ==, /=, etc.
     28!
     29! 4115 2019-07-24 12:50:49Z suehring
    2730! Bugfix in setting near-surface flag 24, inidicating wall-bounded grid points
    2831!
     
    14691472                IF ( building_id_f%var(j,i) /= building_id_f%fill )  THEN
    14701473                   IF ( num_buildings_l(myid) > 0 )  THEN
    1471                       IF ( ANY( building_id_f%var(j,i) .EQ.  build_ids_l ) )   &
     1474                      IF ( ANY( building_id_f%var(j,i) ==  build_ids_l ) )   &
    14721475                      THEN
    14731476                         CYCLE
     
    15431546
    15441547             IF ( ALLOCATED(build_ids_final) )  THEN
    1545                 IF ( ANY( build_ids(nr) .EQ. build_ids_final ) )  THEN
     1548                IF ( ANY( build_ids(nr) == build_ids_final ) )  THEN
    15461549                   CYCLE
    15471550                ELSE
     
    15741577             oro_max_l(nr) = MAXVAL(                                              &
    15751578                              MERGE( terrain_height_f%var, 0.0_wp,                &
    1576                                      building_id_f%var(nys:nyn,nxl:nxr) .EQ.      &
     1579                                     building_id_f%var(nys:nyn,nxl:nxr) ==      &
    15771580                                     build_ids_final(nr) ) )
    15781581          ENDDO
Note: See TracChangeset for help on using the changeset viewer.