Changeset 1003 for palm/trunk/SOURCE/pres.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/pres.f90 (modified) (4 diffs)

palm/trunk/SOURCE/pres.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! adjustment of array tend for cases with unequal subdomain sizes removed
 !
 ! Former revisions:
@@ -279 +279 @@
     ELSE
        !$OMP PARALLEL DO SCHEDULE( STATIC )
-       DO  i = nxl, nxra
-          DO  j = nys, nyna
-             DO  k = nzb+1, nzta
+       DO  i = nxl, nxr
+          DO  j = nys, nyn
+             DO  k = nzb+1, nzt
                 d(k,j,i) = 0.0
              ENDDO
@@ -409 +409 @@
 
 !
-!--    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) )
-       ENDIF
-
-!
 !--    Solve Poisson equation via FFT and solution of tridiagonal matrices
        IF ( psolver == 'poisfft' )  THEN
@@ -427 +420 @@
 !--       are some optimization problems in poisfft
           CALL poisfft_hybrid( d )
-       ENDIF
-
-!
-!--    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