Changeset 315 for palm/trunk/SOURCE

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:

• palm/trunk/SOURCE/prandtl_fluxes.f90 (modified) (2 diffs)

palm/trunk/SOURCE/prandtl_fluxes.f90

@@ -6 +6 @@
 ! Saturation condition at (sea) surface is not used in precursor runs (only
 ! in the following coupled runs)
+! Bugfix: qsws was calculated in case of constant heatflux = .FALSE.
 !
 ! Former revisions:
@@ -330 +331 @@
 !
 !-- Compute the vertical water/scalar flux
-    IF ( .NOT. constant_heatflux .AND. ( humidity .OR. passive_scalar ) ) THEN
+    IF ( .NOT. constant_waterflux .AND. ( humidity .OR. passive_scalar ) ) THEN
        !$OMP PARALLEL DO
        DO  i = nxl-1, nxr+1