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/indoor_model_mod.f90

    r4217 r4227  
    2121! Current revisions:
    2222! -----------------
    23 !
    24 !
     23! 
     24! 
    2525! Former revisions:
    2626! -----------------
    2727! $Id$
     28! implement new palm_date_time_mod
     29!
     30! 4217 2019-09-04 09:47:05Z scharf
    2831! Corrected "Former revisions" section
    2932!
     
    10531056!         ONLY:  c_p
    10541057
    1055 !     USE control_parameters,                                                    &
    1056 !         ONLY:  rho_surface
    1057 
    1058     USE date_and_time_mod,                                                     &
    1059         ONLY:  time_utc
     1058    USE control_parameters,                                                    &
     1059        ONLY:  time_since_reference_point
    10601060
    10611061    USE grid_variables,                                                        &
    10621062        ONLY:  dx, dy
     1063
     1064    USE palm_date_time_mod,                                                    &
     1065        ONLY:  get_date_time, seconds_per_hour
    10631066
    10641067    USE pegrid
     
    10851088    REAL(wp) ::  indoor_wall_window_temperature   !< weighted temperature of innermost wall/window layer
    10861089    REAL(wp) ::  near_facade_temperature          !< outside air temperature 10cm away from facade
     1090    REAL(wp) ::  second_of_day                    !< second of the current day
    10871091    REAL(wp) ::  time_utc_hour                    !< time of day (hour UTC)
    10881092
     
    10911095!
    10921096!-- Determine time of day in hours.
    1093     time_utc_hour = time_utc / 3600.0_wp
     1097    CALL get_date_time( time_since_reference_point, second_of_day=second_of_day )
     1098    time_utc_hour = second_of_day / seconds_per_hour
    10941099!
    10951100!-- Following calculations must be done for each facade element.
Note: See TracChangeset for help on using the changeset viewer.