Changeset 2569


Ignore:
Timestamp:
Oct 20, 2017 11:54:42 AM (7 years ago)
Author:
kanani
Message:

Removed redundant code in boundary_conds

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/boundary_conds.f90

    r2365 r2569  
    2525! -----------------
    2626! $Id$
     27! Removed redundant code for ibc_s_b=1 and ibc_q_b=1
     28!
     29! 2365 2017-08-21 14:59:59Z kanani
    2730! Vertical grid nesting implemented: exclude setting vertical velocity to zero
    2831! on fine grid (SadiqHuq)
     
    380383         
    381384       ELSE
    382           !$OMP PARALLEL DO PRIVATE( i, j, k )
    383           DO  m = 1, bc_h(0)%ns
    384              i = bc_h(0)%i(m)           
    385              j = bc_h(0)%j(m)
    386              k = bc_h(0)%k(m)
    387              q_p(k-1,j,i) = q_p(k,j,i)
    388           ENDDO
    389385         
    390386          DO  l = 0, 1
     
    478474         
    479475       ELSE
    480           !$OMP PARALLEL DO PRIVATE( i, j, k )
    481           DO  m = 1, bc_h(0)%ns
    482              i = bc_h(0)%i(m)           
    483              j = bc_h(0)%j(m)
    484              k = bc_h(0)%k(m)
    485              s_p(k-1,j,i) = s_p(k,j,i)
    486           ENDDO
    487476         
    488477          DO  l = 0, 1
Note: See TracChangeset for help on using the changeset viewer.