Changeset 2765 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jan 22, 2018 11:34:58 AM (6 years ago)

Author:

maronga

Message:

major bugfix in calculation of aerodynamic resistance for vertical surface elements

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Set initial value for time_since_reference_point
+! 
+! 2746 2018-01-15 12:06:04Z suehring
 ! +plant_canopy
 ! 
@@ -1451 +1454 @@
     REAL(wp) ::  time_restart = 9999999.9_wp                   !< time at which run shall be terminated and restarted
     REAL(wp) ::  time_run_control = 0.0_wp                     !< time since last RUN_CONTROL output
-    REAL(wp) ::  time_since_reference_point                    !< time after atmosphere-ocean coupling has been activated, or time after spinup phase of LSM has been finished
+    REAL(wp) ::  time_since_reference_point = 0.0_wp           !< time after atmosphere-ocean coupling has been activated, or time after spinup phase of LSM has been finished
     REAL(wp) ::  top_heatflux = 9999999.9_wp                   !< namelist parameter
     REAL(wp) ::  top_momentumflux_u = 9999999.9_wp             !< namelist parameter