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

Timestamp:

Sep 10, 2019 6:04:34 PM (6 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/header.f90 (modified) (6 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! implement new palm_date_time_mod
+! 
+! 4223 2019-09-10 09:20:47Z gronemeier
 ! Write information about rotation angle
 ! 
@@ -75 +78 @@
         ONLY:  log_point_s
 
-    USE date_and_time_mod,                                                     &
-        ONLY:  day_of_year_init, time_utc_init
-
     USE grid_variables,                                                        &
         ONLY:  dx, dy
@@ -100 +100 @@
                sa_vertical_gradient, sa_vertical_gradient_level,               &
                sa_vertical_gradient_level_ind
+
+    USE palm_date_time_mod,                                                    &
+        ONLY:  get_date_time
 
     USE pegrid
@@ -137 +140 @@
     CHARACTER (LEN=70) ::  char1               !< dummy varialbe used for various strings
     CHARACTER (LEN=70) ::  char2               !< string containing informating about the advected distance in case of Galilei transformation
+    CHARACTER (LEN=23) ::  date_time_str       !< string for date and time information
     CHARACTER (LEN=70) ::  dopr_chr            !< string indicating profile output variables
     CHARACTER (LEN=70) ::  do2d_xy             !< string indicating 2D-xy output variables
@@ -1472 +1476 @@
 
 !
-!-- Day of year, UTC
-    WRITE ( io, 456 )  day_of_year_init, time_utc_init
-    
+!-- Day and time during model start
+    CALL get_date_time( 0.0_wp, date_time_str=date_time_str )
+    WRITE ( io, 456 )  TRIM( date_time_str )
+
 !
 !-- Other quantities
@@ -1858 +1863 @@
 454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')
 455 FORMAT ('    initial TKE is prescribed as ',E9.2,' (m/s)**2')
-456 FORMAT (/'    Day of the year at model start :   day_init      =     ',I3 &
-            /'    UTC time at model start        :   time_utc_init = ',F7.1,' s')
+456 FORMAT (/'    Date and time at model start : ',A)
 457 FORMAT ('    RANS-mode constants: c_0 = ',F9.5/         &
             '                         c_1 = ',F9.5/         &