Ignore:
Timestamp:
Nov 23, 2017 12:44:23 PM (4 years ago)
Author:
raasch
Message:

bugfix for cases with constant top momentumflux

File:
1 edited

Legend:

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

    r2233 r2638  
    2525! -----------------
    2626! $Id$
     27! bugfix for constant top momentumflux
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    316319!
    317320!--          Add momentum flux at model top
    318              IF ( use_top_fluxes )  THEN
     321             IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
    319322                surf_s = surf_def_h(2)%start_index(j,i)
    320323                surf_e = surf_def_h(2)%end_index(j,i)
     
    538541!
    539542!--    Add momentum flux at model top
    540        IF ( use_top_fluxes )  THEN
     543       IF ( use_top_fluxes  .AND.  constant_top_momentumflux )  THEN
    541544          surf_s = surf_def_h(2)%start_index(j,i)
    542545          surf_e = surf_def_h(2)%end_index(j,i)
Note: See TracChangeset for help on using the changeset viewer.