Changeset 4227 for palm/trunk/SOURCE/indoor_model_mod.f90

Timestamp:

Sep 10, 2019 6:04:34 PM (5 years ago)

Author:

gronemeier

Message:

implement new palm_date_time_mod; replaced namelist parameters time_utc_init and day_of_year_init by origin_date_time

File:

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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! implement new palm_date_time_mod
+!
+! 4217 2019-09-04 09:47:05Z scharf
 ! Corrected "Former revisions" section
 !
@@ -1053 +1056 @@
 !         ONLY:  c_p
 
-!     USE control_parameters,                                                    &
-!         ONLY:  rho_surface
-
-    USE date_and_time_mod,                                                     &
-        ONLY:  time_utc
+    USE control_parameters,                                                    &
+        ONLY:  time_since_reference_point
 
     USE grid_variables,                                                        &
         ONLY:  dx, dy
+
+    USE palm_date_time_mod,                                                    &
+        ONLY:  get_date_time, seconds_per_hour
 
     USE pegrid
@@ -1085 +1088 @@
     REAL(wp) ::  indoor_wall_window_temperature   !< weighted temperature of innermost wall/window layer
     REAL(wp) ::  near_facade_temperature          !< outside air temperature 10cm away from facade
+    REAL(wp) ::  second_of_day                    !< second of the current day
     REAL(wp) ::  time_utc_hour                    !< time of day (hour UTC)
 
@@ -1091 +1095 @@
 !
 !-- Determine time of day in hours. 
-    time_utc_hour = time_utc / 3600.0_wp
+    CALL get_date_time( time_since_reference_point, second_of_day=second_of_day )
+    time_utc_hour = second_of_day / seconds_per_hour
 !
 !-- Following calculations must be done for each facade element.