Changeset 3065 for palm/trunk/SOURCE/plant_canopy_model_mod.f90

Timestamp:

Jun 12, 2018 7:03:02 AM (6 years ago)

Author:

Giersch

Message:

New vertical stretching procedure has been introduced

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! dz was replaced by the help of zw to allow for vertical stretching
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -550 +553 @@
 
        USE control_parameters,                                                 &
-           ONLY: dz, passive_scalar
+           ONLY: passive_scalar
 
 
@@ -568 +571 @@
        REAL(wp) ::  canopy_height       !< canopy height (in m)
        
-       canopy_height = pch_index * dz
+       canopy_height = zw(pch_index)
 
        WRITE ( io, 1 )  canopy_mode, canopy_height, pch_index,                 &
@@ -668 +671 @@
 
        USE control_parameters,                                                 &
-           ONLY: dz, humidity, io_blocks, io_group, message_string, ocean,     &
+           ONLY: humidity, io_blocks, io_group, message_string, ocean,         &
                  passive_scalar, urban_surface
 
@@ -761 +764 @@
 !--       Use beta function for lad-profile construction
           int_bpdf = 0.0_wp
-          canopy_height = pch_index * dz
+          canopy_height = zw(pch_index)
 
           DO k = 0, pch_index