Changeset 3897 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Apr 15, 2019 11:51:14 AM (6 years ago)

Author:

suehring

Message:

2D output of emission fluxes in chemistry; revise check for multigrid coarsening and give a warning instead of an error

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor revision of multigrid check; give warning instead of an abort.
+! 
+! 3890 2019-04-12 15:59:20Z suehring
 ! Check if grid coarsening is possible on subdomain, in order to avoid that 
 ! multigrid approach effectively reduces to a Gauss-Seidel scheme.
@@ -955 +958 @@
 !--    This case, the maximum number of grid levels is 1, i.e. effectively 
 !--    a Gauss-Seidel scheme is applied rather than a multigrid approach.
-       IF ( maximum_grid_level == 1 )  THEN
-          message_string = 'grid coarsening on subdomain level cannot be ' //  &
-                           'performed'
-          CALL message( 'poismg', 'PA0236', 1, 2, 0, 6, 0 )
+!--    Give a warning in this case.
+       IF ( maximum_grid_level == 1  .AND.  mg_switch_to_pe0_level == -1 )  THEN
+          message_string = 'No grid coarsening possible, multigrid ' //        &
+                           'approach effectively reduces to a Gauss-Seidel ' //&
+                           'scheme.'
+          
+          CALL message( 'poismg', 'PA0648', 0, 1, 0, 6, 0 )
        ENDIF