Changeset 1575 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- Mar 27, 2015 9:56:27 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r1574 r1575 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! multigrid_fast added as allowed pressure solver 23 23 ! 24 24 ! Former revisions: … … 716 716 !-- Check whether there are any illegal values 717 717 !-- Pressure solver: 718 IF ( psolver /= 'poisfft' .AND. &719 psolver /= ' sor' .AND. psolver /= 'multigrid' ) THEN718 IF ( psolver /= 'poisfft' .AND. psolver /= 'sor' .AND. & 719 psolver /= 'multigrid' .AND. psolver /= 'multigrid_fast' ) THEN 720 720 message_string = 'unknown solver for perturbation pressure: psolver' // & 721 721 ' = "' // TRIM( psolver ) // '"' … … 723 723 ENDIF 724 724 725 IF ( psolver == 'multigrid' ) THEN725 IF ( psolver(1:9) == 'multigrid' ) THEN 726 726 IF ( cycle_mg == 'w' ) THEN 727 727 gamma_mg = 2 … … 1715 1715 !-- and tools do not work with non-cyclic boundary conditions. 1716 1716 IF ( bc_lr /= 'cyclic' .OR. bc_ns /= 'cyclic' ) THEN 1717 IF ( psolver /= 'multigrid' ) THEN1717 IF ( psolver(1:9) /= 'multigrid' ) THEN 1718 1718 message_string = 'non-cyclic lateral boundaries do not allow ' // & 1719 1719 'psolver = "' // TRIM( psolver ) // '"'
Note: See TracChangeset
for help on using the changeset viewer.