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_w_pw.f90

    r2718 r3538  
    2525! -----------------
    2626! $Id$
     27! Remove unnecessary double-masking of topography
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    105108
    106109       USE indices,                                                            &
    107            ONLY:  nxl, nxr, nyn, nys, nzb, nzt, wall_flags_0
     110           ONLY:  nxl, nxr, nyn, nys, nzb, nzt
    108111
    109112       USE kinds
     
    133136                         - w(k-1,j,i) * ( w(k,j,i) + w(k-1,j,i) ) )            &
    134137                                                                  * ddzu(k+1)  &
    135                                                       )                        &
    136                                       * MERGE( 1.0_wp, 0.0_wp,                 &
    137                                                BTEST( wall_flags_0(k,j,i), 3 ) )
     138                                                      )
    138139             ENDDO
    139140          ENDDO
     
    160161
    161162       USE indices,                                                            &
    162            ONLY:  nzb, nzt, wall_flags_0
     163           ONLY:  nzb, nzt
    163164
    164165       USE kinds
     
    185186                         - w(k-1,j,i) * ( w(k,j,i) + w(k-1,j,i) ) )            &
    186187                                                                  * ddzu(k+1)  &
    187                                                 )                              &
    188                                       * MERGE( 1.0_wp, 0.0_wp,                 &
    189                                                BTEST( wall_flags_0(k,j,i), 3 ) )
     188                                                )
    190189       ENDDO
    191190    END SUBROUTINE advec_w_pw_ij
Note: See TracChangeset for help on using the changeset viewer.