Ignore:
Timestamp:
Mar 27, 2015 9:56:27 AM (6 years ago)
Author:
raasch
Message:

optimized multigrid method installed, new parameter seed_follows_topography for particle release, small adjustment in subjob for HLRN

File:
1 edited

Legend:

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

    r1558 r1575  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! adjustments for psolver-queries
    2323!
    2424! Former revisions:
     
    332332!-- containing with appropriate grid information is created for these
    333333!-- solvers.
    334     IF ( psolver /= 'multigrid' )  THEN
     334    IF ( psolver(1:9) /= 'multigrid' )  THEN
    335335       ALLOCATE( ddzu_pres(1:nzt+1) )
    336336       ddzu_pres = ddzu
     
    341341!-- In case of multigrid method, compute grid lengths and grid factors for the
    342342!-- grid levels
    343     IF ( psolver == 'multigrid' )  THEN
     343    IF ( psolver(1:9) == 'multigrid' )  THEN
    344344
    345345       ALLOCATE( ddx2_mg(maximum_grid_level), ddy2_mg(maximum_grid_level), &
     
    10471047!
    10481048!-- Calculate wall flag arrays for the multigrid method
    1049     IF ( psolver == 'multigrid' )  THEN
     1049    IF ( psolver(1:9) == 'multigrid' )  THEN
    10501050!
    10511051!--    Gridpoint increment of the current level
Note: See TracChangeset for help on using the changeset viewer.