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

Timestamp:

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

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4392 2020-01-31 16:14:57Z pavelkrc
 ! Some error numbers revised to prevent double usage
 ! 
@@ -169 +172 @@
     USE transpose_indices
 
+#if defined( __parallel )
     USE vertical_nesting_mod,                                                  &
         ONLY:  vnested,                                                        &
                vnest_check_parameters
+#endif
 
 
@@ -196 +201 @@
     LOGICAL     ::  found                            !< flag, true if output variable is already marked for averaging
 
+    REAL(wp)    ::  gradient                         !< local gradient
+#if defined( __parallel )
     REAL(wp)    ::  dt_spinup_max                    !< maximum spinup timestep in nested domains
-    REAL(wp)    ::  gradient                         !< local gradient
     REAL(wp)    ::  remote = 0.0_wp                  !< MPI id of remote processor
     REAL(wp)    ::  spinup_time_max                  !< maximum spinup time in nested domains
     REAL(wp)    ::  time_to_be_simulated_from_reference_point  !< time to be simulated from reference point
+#endif
 
 
@@ -3175 +3182 @@
     ENDIF
 
+#if defined( __parallel )
 !
 !-- Vertical nesting: check fine and coarse grid compatibility for data exchange
     IF ( vnested )  CALL vnest_check_parameters
+#endif
 
 !