Ignore:
Timestamp:
Jan 30, 2012 1:32:58 PM (10 years ago)
Author:
maronga
Message:

Bugfix: cpp directives .NOT., .AND. replaced by !,&&. Minor bugfixes in mrungui

File:
1 edited

Legend:

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

    r808 r809  
    44! Current revisions:
    55! -----------------
     6! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
    67!
    78! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
     
    218219
    219220
    220 #if .NOT. defined( __check)
     221#if ! defined( __check)
    221222!
    222223!-- Create the virtual processor grid
     
    531532
    532533
    533 #if .NOT. defined( __check)
     534#if ! defined( __check)
    534535!
    535536!-- Collect index bounds from other PEs (to be written to restart file later)
     
    598599#endif
    599600
    600 #if defined( __parallel ) .AND. .NOT. defined( __check)
     601#if defined( __parallel ) && ! defined( __check)
    601602#if defined( __mpi2 )
    602603!
     
    942943
    943944          IF ( i == mg_switch_to_pe0_level )  THEN
    944 #if defined( __parallel ) .AND. .NOT. defined( __check )
     945#if defined( __parallel ) && ! defined( __check )
    945946!
    946947!--          Save the grid size of the subdomain at the switch level, because
     
    975976                              ( nzt_l - nzb + 2 )
    976977
    977 #elif .NOT. defined ( __parallel )
     978#elif ! defined ( __parallel )
    978979             message_string = 'multigrid gather/scatter impossible ' // &
    979980                          'in non parallel mode'
     
    10171018    grid_level = 0
    10181019
    1019 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     1020#if defined( __parallel ) && ! defined ( __check )
    10201021!
    10211022!-- Gridpoint number for the exchange of ghost points (y-line for 2D-arrays)
     
    11001101#endif
    11011102
    1102 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     1103#if defined( __parallel ) && ! defined ( __check )
    11031104!
    11041105!-- Setting of flags for inflow/outflow conditions in case of non-cyclic
     
    11601161                        comm1dx, ierr )
    11611162
    1162 #elif .NOT. defined ( __parallel )
     1163#elif ! defined ( __parallel )
    11631164    IF ( bc_lr == 'dirichlet/radiation' )  THEN
    11641165       inflow_l  = .TRUE.
Note: See TracChangeset for help on using the changeset viewer.