Changeset 809 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Jan 30, 2012 1:32:58 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r808 r809 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Bugfix: replaced .AND. and .NOT. with && and ! in the preprocessor directives 7 7 ! 8 8 ! Former revisions: … … 537 537 538 538 ENDIF 539 #if defined( __parallel ) .AND. .NOT.defined ( __check )539 #if defined( __parallel ) && ! defined ( __check ) 540 540 CALL MPI_BARRIER( comm2d, ierr ) 541 541 #endif … … 742 742 ENDIF 743 743 ENDDO 744 #if .NOT.defined ( __check )744 #if ! defined ( __check ) 745 745 ! 746 746 !-- Exchange of lateral boundary values (parallel computers) and cyclic … … 772 772 ENDIF 773 773 774 #if .NOT.defined ( __check )774 #if ! defined ( __check ) 775 775 ! 776 776 !-- Preliminary: to be removed after completion of the topography code!
Note: See TracChangeset
for help on using the changeset viewer.