Changeset 3271 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

Timestamp:

Sep 24, 2018 8:20:34 AM (6 years ago)

Author:

suehring

Message:

Several critical bugfixes: initialization of surface temperature at water bodies; consider special case in initialization of vertical natural surface elements

File:

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

palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Comment revised
+! 
+! 3157 2018-07-19 21:08:49Z maronga
 ! Added local free convection velocity scale w_lfc in calculation of uvw_abs.
 ! This can be switche on/off by the user via the flag namelist parameter 
@@ -1580 +1583 @@
 !-- Calculate potential temperature, specific humidity, and virtual potential
 !-- temperature at first grid level
-!-- ( only for upward-facing surfs )
     SUBROUTINE calc_pt_q