Changeset 686


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

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r685 r686  
    44! Current revisions:
    55! -----------------
     6!
     7! bugfix: Replaced "==" by ".EQ." in case of logical expression
    68!
    79! Former revisions:
     
    566568   
    567569    IF( momentum_advec == 'ws-scheme' .AND. &
    568         call_psolver_at_all_substeps == .FALSE. ) THEN
     570        call_psolver_at_all_substeps .EQ. .FALSE. ) THEN
    569571        message_string = 'psolver must be called at each RK3 substep when "'//&
    570572                      TRIM(momentum_advec) // ' "is used for momentum_advec'
  • 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.