Changeset 4227 for palm/trunk/SOURCE/nesting_offl_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/nesting_offl_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! implement new palm_date_time_mod
 ! 
 ! Former revisions:
@@ -164 +164 @@
                log_point_s
 
-    USE date_and_time_mod,                                                     &
-        ONLY:  time_utc_init
-
     USE grid_variables
 
@@ -191 +188 @@
                pids_id
 
+    USE palm_date_time_mod,                                                    &
+        ONLY:  get_date_time
+
     USE pegrid
 
@@ -274 +274 @@
 
     REAL(wp) ::  fac_dt              !< interpolation factor
+    REAL(wp) ::  time_utc_init       !< time in seconds-of-day of origin_date_time
     REAL(wp) ::  zi_ribulk = 0.0_wp  !< boundary-layer depth according to bulk Richardson criterion, i.e. the height where Ri_bulk exceeds the critical
                                      !< bulk Richardson number of 0.2
@@ -1800 +1801 @@
        INTEGER(iwp) ::  n !< running index for chemical species
 
+!
+!--    Get time_utc_init from origin_date_time
+       CALL get_date_time( 0.0_wp, second_of_day = time_utc_init )
 
 !--    Allocate arrays for geostrophic wind components. Arrays will