Changeset 2091 for palm

Timestamp:

Dec 21, 2016 4:38:18 PM (8 years ago)

Author:

suehring

Message:

Bugfix in calculation of vsws

File:

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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix in calculation of vsws ( incorrect linear interpolation of us ) 
 ! 
 ! Former revisions:
@@ -1064 +1064 @@
                                      + psi_m( z0(j,i) / ol_mid ) )
 
-             vsws(j,i) = -vsws(j,i) * 0.5_wp * ( us(j,i-1) + us(j,i) )         &
+             vsws(j,i) = -vsws(j,i) * 0.5_wp * ( us(j-1,i) + us(j,i) )         &
                                     * rho_air_zw(k)