Ignore:
Timestamp:
May 30, 2017 5:47:52 PM (4 years ago)
Author:
suehring
Message:

Adjustments according new topography and surface-modelling concept implemented

File:
1 edited

Legend:

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

    r2101 r2232  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Adjustments to new topography concept
    2323!
    2424! Former revisions:
     
    7575
    7676       USE indices,                                                            &
    77            ONLY:  ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb_s_inner, nzt
     77           ONLY:  ngp_2dh_s_inner, nxl, nxr, nyn, nys, nzb, nzb, nzt,          &
     78                  wall_flags_0
    7879
    7980       USE kinds
     
    118119          DO  i = nxl, nxr
    119120             DO  j =  nys, nyn
    120                 DO  k = nzb_s_inner(j,i), nzt+1
    121                    sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i)
     121                DO  k = nzb, nzt+1
     122                   sums_l(k,pr,tn) = sums_l(k,pr,tn) + var(k,j,i)              &
     123                                     * MERGE( 1.0_wp, 0.0_wp,                  &
     124                                              BTEST( wall_flags_0(k,j,i), 22 ) )
    122125                ENDDO
    123126             ENDDO
Note: See TracChangeset for help on using the changeset viewer.