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

Timestamp:

Jun 8, 2016, 11:02:53 AM (8 years ago)

Author:

jyg

Message:

Bug fix concerning time.
Another fix is needed concerning time in phys_output_write.

File:

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

LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

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