Changeset 2544 for palm/trunk/SOURCE/time_integration_spinup.f90

Timestamp:

Oct 13, 2017 6:09:32 PM (7 years ago)

Author:

maronga

Message:

introduced new module date_and_time_mod

File:

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

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Date and time quantities are now read from date_and_time_mod 
+! 
+! 2299 2017-06-29 10:14:38Z maronga
 ! Call of soil model adjusted to avoid prognostic equation for soil moisture
 ! during spinup.
@@ -67 +70 @@
         ONLY:  cpu_log, log_point, log_point_s
 
+    USE date_and_time_mod,                                                     &
+        ONLY: day_of_year_init, time_utc_init
+
     USE indices,                                                               &
         ONLY:  nbgp, nzb, nzt, nysg, nyng, nxlg, nxrg
@@ -81 +87 @@
     USE radiation_model_mod,                                                   &
         ONLY:  dt_radiation, force_radiation_call, radiation,                  &
-               radiation_control, rad_sw_in, time_radiation, time_utc_init
+               radiation_control, rad_sw_in, time_radiation 
 
     USE statistics,                                                            &
@@ -425 +431 @@
 
        USE constants,                                                          &
-           ONLY:  pi
-       
+       ONLY:  pi
+      
        USE kinds
 
        USE radiation_model_mod,                                                &
-           ONLY:  day_init, decl_1, decl_2, decl_3, lat, lon
+           ONLY:  decl_1, decl_2, decl_3, lat, lon
 
        IMPLICIT NONE 
@@ -446 +452 @@
 !--    time
 
-       day = day_init + INT(FLOOR( local_time / 86400.0_wp ), KIND=iwp)
+       day = day_of_year_init + INT(FLOOR( local_time / 86400.0_wp ), KIND=iwp)
        time_utc = MOD(local_time, 86400.0_wp)