Changeset 1575 for palm/trunk/SOURCE/calc_spectra.f90

Timestamp:

Mar 27, 2015 9:56:27 AM (9 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/calc_spectra.f90 (modified) (2 diffs)

palm/trunk/SOURCE/calc_spectra.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! adjustments for psolver-queries
 ! 
 ! Former revisions:
@@ -113 +113 @@
 !
 !-- Reallocate array d in required size
-    IF ( psolver == 'multigrid' )  THEN
+    IF ( psolver(1:9) == 'multigrid' )  THEN
        DEALLOCATE( d )
        ALLOCATE( d(nzb+1:nzt,nys:nyn,nxl:nxr) )