Changeset 1804 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Apr 5, 2016 4:30:18 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r1780 r1804 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Removed code for parameter file check (__check) 22 22 ! 23 23 ! Former revisions: … … 703 703 704 704 ENDIF 705 #if defined( __parallel ) && ! defined ( __check )705 #if defined( __parallel ) 706 706 CALL MPI_BARRIER( comm2d, ierr ) 707 707 #endif … … 925 925 ENDIF 926 926 ENDDO 927 #if ! defined ( __check ) 927 928 928 ! 929 929 !-- Exchange of lateral boundary values (parallel computers) and cyclic … … 962 962 ENDDO 963 963 ENDDO 964 #endif 964 965 965 ENDIF 966 966 967 #if ! defined ( __check )968 967 ! 969 968 !-- Preliminary: to be removed after completion of the topography code! … … 1736 1735 nzb_tmp, vertical_influence, wall_l, wall_n, wall_r, wall_s ) 1737 1736 1738 #endif1739 1737 1740 1738 END SUBROUTINE init_grid
Note: See TracChangeset
for help on using the changeset viewer.