Changeset 1111 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- Mar 8, 2013 11:54:10 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r1093 r1111 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! initialization of poisfft moved to poisfft 23 23 ! 24 24 ! Former revisions: … … 150 150 151 151 USE control_parameters 152 USE fft_xy153 152 USE grid_variables 154 153 USE indices 155 154 USE pegrid 156 USE poisfft_mod157 USE poisfft_hybrid_mod158 155 USE statistics 159 156 USE transpose_indices … … 1135 1132 ENDIF 1136 1133 1137 IF ( psolver == 'poisfft_hybrid' ) THEN1138 CALL poisfft_hybrid_ini1139 ELSEIF ( psolver == 'poisfft' ) THEN1140 CALL poisfft_init1141 ENDIF1142 1143 1134 ! 1144 1135 !-- Allocate wall flag arrays used in the multigrid solver
Note: See TracChangeset
for help on using the changeset viewer.