Changeset 1073 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Dec 3, 2012 7:15:41 AM (11 years ago)

Author:

raasch

Message:

FORTRAN bugfix for r1072

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (1 diff)

palm/trunk/SOURCE/init_3d_model.f90

@@ -897 +897 @@
 !--       Determine the near-surface water flux
           IF ( humidity  .OR.  passive_scalar )  THEN
-             IF ( cloud_physics .AND. icloud_scheme )  THEN
+             IF ( cloud_physics  .AND.  icloud_scheme == 0 )  THEN
                 IF ( constant_waterflux_qr )  THEN
                    qrsws = surface_waterflux_qr