Changeset 2594 for LMDZ5/branches/testing/libf/phylmd/time_phylmdz_mod.F90

Timestamp:

Jul 18, 2016, 9:41:10 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2545:2589 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/time_phylmdz_mod.F90 (modified) (2 diffs)

LMDZ5/branches/testing/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
+    current_time=current_time+pdtphys/rday
 
     ! 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)*rday,julian_date)
     CALL phys_cal_update(julian_date)