Changeset 1212 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Aug 15, 2013 8:46:27 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r1211 r1212 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! checks for poisfft_hybrid removed 23 23 ! 24 24 ! Former revisions: … … 674 674 !-- Check whether there are any illegal values 675 675 !-- Pressure solver: 676 IF ( psolver /= 'poisfft' .AND. psolver /= 'poisfft_hybrid' .AND.&676 IF ( psolver /= 'poisfft' .AND. & 677 677 psolver /= 'sor' .AND. psolver /= 'multigrid' ) THEN 678 678 message_string = 'unknown solver for perturbation pressure: psolver' // & … … 680 680 CALL message( 'check_parameters', 'PA0016', 1, 2, 0, 6, 0 ) 681 681 ENDIF 682 683 #if defined( __parallel )684 IF ( psolver == 'poisfft_hybrid' .AND. pdims(2) /= 1 ) THEN685 message_string = 'psolver = "' // TRIM( psolver ) // '" only works ' // &686 'for a 1d domain-decomposition along x & please do' // &687 ' not set npey/=1 in the parameter file'688 CALL message( 'check_parameters', 'PA0017', 1, 2, 0, 6, 0 )689 ENDIF690 #else691 IF ( psolver == 'poisfft_hybrid' ) THEN692 message_string = 'psolver = "' // TRIM( psolver ) // '" only works' // &693 ' for a parallel environment'694 CALL message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )695 ENDIF696 #endif697 682 698 683 IF ( psolver == 'multigrid' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.