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

Timestamp:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! implement new palm_date_time_mod
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -2996 +2999 @@
 
     USE control_parameters,                                                 &   
-         ONLY:  dt_3d, intermediate_timestep_count, latitude
+         ONLY:  dt_3d, intermediate_timestep_count, latitude,               &
+                time_since_reference_point
 
     USE arrays_3d,                                                          &
          ONLY:  dzw, rho_air_zw
 
-    USE date_and_time_mod,                                                  &
-         ONLY:  day_of_year
+    USE palm_date_time_mod,                                                 &
+         ONLY:  get_date_time
 
     USE surface_mod,                                                        &
@@ -3012 +3016 @@
 
 
+    INTEGER(iwp) ::  day_of_year                   !< current day of the year
     INTEGER(iwp), INTENT(IN) ::  i
     INTEGER(iwp), INTENT(IN) ::  j
@@ -3286 +3291 @@
          xm_O * 3 /)                                !< o3_biascorr
 !
+!-- Get current day of the year
+    CALL get_date_time( time_since_reference_point, day_of_year = day_of_year )
+!
 !-- Initialize surface element m
     m = 0
@@ -5849 +5857 @@
      
  END MODULE chemistry_model_mod
-