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

Timestamp:

Sep 14, 2012 2:35:53 PM (12 years ago)

Author:

raasch

Message:

subdomains must have identical size, i.e. grid_matching = "match" not allowed any more
parameter grid_matching removed
some obsolete variables removed

File:

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

palm/trunk/SOURCE/calc_spectra.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! adjustment of array tend for cases with unequal subdomain sizes removed
 !
 ! Former revisions:
@@ -73 +73 @@
     IF ( psolver == 'multigrid' )  THEN
        DEALLOCATE( d )
-       ALLOCATE( d(nzb+1:nzta,nys:nyna,nxl:nxra) )
-    ENDIF
-
-!
-!-- Enlarge the size of tend, used as a working array for the transpositions
-    IF ( nxra > nxr  .OR.  nyna > nyn  .OR.  nza > nz )  THEN
-       DEALLOCATE( tend )
-       ALLOCATE( tend(1:nza,nys:nyna,nxl:nxra) )
+       ALLOCATE( d(nzb+1:nzt,nys:nyn,nxl:nxr) )
     ENDIF
 
@@ -154 +147 @@
 !-- Increase counter for averaging process in routine plot_spectra
     average_count_sp = average_count_sp + 1
-
-!
-!-- Resize tend to its normal size
-    IF ( nxra > nxr  .OR.  nyna > nyn  .OR.  nza > nz )  THEN
-       DEALLOCATE( tend )
-       ALLOCATE( tend(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
-    ENDIF
 
     CALL cpu_log( log_point(30), 'calc_spectra', 'stop' )
@@ -249 +235 @@
     REAL, DIMENSION(0:nx/2,100)::  sums_spectra
 
-    REAL, DIMENSION(0:nxa,nys_x:nyn_xa,nzb_x:nzt_xa) ::  ddd
+    REAL, DIMENSION(0:nx,nys_x:nyn_x,nzb_x:nzt_x) ::  ddd
 
 !
@@ -359 +345 @@
     REAL, DIMENSION(0:ny/2,100)::  sums_spectra
 
-    REAL, DIMENSION(0:nya,nxl_yd:nxr_yda,nzb_yd:nzt_yda) :: ddd
+    REAL, DIMENSION(0:ny,nxl_yd:nxr_yd,nzb_yd:nzt_yd) :: ddd