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

Timestamp:

Jun 9, 2016, 11:30:18 AM (8 years ago)

Author:

jyg

Message:

Some improvements to commits 2548 and 2549

File:

• LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

@@ -83 +83 @@
   USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
+  INCLUDE 'YOMCST.h'
     REAL,INTENT(IN) :: pdtphys_
     REAL            :: julian_date
@@ -94 +95 @@
     
     ! Update elapsed time since begining of run:
-    current_time=current_time+pdtphys/86400
+    current_time=current_time+pdtphys/rday
+       print *,'update_time: start_time, current_time ', start_time, current_time
 
     ! Compute corresponding Julian date and update calendar
-    CALL ymds2ju(annee_ref,1,day_ini,(start_time+current_time)*86400,julian_date)
+    CALL ymds2ju(annee_ref,1,day_ini,(start_time+current_time)*rday,julian_date)
     CALL phys_cal_update(julian_date)