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

Timestamp:

Nov 4, 2015 2:47:01 PM (8 years ago)

Author:

maronga

Message:

several bugfixes related to the new surface layer routine and land-surface-radiation interaction

File:

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

palm/trunk/SOURCE/init_1d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Set initial time step to 10 s to avoid instability of the 1d model for small
+! grid spacings
 !
 ! Former revisions:
@@ -81 +82 @@
 !>
 !> @todo harmonize code with new surface_layer_fluxes module
+!> @bug 1D model crashes when using small grid spacings in the order of 1 m
 !------------------------------------------------------------------------------!
  SUBROUTINE init_1d_model
@@ -262 +264 @@
 !-- Determine the time step at the start of a 1D-simulation and
 !-- determine and printout quantities used for run control
-    CALL timestep_1d
+    dt_1d = 10.0_wp
     CALL run_control_1d
 
@@ -864 +866 @@
     USE pegrid
     
-    USE control_parameters,                                                              &
+    USE control_parameters,                                                    &
         ONLY:  message_string