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

Timestamp:

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

Author:

kanani

Message:

Vertical nesting implemented (SadiqHuq?)

File:

• palm/trunk/SOURCE/read_var_list.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_var_list.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical grid nesting implemented (SadiqHuq)
+! 
+! 2339 2017-08-07 13:55:26Z gronemeier
 ! corrected timestamp in header
 ! 
@@ -251 +254 @@
     USE synthetic_turbulence_generator_mod,                                    &
         ONLY:  stg_read_restart_data
+
+    USE vertical_nesting_mod,                                                  &
+        ONLY:  vnest_init
 
     IMPLICIT NONE
@@ -785 +791 @@
              READ ( 13 )  vg_vertical_gradient_level_ind
           CASE ( 'virtual_flight' )
-             READ ( 13 ) virtual_flight
+             READ ( 13 )  virtual_flight
+          CASE ( 'vnest_init' )
+             READ ( 13 )  vnest_init
           CASE ( 'volume_flow_area' )
              READ ( 13 )  volume_flow_area