Changeset 4101 for palm/trunk/SOURCE/write_restart_data_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/write_restart_data_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! remove old_dt
+! 
+! 4039 2019-06-18 10:32:41Z suehring
 ! Modularize diagnostic output
 ! 
@@ -502 +505 @@
        WRITE ( 14 )  ocean_mode
 
-       CALL wrd_write_string( 'old_dt' ) 
-       WRITE ( 14 )  old_dt
-
        CALL wrd_write_string( 'omega' ) 
        WRITE ( 14 )  omega