Changeset 3065 for palm/trunk/SOURCE/pmc_interface_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/pmc_interface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! dz was replaced by dz(1)
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -913 +916 @@
           parent_grid_info_real(5) = lower_left_coord_x + ( nx + 1 ) * dx
           parent_grid_info_real(6) = lower_left_coord_y + ( ny + 1 ) * dy
-          parent_grid_info_real(7) = dz
+          parent_grid_info_real(7) = dz(1)
 
           parent_grid_info_int(1)  = nx
@@ -1318 +1321 @@
        fval(3) = dx
        fval(4) = dy
-       fval(5) = dz
+       fval(5) = dz(1)
 
        IF ( myid == 0 )  THEN