Changeset 3890


Ignore:
Timestamp:
Apr 12, 2019 3:59:20 PM (2 years ago)
Author:
suehring
Message:

Check if grid coarsening is possible on subdomain, in order to avoid that multigrid approach effectively reduces to a Gauss-Seidel scheme.

File:
1 edited

Legend:

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

    r3885 r3890  
    2525! -----------------
    2626! $Id$
     27! Check if grid coarsening is possible on subdomain, in order to avoid that
     28! multigrid approach effectively reduces to a Gauss-Seidel scheme.
     29!
     30! 3885 2019-04-11 11:29:34Z kanani
    2731! Changes related to global restructuring of location messages and introduction
    2832! of additional debug messages
     
    947951
    948952       maximum_grid_level = MIN( mg_levels_x, mg_levels_y, mg_levels_z )
     953!       
     954!--    Check if subdomain sizes prevents any coarsening.
     955!--    This case, the maximum number of grid levels is 1, i.e. effectively
     956!--    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 )
     961       ENDIF
    949962
    950963!
     
    10851098          nyn_l = nyn_l / 2
    10861099          nzt_l = nzt_l / 2
    1087 
     1100         
    10881101       ENDDO
    10891102
Note: See TracChangeset for help on using the changeset viewer.