- Timestamp:
- Feb 20, 2020 10:30:33 AM (5 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/transpose.f90
r4370 r4415 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for misplaced preprocessor directive 28 ! 29 ! 4370 2020-01-10 14:00:44Z raasch 27 30 ! vector array renamed 28 31 ! … … 983 986 ENDDO 984 987 !$OMP END PARALLEL 985 #endif986 988 987 989 ENDIF 990 991 #endif 988 992 989 993 ENDIF -
palm/trunk/SOURCE/vdi_internal_controls.f90
r4346 r4415 25 25 ! ----------------- 26 26 ! $Id$ 27 ! missing preprocessor directive added 28 ! 29 ! 4346 2019-12-18 11:55:56Z motisi 27 30 ! Introduction of wall_flags_total_0, which currently sets bits based on static 28 31 ! topography information used in wall_flags_static_0 … … 91 94 USE kinds 92 95 96 #if defined( __parallel ) 93 97 USE pegrid, & 94 98 ONLY: collective_wait, & … … 100 104 MPI_SUM, & 101 105 myid 106 #else 107 USE pegrid, & 108 ONLY: myid 109 #endif 102 110 103 111
Note: See TracChangeset
for help on using the changeset viewer.