Changeset 2365 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Aug 21, 2017 2:59:59 PM (7 years ago)

Author:

kanani

Message:

Vertical nesting implemented (SadiqHuq?)

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical nesting implemented (SadiqHuq)
+! 
+! 2319 2017-07-20 17:33:17Z suehring
 ! Remove print statements
 ! 
@@ -250 +253 @@
                canyon_height, canyon_wall_left, canyon_wall_south,             &
                canyon_width_x, canyon_width_y, constant_flux_layer,            &
-               coupling_char, dp_level_ind_b, dz, dz_max, dz_stretch_factor,   &
+               coupling_char, coupling_mode,                                   &
+               dp_level_ind_b, dz, dz_max, dz_stretch_factor,                  &
                dz_stretch_level, dz_stretch_level_index, grid_level, ibc_uv_b, &
                io_blocks, io_group, inflow_l, inflow_n, inflow_r, inflow_s,    &
@@ -285 +289 @@
     USE surface_mod,                                                           &
         ONLY:  get_topography_top_index, init_bc
+
+    USE vertical_nesting_mod,                                                  &
+        ONLY:  vnested, vnest_init_grid
 
     IMPLICIT NONE
@@ -2000 +2007 @@
     CALL exchange_horiz( l_wall, nbgp )     
 
+!
+!-- Vertical nesting: communicate vertical grid level arrays between fine and
+!-- coarse grid
+    IF ( vnested )  CALL vnest_init_grid
 
  END SUBROUTINE init_grid