Changeset 2610 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 15, 2017 8:24:11 AM (6 years ago)
Author:
raasch
Message:

use of wildcards in file connection statements enabled, bugfix in logarithmic interpolation of v-component for particles (usws was used by mistake)

File:
1 edited

Legend:

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

    r2606 r2610  
    2525! -----------------
    2626! $Id$
     27! bugfix in logarithmic interpolation of v-component (usws was used by mistake)
     28!
     29! 2606 2017-11-10 10:36:31Z schwenkel
    2730! Changed particle box locations: center of particle box now coincides
    2831! with scalar grid point of same index.
     
    431434!--                large particle speed.
    432435                   us_int    = MAX( surf_def_h(0)%us(surf_start), 0.01_wp ) 
    433                    vsws_int  = surf_def_h(0)%usws(surf_start)
     436                   vsws_int  = surf_def_h(0)%vsws(surf_start)
    434437                ELSEIF ( surf_lsm_h%start_index(jlog,ilog) <=                  &
    435438                         surf_lsm_h%end_index(jlog,ilog) )  THEN
    436439                   surf_start = surf_lsm_h%start_index(jlog,ilog)
    437440                   us_int    = MAX( surf_lsm_h%us(surf_start), 0.01_wp ) 
    438                    vsws_int  = surf_lsm_h%usws(surf_start)
     441                   vsws_int  = surf_lsm_h%vsws(surf_start)
    439442                ELSEIF ( surf_usm_h%start_index(jlog,ilog) <=                  &
    440443                         surf_usm_h%end_index(jlog,ilog) )  THEN
    441444                   surf_start = surf_usm_h%start_index(jlog,ilog)
    442445                   us_int    = MAX( surf_usm_h%us(surf_start), 0.01_wp ) 
    443                    vsws_int  = surf_usm_h%usws(surf_start)
     446                   vsws_int  = surf_usm_h%vsws(surf_start)
    444447                ENDIF
    445448!
Note: See TracChangeset for help on using the changeset viewer.