Changeset 2805 for LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

Timestamp:

Mar 1, 2017, 5:50:11 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Correcting bug introduced in r2795

File:

• LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

@@ -98 +98 @@
     ! Update elapsed time since begining of run:
     current_time = current_time + pdtphys
-    cur_day = int(current_time/rday) + day_ini
-    cur_sec = current_time - (cur_day * rday) + (start_time * rday) 
+    cur_day = int(current_time/rday)
+    cur_sec = current_time - (cur_day * rday) 
 
     ! Compute corresponding Julian date and update calendar
+    cur_day = cur_day + day_ini
+    cur_sec = cur_sec + (start_time * rday)
     CALL ymds2ju(annee_ref,1, cur_day, cur_sec, julian_date)
     CALL phys_cal_update(julian_date)