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_masks.f90

    r808 r809  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives
    77!
    88! Former revisions:
     
    350350!--    Set global masks along all three dimensions (required by
    351351!--    define_netcdf_header).
    352 #if defined( __parallel ) .AND. .NOT. defined ( __check )
     352#if defined( __parallel ) && ! defined ( __check )
    353353!
    354354!--    PE0 receives partial arrays from all processors of the respective mask
     
    443443       ENDIF
    444444
    445 #elif .NOT. defined ( __parallel )
     445#elif ! defined ( __parallel )
    446446!
    447447!--    Local arrays can be relocated directly.
Note: See TracChangeset for help on using the changeset viewer.