Changeset 4444 for palm/trunk/SOURCE/vertical_nesting_mod.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (5 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/vertical_nesting_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -85 +88 @@
                                                                                !> identical in PARIN & PARIN_N
 
-
+#if defined( __parallel )
 
     INTEGER(iwp),DIMENSION(3,2)               :: bdims = 0        !> sub-domain grid topology of current PE
@@ -3968 +3971 @@
        END SUBROUTINE vnest_deallocate
 
+#endif
  END MODULE vertical_nesting_mod