Changeset 2365 for palm/trunk/SOURCE/write_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/write_var_list.f90 (modified) (3 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical nesting implemented (SadiqHuq)
+! 
+! 2339 2017-08-07 13:55:26Z gronemeier
 ! corrected timestamp in header
 ! 
@@ -224 +227 @@
                v_max_ijk, w_max, w_max_ijk
 
+    USE vertical_nesting_mod,                                                  &
+        ONLY:  vnest_init
 
     IMPLICIT NONE
@@ -695 +700 @@
     WRITE ( 14 )  'virtual_flight                '
     WRITE ( 14 )  virtual_flight
+    WRITE ( 14 )  'vnest_init                    '
+    WRITE ( 14 )  vnest_init
     WRITE ( 14 )  'volume_flow_area              '
     WRITE ( 14 )  volume_flow_area