Changeset 4444 for palm/trunk/SOURCE/timestep.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/timestep.f90 (modified) (5 diffs)

palm/trunk/SOURCE/timestep.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Added missing OpenMP directives
 ! 
@@ -58 +61 @@
 
     USE control_parameters,                                                    &
-        ONLY:  cfl_factor, coupling_mode, dt_3d, dt_fixed, dt_max,             &
-               galilei_transformation, message_string, rans_mode,              &
-               stop_dt, terminate_coupled, terminate_coupled_remote,           &
-               timestep_reason, u_gtrans, use_ug_for_galilei_tr, v_gtrans
+        ONLY:  cfl_factor, dt_3d, dt_fixed, dt_max, galilei_transformation,    &
+               message_string, rans_mode, stop_dt, timestep_reason, u_gtrans,  &
+               use_ug_for_galilei_tr, v_gtrans
+
+#if defined( __parallel )
+    USE control_parameters,                                                    &
+        ONLY:  coupling_mode, terminate_coupled, terminate_coupled_remote
+#endif
 
     USE cpulog,                                                                &
@@ -88 +95 @@
                w_max, w_max_ijk
 
+#if defined( __parallel )
     USE vertical_nesting_mod,                                                  &
         ONLY:  vnested, vnest_timestep_sync
+#endif
 
     IMPLICIT NONE
@@ -115 +124 @@
     REAL(wp) ::  v_gtrans_l        !< 
  
+    REAL(wp), DIMENSION(2)         ::  uv_gtrans_l !<
+#if defined( __parallel )
     REAL(wp), DIMENSION(2)         ::  uv_gtrans   !< 
-    REAL(wp), DIMENSION(2)         ::  uv_gtrans_l !< 
     REAL(wp), DIMENSION(3)         ::  reduce      !< 
-    REAL(wp), DIMENSION(3)         ::  reduce_l    !< 
+    REAL(wp), DIMENSION(3)         ::  reduce_l    !<
+#endif
     REAL(wp), DIMENSION(nzb+1:nzt) ::  dxyz2_min   !<  
     !$ACC DECLARE CREATE(dxyz2_min)
@@ -382 +393 @@
     ENDIF
 
+#if defined( __parallel )
 !
 !-- Vertical nesting: coarse and fine grid timestep has to be identical    
     IF ( vnested )  CALL vnest_timestep_sync
+#endif
 
     CALL cpu_log( log_point(12), 'calculate_timestep', 'stop' )