Changeset 2638 for palm/trunk/SOURCE/diffusion_v.f90
- Timestamp:
- Nov 23, 2017 12:44:23 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusion_v.f90
r2233 r2638 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for constant top momentumflux 28 ! 29 ! 2233 2017-05-30 18:08:54Z suehring 27 30 ! 28 31 ! 2232 2017-05-30 17:47:52Z suehring … … 316 319 ! 317 320 !-- Add momentum flux at model top 318 IF ( use_top_fluxes ) THEN321 IF ( use_top_fluxes .AND. constant_top_momentumflux ) THEN 319 322 surf_s = surf_def_h(2)%start_index(j,i) 320 323 surf_e = surf_def_h(2)%end_index(j,i) … … 538 541 ! 539 542 !-- Add momentum flux at model top 540 IF ( use_top_fluxes ) THEN543 IF ( use_top_fluxes .AND. constant_top_momentumflux ) THEN 541 544 surf_s = surf_def_h(2)%start_index(j,i) 542 545 surf_e = surf_def_h(2)%end_index(j,i)
Note: See TracChangeset
for help on using the changeset viewer.