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

    r4182 r4227  
    2727! -----------------
    2828! $Id$
     29! implement new palm_date_time_mod
     30!
     31! 4182 2019-08-22 15:20:23Z scharf
    2932! Corrected "Former revisions" section
    3033!
     
    29962999
    29973000    USE control_parameters,                                                 &   
    2998          ONLY:  dt_3d, intermediate_timestep_count, latitude
     3001         ONLY:  dt_3d, intermediate_timestep_count, latitude,               &
     3002                time_since_reference_point
    29993003
    30003004    USE arrays_3d,                                                          &
    30013005         ONLY:  dzw, rho_air_zw
    30023006
    3003     USE date_and_time_mod,                                                  &
    3004          ONLY:  day_of_year
     3007    USE palm_date_time_mod,                                                 &
     3008         ONLY:  get_date_time
    30053009
    30063010    USE surface_mod,                                                        &
     
    30123016
    30133017
     3018    INTEGER(iwp) ::  day_of_year                   !< current day of the year
    30143019    INTEGER(iwp), INTENT(IN) ::  i
    30153020    INTEGER(iwp), INTENT(IN) ::  j
     
    32863291         xm_O * 3 /)                                !< o3_biascorr
    32873292!
     3293!-- Get current day of the year
     3294    CALL get_date_time( time_since_reference_point, day_of_year = day_of_year )
     3295!
    32883296!-- Initialize surface element m
    32893297    m = 0
     
    58495857     
    58505858 END MODULE chemistry_model_mod
    5851 
Note: See TracChangeset for help on using the changeset viewer.