Changeset 2610 for palm/trunk/SOURCE/lpm_advec.f90

Timestamp:

Nov 15, 2017 8:24:11 AM (7 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:

• palm/trunk/SOURCE/lpm_advec.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_advec.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix in logarithmic interpolation of v-component (usws was used by mistake)
+! 
+! 2606 2017-11-10 10:36:31Z schwenkel
 ! Changed particle box locations: center of particle box now coincides 
 ! with scalar grid point of same index.
@@ -431 +434 @@
 !--                large particle speed.
                    us_int    = MAX( surf_def_h(0)%us(surf_start), 0.01_wp )  
-                   vsws_int  = surf_def_h(0)%usws(surf_start)
+                   vsws_int  = surf_def_h(0)%vsws(surf_start)
                 ELSEIF ( surf_lsm_h%start_index(jlog,ilog) <=                  &
                          surf_lsm_h%end_index(jlog,ilog) )  THEN
                    surf_start = surf_lsm_h%start_index(jlog,ilog)
                    us_int    = MAX( surf_lsm_h%us(surf_start), 0.01_wp )  
-                   vsws_int  = surf_lsm_h%usws(surf_start)
+                   vsws_int  = surf_lsm_h%vsws(surf_start)
                 ELSEIF ( surf_usm_h%start_index(jlog,ilog) <=                  &
                          surf_usm_h%end_index(jlog,ilog) )  THEN
                    surf_start = surf_usm_h%start_index(jlog,ilog)
                    us_int    = MAX( surf_usm_h%us(surf_start), 0.01_wp )  
-                   vsws_int  = surf_usm_h%usws(surf_start)
+                   vsws_int  = surf_usm_h%vsws(surf_start)
                 ENDIF 
 !