Changeset 3620 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Dec 11, 2018 12:29:43 PM (5 years ago)

Author:

moh.hefny

Message:

fix date and time and update 3d rad_lw_out

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! - fix initialization of date and time after calling zenith
+! - fix a bug in radiation_solar_pos
+!
+! 3616 2018-12-10 09:44:36Z Salim
 ! fix manipulation of time variables in radiation_presimulate_solar_pos
 !
@@ -2441 +2445 @@
 !--       whether the sun is up
           CALL calc_zenith     
+          ! readjust date and time to its initial value
+          CALL init_date_and_time
 !
 !--       Calculate initial surface albedo for different surfaces
@@ -2634 +2640 @@
 
        END SELECT
+
+! readjust date and time to its initial value
+       CALL init_date_and_time
 
        RETURN
@@ -8012 +8021 @@
       DO  it = 0, CEILING(( end_time - spinup_time ) / dt_radiation)
          time_since_reference_point = REAL(it, wp) * dt_radiation
-         simulated_time = simulated_time + dt_spinup
+         simulated_time = simulated_time + dt_radiation
          CALL simulate_pos
       ENDDO