Changeset 2569

Timestamp:

Oct 20, 2017 11:54:42 AM (7 years ago)

Author:

kanani

Message:

Removed redundant code in boundary_conds

File:

• palm/trunk/SOURCE/boundary_conds.f90 (modified) (3 diffs)

palm/trunk/SOURCE/boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed redundant code for ibc_s_b=1 and ibc_q_b=1
+! 
+! 2365 2017-08-21 14:59:59Z kanani
 ! Vertical grid nesting implemented: exclude setting vertical velocity to zero 
 ! on fine grid (SadiqHuq)
@@ -380 +383 @@
           
        ELSE
-          !$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)
-             q_p(k-1,j,i) = q_p(k,j,i)
-          ENDDO
           
           DO  l = 0, 1
@@ -478 +474 @@
           
        ELSE
-          !$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)
-             s_p(k-1,j,i) = s_p(k,j,i)
-          ENDDO
           
           DO  l = 0, 1