Changeset 1575 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Mar 27, 2015 9:56:27 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r1558 r1575 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! adjustments for psolver-queries 23 23 ! 24 24 ! Former revisions: … … 332 332 !-- containing with appropriate grid information is created for these 333 333 !-- solvers. 334 IF ( psolver /= 'multigrid' ) THEN334 IF ( psolver(1:9) /= 'multigrid' ) THEN 335 335 ALLOCATE( ddzu_pres(1:nzt+1) ) 336 336 ddzu_pres = ddzu … … 341 341 !-- In case of multigrid method, compute grid lengths and grid factors for the 342 342 !-- grid levels 343 IF ( psolver == 'multigrid' ) THEN343 IF ( psolver(1:9) == 'multigrid' ) THEN 344 344 345 345 ALLOCATE( ddx2_mg(maximum_grid_level), ddy2_mg(maximum_grid_level), & … … 1047 1047 ! 1048 1048 !-- Calculate wall flag arrays for the multigrid method 1049 IF ( psolver == 'multigrid' ) THEN1049 IF ( psolver(1:9) == 'multigrid' ) THEN 1050 1050 ! 1051 1051 !-- Gridpoint increment of the current level
Note: See TracChangeset
for help on using the changeset viewer.