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/surface_mod.f90

    r2575 r2638  
    1818!
    1919!------------------------------------------------------------------------------!
     20!
    2021! Current revisions:
    2122! ------------------
     
    2526! -----------------
    2627! $Id$
     28! bugfix for constant top momentumflux
     29!
     30! 2575 2017-10-24 09:57:58Z maronga
    2731! Pavement parameterization revised
    2832!
     
    15431547!
    15441548!--          Top momentum fluxes
    1545              surf%usws(num_h) = top_momentumflux_u *                           &
     1549             IF ( constant_top_momentumflux )  THEN
     1550                surf%usws(num_h) = top_momentumflux_u *                        &
    15461551                                            momentumflux_input_conversion(nzt+1)
    1547              surf%vsws(num_h) = top_momentumflux_v *                           &
     1552                surf%vsws(num_h) = top_momentumflux_v *                        &
    15481553                                            momentumflux_input_conversion(nzt+1)
     1554             ENDIF
    15491555!
    15501556!--          Increment surface indices
Note: See TracChangeset for help on using the changeset viewer.