Changeset 2720 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Jan 2, 2018 4:27:15 PM (6 years ago)

Author:

kanani

Message:

update of palm version

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Correction of comment
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -6908 +6911 @@
 !--        data from the last time step is used here.
 
-!--        Workarounf to keep resistances positive
+!--        Workaround: use single r_a as stability is only treated for the
+!--        average temperature
            r_a = ( surf_usm_h%pt1(m) - surf_usm_h%pt_surface(m) ) /                            &
                  ( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )