Changeset 2256 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Jun 7, 2017 1:58:08 PM (7 years ago)

Author:

suehring

Message:

change default value of zeta_min; enable scalar/heat/water-fluxes at downward-facing surfaces, bugfix Makefile

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -24 +24 @@
 ! Former revisions:
 ! -----------------
-
-! Revision 1.1  2016/12/20 10:06:06  suehring
+! $Id$
+! Enable heating at downward-facing surfaces
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 ! Initial revision
 !
@@ -1351 +1353 @@
                    ENDIF
 !
-!--             Set heat-flux at downward-facing surfaces to zero
+!--             Set heat-flux at downward-facing surfaces
                 ELSE
-                   surf%shf(num_h) = 0.0_wp
+                   surf%shf(num_h) = wall_heatflux(5) *                        &
+                                             heatflux_input_conversion(k)
                 ENDIF
 
@@ -1369 +1372 @@
                       ENDIF
                    ELSE
-                      surf%qsws(num_h) = 0.0_wp
+                      surf%qsws(num_h) = wall_humidityflux(5) *                &
+                                             heatflux_input_conversion(k)
                    ENDIF
                 ENDIF
@@ -1379 +1383 @@
 
                          IF ( k-1 /= 0 )                                       &
-                            surf%ssws(num_h) = wall_scalarflux(0) *            &
-                                                  waterflux_input_conversion(k-1)
+                            surf%ssws(num_h) = wall_scalarflux(0)
 
                       ELSE
@@ -1386 +1389 @@
                       ENDIF
                    ELSE
-                      surf%ssws(num_h) = 0.0_wp
+                      surf%ssws(num_h) = wall_scalarflux(5)
                    ENDIF
                 ENDIF