Changeset 2638 for palm/trunk/SOURCE/surface_mod.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/surface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -18 +18 @@
 !
 !------------------------------------------------------------------------------!
+!
 ! Current revisions:
 ! ------------------
@@ -25 +26 @@
 ! -----------------
 ! $Id$
+! bugfix for constant top momentumflux
+! 
+! 2575 2017-10-24 09:57:58Z maronga
 ! Pavement parameterization revised
 ! 
@@ -1543 +1547 @@
 !
 !--          Top momentum fluxes
-             surf%usws(num_h) = top_momentumflux_u *                           &
+             IF ( constant_top_momentumflux )  THEN
+                surf%usws(num_h) = top_momentumflux_u *                        &
                                             momentumflux_input_conversion(nzt+1)
-             surf%vsws(num_h) = top_momentumflux_v *                           &
+                surf%vsws(num_h) = top_momentumflux_v *                        &
                                             momentumflux_input_conversion(nzt+1)
+             ENDIF
 !
 !--          Increment surface indices