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

Timestamp:

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

Author:

kanani

Message:

Vertical nesting implemented (SadiqHuq?)

File:

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

palm/trunk/SOURCE/timestep.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Vertical grid nesting: Sync fine and coarse grid timestep (SadiqHuq)
+! 
+! 2258 2017-06-08 07:55:13Z suehring
 ! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
 !
@@ -137 +140 @@
         ONLY:  flow_statistics_called, hom, u_max, u_max_ijk, v_max, v_max_ijk,&
                w_max, w_max_ijk
+
+    USE vertical_nesting_mod,                                                  &
+        ONLY:  vnested, vnest_timestep_sync
 
     IMPLICIT NONE
@@ -376 +382 @@
     ENDIF
 
+!
+!-- Vertical nesting: coarse and fine grid timestep has to be identical    
+    IF ( vnested )  CALL vnest_timestep_sync
+
     CALL cpu_log( log_point(12), 'calculate_timestep', 'stop' )