Changeset 4267 for palm/trunk/SOURCE/palm_date_time_mod.f90

Timestamp:

Oct 16, 2019 6:58:49 PM (5 years ago)

Author:

suehring

Message:

Indoor model: revision of some parameters and implementation of seasonal-dependent parameters

File:

• palm/trunk/SOURCE/palm_date_time_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/palm_date_time_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add days of northward- and southward equinox
+! 
+! 4227 2019-09-10 18:04:34Z gronemeier
 ! Complete rework of module date_and_time_mod:
 !  - renamed module to prevent confusion with
@@ -64 +67 @@
     INTEGER(iwp), PARAMETER ::  minutes_per_hour   = 60_iwp                                 !< minutes in an hour
     INTEGER(iwp), PARAMETER ::  months_per_year    = 12_iwp                                 !< months in a year
+!
+!-- Definition of mean northward and southward equinox (summer and winter half year) 
+!-- in days of year. For simplicity, March 21 and September 21 is assumed.
+    INTEGER(iwp), PARAMETER ::  northward_equinox  = 80_iwp
+    INTEGER(iwp), PARAMETER ::  southward_equinox  = 264_iwp
 
     REAL(wp),     PARAMETER ::  seconds_per_minute = 60.0_wp                                !< seconds in a minute
@@ -146 +154 @@
        minutes_per_hour,   &
        months_per_year,    &
+       northward_equinox,  &
        seconds_per_minute, &
        seconds_per_hour,   &
        seconds_per_day,    &
+       southward_equinox,  &
        weekdays