Ignore:
Timestamp:
Jan 30, 2012 1:32:58 PM (12 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_grid.f90

    r808 r809  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
    77!
    88! Former revisions:
     
    537537
    538538             ENDIF
    539 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     539#if defined( __parallel ) && ! defined ( __check )
    540540             CALL MPI_BARRIER( comm2d, ierr )
    541541#endif
     
    742742          ENDIF
    743743       ENDDO
    744 #if .NOT. defined ( __check )
     744#if ! defined ( __check )
    745745!
    746746!--    Exchange of lateral boundary values (parallel computers) and cyclic
     
    772772    ENDIF
    773773
    774 #if .NOT. defined ( __check )
     774#if ! defined ( __check )
    775775!
    776776!-- Preliminary: to be removed after completion of the topography code!
Note: See TracChangeset for help on using the changeset viewer.