Ignore:
Timestamp:
Feb 20, 2011 6:29:10 PM (11 years ago)
Author:
gryschka
Message:

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

File:
1 edited

Legend:

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

    r687 r688  
    55! -----------------
    66!
     7! Bugfix for some logical expressions
     8! (syntax was not compatible with all compilers)
    79!
    810! Former revisions:
    911! -----------------
    10 ! 686 2011-02-20 13:45:08Z gryschka $
    11 ! bugfix: Replaced "==" by ".EQ." in case of logical expression
     12!
     13! $id:
    1214!
    1315! 683 2011-02-09 14:25:15Z raasch
     
    6365!-- Set i appropriately, because the coarser grids have different
    6466!-- MPI datatypes type_xz, type_yz.
    65     IF ( exchange_mg .EQ. .TRUE. )  THEN
     67    IF ( exchange_mg )  THEN
    6668       i = grid_level
    6769    ELSE
Note: See TracChangeset for help on using the changeset viewer.