Changeset 2638 for palm/trunk/SOURCE/diffusion_u.f90

Timestamp:

Nov 23, 2017 12:44:23 PM (6 years ago)

Author:

raasch

Message:

bugfix for cases with constant top momentumflux

File:

• palm/trunk/SOURCE/diffusion_u.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diffusion_u.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for constant top momentumflux
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -328 +331 @@
 !
 !--          Add momentum flux at model top
-             IF ( use_top_fluxes )  THEN
+             IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
                 surf_s = surf_def_h(2)%start_index(j,i)
                 surf_e = surf_def_h(2)%end_index(j,i)
@@ -550 +553 @@
 !
 !--    Add momentum flux at model top
-       IF ( use_top_fluxes )  THEN
+       IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
           surf_s = surf_def_h(2)%start_index(j,i)
           surf_e = surf_def_h(2)%end_index(j,i)