Changeset 688 for palm/trunk


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)

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r687 r688  
    55! -----------------
    66!
     7! Bugfix for some logical expressions
     8! (syntax was not compatible with all compilers)
    79!
    810! Former revisions:
    911! -----------------
    1012!
    11 ! 686 2011-02-20 13:45:08Z gryschka $
    12 ! bugfix: Replaced "==" by ".EQ." in case of logical expression
     13! $id:
    1314!
    1415! 680 2011-02-04 23:16:06Z gryschka $
     
    571572   
    572573    IF( momentum_advec == 'ws-scheme' .AND. &
    573         call_psolver_at_all_substeps .EQ. .FALSE. ) THEN
     574        .NOT. call_psolver_at_all_substeps ) THEN
    574575        message_string = 'psolver must be called at each RK3 substep when "'//&
    575576                      TRIM(momentum_advec) // ' "is used for momentum_advec'
  • 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.