Changeset 2298 for palm/trunk/SOURCE/pres.f90

Timestamp:

Jun 29, 2017 9:28:18 AM (7 years ago)

Author:

raasch

Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:

• palm/trunk/SOURCE/pres.f90 (modified) (6 diffs)

palm/trunk/SOURCE/pres.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! comment changed + some formatting
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -537 +540 @@
           !$OMP PARALLEL DO PRIVATE( i, j, k )
           DO  m = 1, bc_h(0)%ns
-             i             = bc_h(0)%i(m)            
-             j             = bc_h(0)%j(m)
-             k             = bc_h(0)%k(m)
+             i = bc_h(0)%i(m)
+             j = bc_h(0)%j(m)
+             k = bc_h(0)%k(m)
              tend(k-1,j,i) = tend(k,j,i)
           ENDDO
@@ -546 +549 @@
           !$OMP PARALLEL DO PRIVATE( i, j, k )
           DO  m = 1, bc_h(1)%ns
-             i             = bc_h(1)%i(m)            
-             j             = bc_h(1)%j(m)
-             k             = bc_h(1)%k(m)
+             i = bc_h(1)%i(m)
+             j = bc_h(1)%j(m)
+             k = bc_h(1)%k(m)
              tend(k+1,j,i) = tend(k,j,i)
           ENDDO
@@ -559 +562 @@
           !$OMP PARALLEL DO PRIVATE( i, j, k )
           DO  m = 1, bc_h(0)%ns
-             i             = bc_h(0)%i(m)            
-             j             = bc_h(0)%j(m)
-             k             = bc_h(0)%k(m)
+             i = bc_h(0)%i(m)
+             j = bc_h(0)%j(m)
+             k = bc_h(0)%k(m)
              tend(k-1,j,i) = 0.0_wp
           ENDDO
@@ -568 +571 @@
           !$OMP PARALLEL DO PRIVATE( i, j, k )
           DO  m = 1, bc_h(1)%ns
-             i             = bc_h(1)%i(m)            
-             j             = bc_h(1)%j(m)
-             k             = bc_h(1)%k(m)
+             i = bc_h(1)%i(m)
+             j = bc_h(1)%j(m)
+             k = bc_h(1)%k(m)
              tend(k+1,j,i) = 0.0_wp
           ENDDO
@@ -616 +619 @@
 !
 !--    Solve Poisson equation for perturbation pressure using Multigrid scheme,
-!--    array tend is used to store the residuals, logical exchange_mg is used
-!--    to discern data exchange in multigrid ( 1 ghostpoint ) and normal grid
-!--    ( nbgp ghost points ).
+!--    array tend is used to store the residuals.
 
 !--    If the number of grid points of the gathered grid, which is collected