Changeset 3616 for palm/trunk/SOURCE

Timestamp:

Dec 10, 2018 9:44:36 AM (6 years ago)

Author:

moh.hefny

Message:

fix time variables during solar positions calc

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! fix manipulation of time variables in radiation_presimulate_solar_pos
+!
+! 3608 2018-12-07 12:59:57Z suehring $
 ! Bugfix radiation output
 ! 
@@ -560 +563 @@
 
     USE date_and_time_mod,                                                     &
-        ONLY:  calc_date_and_time, d_hours_day, d_seconds_hour, day_of_year,   &
-               d_seconds_year, day_of_year_init, time_utc_init, time_utc
+        ONLY:  calc_date_and_time, d_hours_day, d_seconds_hour, d_seconds_year,&
+               day_of_year, d_seconds_year, day_of_month, day_of_year_init,    &
+               init_date_and_time, month_of_year, time_utc_init, time_utc
 
     USE indices,                                                               &
@@ -7969 +7973 @@
 !------------------------------------------------------------------------------!
    SUBROUTINE radiation_presimulate_solar_pos
+
       IMPLICIT NONE
 
       INTEGER(iwp)                              ::  it, i, j
+      INTEGER(iwp)                              ::  day_of_month_prev,month_of_year_prev
       REAL(wp)                                  ::  tsrp_prev
       REAL(wp)                                  ::  simulated_time_prev
@@ -7989 +7995 @@
       tsrp_prev = time_since_reference_point
       simulated_time_prev = simulated_time
+      day_of_month_prev = day_of_month
+      month_of_year_prev = month_of_year
       sun_direction = .TRUE.
 
@@ -8007 +8015 @@
          CALL simulate_pos
       ENDDO
-
+!
+!--   Return date and time to its original values
       time_since_reference_point = tsrp_prev
       simulated_time = simulated_time_prev
+      day_of_month = day_of_month_prev
+      month_of_year = month_of_year_prev
+      CALL init_date_and_time
 
 !--   Allocate global vars which depend on ndsidir