Changeset 2197


Ignore:
Timestamp:
Mar 24, 2017 2:25:00 AM (5 years ago)
Author:
raasch
Message:

bugfix: do not allow odd values for nz at the coarsest grid level in case of optimized multigrid solver

File:
1 edited

Legend:

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

    r2181 r2197  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! bugfix: do not allow odd values for nz at the coarsest grid level in case of
     23! optimized multigrid solver
    2324!
    2425! Former revisions:
     
    862863          mg_levels_z = mg_levels_z + 1
    863864       ENDDO
     865!
     866!--    The optimized MG-solver does not allow odd values for nz at the coarsest
     867!--    grid level
     868       IF ( TRIM( psolver ) /= 'multigrid_noopt' )  THEN
     869          IF ( MOD( k, 2 ) /= 0 )  mg_levels_z = mg_levels_z - 1
     870       ENDIF
    864871
    865872       maximum_grid_level = MIN( mg_levels_x, mg_levels_y, mg_levels_z )
Note: See TracChangeset for help on using the changeset viewer.