Changeset 2232 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

May 30, 2017 5:47:52 PM (7 years ago)

Author:

suehring

Message:

Adjustments according new topography and surface-modelling concept implemented

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -466 +466 @@
     USE indices
     USE land_surface_model_mod,                                                &
-        ONLY: land_surface, lsm_check_data_output, lsm_check_data_output_pr,   &
+        ONLY: lsm_check_data_output, lsm_check_data_output_pr,                 &
               lsm_check_parameters
 
@@ -859 +859 @@
                         'momentum_advec = "ws-scheme"'
        CALL message( 'check_parameters', 'PA0447', 1, 2, 0, 6, 0 )
+    ENDIF
+    IF ( TRIM( approximation ) == 'anelastic'   .AND.   &
+         TRIM( psolver ) == 'multigrid' )  THEN
+       message_string = 'Anelastic approximation currently only supports: ' // &
+                        'psolver = "poisfft", ' // &
+                        'psolver = "sor" and ' // &
+                        'psolver = "multigrid_noopt"'
+       CALL message( 'check_parameters', 'PA0448', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( TRIM( approximation ) == 'anelastic'   .AND.   &