Changeset 3646 for palm/trunk/SOURCE/chemistry_model_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/chemistry_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Bugfix: use time_since_reference_point instead of simulated_time (relevant
+! when using wall/soil spinup)
+! 
+! 3643 2018-12-24 13:16:19Z knoop
 ! Bugfix: set found logical correct in chem_data_output_2d
 ! 
@@ -1923 +1927 @@
     USE statistics,                                                          &
          ONLY:  weight_pres
-    USE control_parameters,                                                 &
-         ONLY:  dt_3d, intermediate_timestep_count, simulated_time
+    USE control_parameters,                                                  &
+         ONLY:  dt_3d, intermediate_timestep_count, time_since_reference_point
 
     IMPLICIT NONE
@@ -2014 +2018 @@
 
        IF(maxval(rcntrl) > 0.0)   THEN    ! Only if rcntrl is set
-          IF( simulated_time <= 2*dt_3d)  THEN
+          IF( time_since_reference_point <= 2*dt_3d)  THEN
              rcntrl_local = 0
-             !
-             !--   todo: remove (kanani)
-             !                  WRITE(9,'(a,2f10.3)') 'USE Default rcntrl in the first steps ',simulated_time,dt_3d
           ELSE
              rcntrl_local = rcntrl