Changeset 1804 for palm/trunk/SOURCE/init_masks.f90
- Timestamp:
- Apr 5, 2016 4:30:18 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_masks.f90
r1784 r1804 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Removed code for parameter file check (__check) 22 22 ! 23 23 ! Former revisions: … … 444 444 !-- Set global masks along all three dimensions (required by 445 445 !-- define_netcdf_header). 446 #if defined( __parallel ) && ! defined ( __check )446 #if defined( __parallel ) 447 447 ! 448 448 !-- PE0 receives partial arrays from all processors of the respective mask … … 536 536 ENDIF 537 537 538 #el if ! defined ( __parallel )538 #else 539 539 ! 540 540 !-- Local arrays can be relocated directly.
Note: See TracChangeset
for help on using the changeset viewer.