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

Timestamp:

Jul 17, 2019 3:14:26 PM (5 years ago)

Author:

gronemeier

Message:

timestep.f90:

• consider 2*Km within diffusion criterion as Km is considered twice within the diffusion of e,
• in RANS mode, instead of considering each wind component individually use the wind speed of 3d wind vector in CFL criterion
• do not limit the increase of dt based on its previous value in RANS mode

other:

• remove dt_old

File:

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

palm/trunk/SOURCE/vertical_nesting_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! remove old_dt
+! 
+! 3802 2019-03-17 13:33:42Z raasch
 ! unused subroutines commented out
 ! 
@@ -3943 +3946 @@
 #if defined( __parallel )
          USE control_parameters,                                                    &
-             ONLY:  coupling_mode, dt_3d, old_dt
+             ONLY:  coupling_mode, dt_3d
       
          USE interfaces
@@ -3977 +3980 @@
 !-- Identical timestep for coarse and fine grids
           dt_3d = MIN( dtc, dtf )
-          !> @fixme setting old_dt might be obsolete at this point
-          !>   Due to changes in timestep routine, setting of old_dt might be
-          !>   not necessary any more at this point. However, could not be
-          !>   tested so far.
-          !>   2018-05-18, gronemeier
-          old_dt = dt_3d
 #endif
        END SUBROUTINE vnest_timestep_sync