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

Timestamp:

Jan 26, 2009 2:44:20 PM (15 years ago)

Author:

raasch

Message:

bugfixes concerning cpu time measurements and calculation of spectra in case of multigrid method switched on

File:

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

palm/trunk/SOURCE/calc_spectra.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: array d is reallocated in case that multigrid is used
 !
 ! Former revisions:
@@ -55 +55 @@
 !-- Initialize ffts
     CALL fft_init
+
+!
+!-- Reallocate array d in required size
+    IF ( psolver == 'multigrid' )  THEN
+       DEALLOCATE( d )
+       ALLOCATE( d(nzb+1:nzta,nys:nyna,nxl:nxra) )
+    ENDIF
 
 !