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

Timestamp:

Jul 30, 2007 10:49:46 AM (17 years ago)

Author:

raasch

Message:

further preliminary changes concerning coupling

File:

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

palm/trunk/SOURCE/diffusion_u.f90

@@ -204 +204 @@
 !--          Vertical diffusion at the first gridpoint below the top boundary,
 !--          if the momentum flux at the top is prescribed by the user
-             IF ( use_top_fluxes )  THEN
+             IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
                 k = nzt
 !
@@ -368 +368 @@
 !--    Vertical diffusion at the first gridpoint below the top boundary,
 !--    if the momentum flux at the top is prescribed by the user
-       IF ( use_top_fluxes )  THEN
+       IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
           k = nzt
 !