Ignore:
Timestamp:
Sep 10, 2019 6:04:34 PM (21 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r4196 r4227  
    2525! -----------------
    2626! $Id$
     27! implement new palm_date_time_mod
     28!
     29! 4223 2019-09-10 09:20:47Z gronemeier
    2730! Write information about rotation angle
    2831!
     
    7578        ONLY:  log_point_s
    7679
    77     USE date_and_time_mod,                                                     &
    78         ONLY:  day_of_year_init, time_utc_init
    79 
    8080    USE grid_variables,                                                        &
    8181        ONLY:  dx, dy
     
    100100               sa_vertical_gradient, sa_vertical_gradient_level,               &
    101101               sa_vertical_gradient_level_ind
     102
     103    USE palm_date_time_mod,                                                    &
     104        ONLY:  get_date_time
    102105
    103106    USE pegrid
     
    137140    CHARACTER (LEN=70) ::  char1               !< dummy varialbe used for various strings
    138141    CHARACTER (LEN=70) ::  char2               !< string containing informating about the advected distance in case of Galilei transformation
     142    CHARACTER (LEN=23) ::  date_time_str       !< string for date and time information
    139143    CHARACTER (LEN=70) ::  dopr_chr            !< string indicating profile output variables
    140144    CHARACTER (LEN=70) ::  do2d_xy             !< string indicating 2D-xy output variables
     
    14721476
    14731477!
    1474 !-- Day of year, UTC
    1475     WRITE ( io, 456 )  day_of_year_init, time_utc_init
    1476    
     1478!-- Day and time during model start
     1479    CALL get_date_time( 0.0_wp, date_time_str=date_time_str )
     1480    WRITE ( io, 456 )  TRIM( date_time_str )
     1481
    14771482!
    14781483!-- Other quantities
     
    18581863454 FORMAT ('    TKE is not allowed to fall below ',E9.2,' (m/s)**2')
    18591864455 FORMAT ('    initial TKE is prescribed as ',E9.2,' (m/s)**2')
    1860 456 FORMAT (/'    Day of the year at model start :   day_init      =     ',I3 &
    1861             /'    UTC time at model start        :   time_utc_init = ',F7.1,' s')
     1865456 FORMAT (/'    Date and time at model start : ',A)
    18621866457 FORMAT ('    RANS-mode constants: c_0 = ',F9.5/         &
    18631867            '                         c_1 = ',F9.5/         &
Note: See TracChangeset for help on using the changeset viewer.