Ignore:
Timestamp:
Nov 20, 2018 10:55:41 AM (3 years ago)
Author:
suehring
Message:

Remove unnecessary double masking of topography in advection and buoyancy terms

File:
1 edited

Legend:

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

    r2718 r3538  
    2626! -----------------
    2727! $Id$
     28! Remove unnecessary double-masking of topography
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2831! Corrected "Former revisions" section
    2932!
     
    106109
    107110       USE indices,                                                            &
    108            ONLY:  nxl, nxr, nyn, nysv, nzb, nzt, wall_flags_0
     111           ONLY:  nxl, nxr, nyn, nysv, nzb, nzt
    109112
    110113       USE kinds
     
    134137                         - v(k-1,j,i) * ( w(k-1,j-1,i) + w(k-1,j,i) ) )        &
    135138                                                                  * ddzw(k)    &
    136                                                       )                        &
    137                                       * MERGE( 1.0_wp, 0.0_wp,                 &
    138                                                BTEST( wall_flags_0(k,j,i), 2 ) )
     139                                                      )
    139140             ENDDO
    140141          ENDDO
     
    161162
    162163       USE indices,                                                            &
    163            ONLY:  nzb, nzt, wall_flags_0
     164           ONLY:  nzb, nzt
    164165
    165166       USE kinds
     
    187188                         - v(k-1,j,i) * ( w(k-1,j-1,i) + w(k-1,j,i) ) )        &
    188189                                                                  * ddzw(k)    &
    189                                                 )                              &
    190                                       * MERGE( 1.0_wp, 0.0_wp,                 &
    191                                                BTEST( wall_flags_0(k,j,i), 2 ) )
     190                                                )
    192191       ENDDO
    193192 
Note: See TracChangeset for help on using the changeset viewer.