Ignore:
Timestamp:
Jul 30, 2007 10:49:46 AM (14 years ago)
Author:
raasch
Message:

further preliminary changes concerning coupling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/diffusion_u.f90

    r102 r103  
    204204!--          Vertical diffusion at the first gridpoint below the top boundary,
    205205!--          if the momentum flux at the top is prescribed by the user
    206              IF ( use_top_fluxes )  THEN
     206             IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
    207207                k = nzt
    208208!
     
    368368!--    Vertical diffusion at the first gridpoint below the top boundary,
    369369!--    if the momentum flux at the top is prescribed by the user
    370        IF ( use_top_fluxes )  THEN
     370       IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
    371371          k = nzt
    372372!
Note: See TracChangeset for help on using the changeset viewer.