Ignore:
Timestamp:
Oct 16, 2019 6:58:49 PM (2 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm_date_time_mod.f90

    r4227 r4267  
    2525! -----------------
    2626! $Id$
     27! Add days of northward- and southward equinox
     28!
     29! 4227 2019-09-10 18:04:34Z gronemeier
    2730! Complete rework of module date_and_time_mod:
    2831!  - renamed module to prevent confusion with
     
    6467    INTEGER(iwp), PARAMETER ::  minutes_per_hour   = 60_iwp                                 !< minutes in an hour
    6568    INTEGER(iwp), PARAMETER ::  months_per_year    = 12_iwp                                 !< months in a year
     69!
     70!-- Definition of mean northward and southward equinox (summer and winter half year)
     71!-- in days of year. For simplicity, March 21 and September 21 is assumed.
     72    INTEGER(iwp), PARAMETER ::  northward_equinox  = 80_iwp
     73    INTEGER(iwp), PARAMETER ::  southward_equinox  = 264_iwp
    6674
    6775    REAL(wp),     PARAMETER ::  seconds_per_minute = 60.0_wp                                !< seconds in a minute
     
    146154       minutes_per_hour,   &
    147155       months_per_year,    &
     156       northward_equinox,  &
    148157       seconds_per_minute, &
    149158       seconds_per_hour,   &
    150159       seconds_per_day,    &
     160       southward_equinox,  &
    151161       weekdays
    152162
Note: See TracChangeset for help on using the changeset viewer.