Changeset 4227 for palm/trunk/SOURCE/chem_photolysis_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/chem_photolysis_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/chem_photolysis_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Change call to calc_zenith
+! 
+! 4223 2019-09-10 09:20:47Z gronemeier
 ! Corrected "Former revisions" section
 ! 
@@ -227 +230 @@
  SUBROUTINE photolysis_simple
 
+    USE palm_date_time_mod,                                                    &
+        ONLY:  get_date_time
+
     USE radiation_model_mod,                                                   &
         ONLY:  calc_zenith, cos_zenith
@@ -232 +238 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) :: iphot,iav !< loop indix for photolysis reaction
-    REAL(wp)     :: coszi     !< 1./cosine of zenith angle
+    INTEGER(iwp) :: day_of_year  !< day of the year
+    INTEGER(iwp) :: iav          !< loop indix for photolysis reaction
+    INTEGER(iwp) :: iphot        !< loop indix for photolysis reaction
+
+    REAL(wp)     :: coszi          !< 1./cosine of zenith angle
+    REAL(wp)     :: second_of_day  !< second of the day
 
     DO  iphot = 1, nphot
@@ -239 +249 @@
     ENDDO
 
-    CALL calc_zenith
+    CALL get_date_time( time_since_reference_point, &
+                        day_of_year=day_of_year, second_of_day=second_of_day )
+    CALL calc_zenith( day_of_year, second_of_day )
 
     IF ( cos_zenith > 0.0_wp ) THEN