Changeset 46 for palm/trunk/SOURCE/init_1d_model.f90

Timestamp:

Mar 5, 2007 6:00:47 AM (17 years ago)

Author:

raasch

Message:

updating parts of Marcus changes

File:

• palm/trunk/SOURCE/init_1d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_1d_model.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: preset of tendencies te_em, te_um, te_vm
 !
 ! Former revisions:
@@ -128 +128 @@
 
 !
+!-- Tendencies must be preset in order to avoid runtime errors within the
+!-- first Runge-Kutta step
+    te_em = 0.0
+    te_um = 0.0
+    te_vm = 0.0
+
+!
 !-- Set start time in hh:mm:ss - format
     simulated_time_chr = time_to_string( simulated_time_1d )