Changeset 866 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Mar 28, 2012 6:44:41 AM (12 years ago)

Author:

raasch

Message:

bugfix for timestep calculation in case of Galilei transformation

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! use only 60% of the geostrophic wind as translation speed in case of Galilean
+! transformation and use_ug_for_galilei_tr = .T. in order to mimimize the
+! timestep
 !
 ! Former revisions:
@@ -1328 +1331 @@
             ug_vertical_gradient_level(1) == 0.0 .AND. & 
             vg_vertical_gradient_level(1) == 0.0 )  THEN
-          u_gtrans = ug_surface
-          v_gtrans = vg_surface
+          u_gtrans = ug_surface * 0.6
+          v_gtrans = vg_surface * 0.6
        ELSEIF ( use_ug_for_galilei_tr .AND.                &
                 ug_vertical_gradient_level(1) /= 0.0 )  THEN