Ignore:
Timestamp:
Feb 20, 2011 1:45:08 PM (11 years ago)
Author:
gryschka
Message:

Bugifx: Replaced == by .EQ. in logical expressions

File:
1 edited

Legend:

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

    r684 r686  
    44! Current revisions:
    55! -----------------
    6 !
     6!
     7! bugfix: Replaced "==" by ".EQ." in case of logical expression
    78!
    89! Former revisions:
     
    6263!-- Set i appropriately, because the coarser grids have different
    6364!-- MPI datatypes type_xz, type_yz.
    64     IF ( exchange_mg == .TRUE. )  THEN
     65    IF ( exchange_mg .EQ. .TRUE. )  THEN
    6566       i = grid_level
    6667    ELSE
Note: See TracChangeset for help on using the changeset viewer.