Changeset 1902


Ignore:
Timestamp:
May 9, 2016 11:18:56 AM (5 years ago)
Author:
suehring
Message:

Consider masking_method only for multigrid solver, no for multigrid_fast

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1852 r1902  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Write information about masking_method only for multigrid solver
    2222!
    2323! Former revisions:
     
    550550                             nzt_mg(1)
    551551       ENDIF
    552        IF ( masking_method )  WRITE ( io, 144 )
     552       IF ( psolver == 'multigrid' .AND. masking_method )  WRITE ( io, 144 )
    553553    ENDIF
    554554    IF ( call_psolver_at_all_substeps  .AND. timestep_scheme(1:5) == 'runge' ) &
  • palm/trunk/SOURCE/init_grid.f90

    r1887 r1902  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Set topography flags only for multigrid solver, not for multigrid_fast
    2222!
    2323! Former revisions:
     
    11651165!--       In case of masking method, flags are not set and multigrid method
    11661166!--       works like FFT-solver
    1167           IF ( .NOT. masking_method )  THEN
     1167          IF ( psolver == 'multigrid' .AND. .NOT. masking_method )  THEN
    11681168
    11691169             DO  i = nxl_l-1, nxr_l+1
Note: See TracChangeset for help on using the changeset viewer.