Ignore:
Timestamp:
Sep 10, 2019 6:04:34 PM (22 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/nesting_offl_mod.f90

    r4226 r4227  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! implement new palm_date_time_mod
    2323!
    2424! Former revisions:
     
    164164               log_point_s
    165165
    166     USE date_and_time_mod,                                                     &
    167         ONLY:  time_utc_init
    168 
    169166    USE grid_variables
    170167
     
    191188               pids_id
    192189
     190    USE palm_date_time_mod,                                                    &
     191        ONLY:  get_date_time
     192
    193193    USE pegrid
    194194
     
    274274
    275275    REAL(wp) ::  fac_dt              !< interpolation factor
     276    REAL(wp) ::  time_utc_init       !< time in seconds-of-day of origin_date_time
    276277    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
    277278                                     !< bulk Richardson number of 0.2
     
    18001801       INTEGER(iwp) ::  n !< running index for chemical species
    18011802
     1803!
     1804!--    Get time_utc_init from origin_date_time
     1805       CALL get_date_time( 0.0_wp, second_of_day = time_utc_init )
    18021806
    18031807!--    Allocate arrays for geostrophic wind components. Arrays will
Note: See TracChangeset for help on using the changeset viewer.