Changeset 315 for palm


Ignore:
Timestamp:
May 13, 2009 10:57:59 AM (16 years ago)
Author:
raasch
Message:

bugfix: qsws was calculated in case of constant_heatflux = .FALSE.

File:
1 edited

Legend:

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

    r291 r315  
    66! Saturation condition at (sea) surface is not used in precursor runs (only
    77! in the following coupled runs)
     8! Bugfix: qsws was calculated in case of constant heatflux = .FALSE.
    89!
    910! Former revisions:
     
    330331!
    331332!-- Compute the vertical water/scalar flux
    332     IF ( .NOT. constant_heatflux .AND. ( humidity .OR. passive_scalar ) ) THEN
     333    IF ( .NOT. constant_waterflux .AND. ( humidity .OR. passive_scalar ) ) THEN
    333334       !$OMP PARALLEL DO
    334335       DO  i = nxl-1, nxr+1
Note: See TracChangeset for help on using the changeset viewer.