Changeset 3146 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Jul 18, 2018 10:36:19 PM (6 years ago)

Author:

maronga

Message:

major bugfix in calculation of Obukhov length and subsequent handling of surface information

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Adjustments for new surface structure
 ! 
 ! Former revisions:
@@ -2320 +2320 @@
 !
 !--       Update virtual potential temperature
-          vpt(k+k_off,j+j_off,i+i_off) = pt(k+k_off,j+j_off,i+i_off) *         &
+          surf%vpt_surface(m) = surf%pt_surface(m) *         &
                      ( 1.0_wp + 0.61_wp * q(k+k_off,j+j_off,i+i_off) )
 
+        
+                     
        ENDDO