Ignore:
Timestamp:
Apr 15, 2019 11:51:14 AM (2 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_pegrid.f90

    r3890 r3897  
    2525! -----------------
    2626! $Id$
     27! Minor revision of multigrid check; give warning instead of an abort.
     28!
     29! 3890 2019-04-12 15:59:20Z suehring
    2730! Check if grid coarsening is possible on subdomain, in order to avoid that
    2831! multigrid approach effectively reduces to a Gauss-Seidel scheme.
     
    955958!--    This case, the maximum number of grid levels is 1, i.e. effectively
    956959!--    a Gauss-Seidel scheme is applied rather than a multigrid approach.
    957        IF ( maximum_grid_level == 1 )  THEN
    958           message_string = 'grid coarsening on subdomain level cannot be ' //  &
    959                            'performed'
    960           CALL message( 'poismg', 'PA0236', 1, 2, 0, 6, 0 )
     960!--    Give a warning in this case.
     961       IF ( maximum_grid_level == 1  .AND.  mg_switch_to_pe0_level == -1 )  THEN
     962          message_string = 'No grid coarsening possible, multigrid ' //        &
     963                           'approach effectively reduces to a Gauss-Seidel ' //&
     964                           'scheme.'
     965         
     966          CALL message( 'poismg', 'PA0648', 0, 1, 0, 6, 0 )
    961967       ENDIF
    962968
Note: See TracChangeset for help on using the changeset viewer.