Changeset 3646 for palm/trunk/SOURCE/biometeorology_mod.f90

Timestamp:

Dec 28, 2018 5:58:49 PM (5 years ago)

Author:

kanani

Message:

Bugfix: replace simulated_time by time_since_reference_point where required

File:

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

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Remove check for simulated_time > 0, it is not required since biometeorology
+! is only called from time_integration and not during time_integration_spinup
+! 
+! 3614 2018-12-10 07:05:46Z raasch
 ! unused variables removed
 ! 
@@ -101 +105 @@
        ONLY:  average_count_3d, biometeorology, dz, dz_stretch_factor,         &
               dz_stretch_level, humidity, initializing_actions, nz_do3d,       &
-              simulated_time, surface_pressure
+              surface_pressure
 
     USE date_and_time_mod,                                                                                                        &
@@ -1343 +1347 @@
 !
 !-- fill out the MRT 2D grid from appropriate source (RTM, RRTMG,...)
-    IF ( simulated_time > 0.0_wp ) THEN
-       CALL bio_calculate_mrt_grid ( av )
-    ENDIF
+    CALL bio_calculate_mrt_grid ( av )
 
     DO i = nxl, nxr
@@ -1355 +1357 @@
 !
 !--       Determine input only if 
-          IF ( simulated_time > 0.0_wp ) THEN
-             CALL bio_get_thermal_index_input_ij ( av, i, j, ta, vp,           &
-                ws, pair, tmrt_ij )
-          END IF
+          CALL bio_get_thermal_index_input_ij ( av, i, j, ta, vp,           &
+                                                ws, pair, tmrt_ij )
 !
 !--       Only proceed if input is available