Changeset 3057


Ignore:
Timestamp:
Jun 5, 2018 9:03:41 AM (6 years ago)
Author:
raasch
Message:

bugfix: check that nz is even in case that optimized multigrid is used

File:
1 edited

Legend:

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

    r3049 r3057  
    2525! -----------------
    2626! $Id$
     27! bugfix: check that nz is even in case that optimized multigrid is used
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! Error messages revised
    2831!
     
    911914       IF ( TRIM( psolver ) /= 'multigrid_noopt' )  THEN
    912915          IF ( MOD( k, 2 ) /= 0 )  mg_levels_z = mg_levels_z - 1
     916!
     917!--       An odd value of nz does not work. The finest level must have an even
     918!--       value.
     919          IF (  mg_levels_z == 0 )  THEN
     920             message_string = 'optimized multigrid method requires nz to be even'
     921             CALL message( 'init_pegrid', 'PA0028', 1, 2, 0, 6, 0 )
     922          ENDIF
    913923       ENDIF
    914924
     
    949959
    950960          ELSE
     961
    951962             mg_switch_to_pe0_level_l = 0
    952963             maximum_grid_level_l = maximum_grid_level
Note: See TracChangeset for help on using the changeset viewer.