Changeset 2551 for LMDZ5/trunk/libf/phylmd/phys_output_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/phys_output_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -56 +56 @@
     include "clesphys.h"
     include "thermcell.h"
+    include "YOMCST.h"
 
     ! ug Nouveaux arguments n\'ecessaires au histwrite_mod:
@@ -263 +264 @@
      ELSE
          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
-         CALL ymds2ju(annee_ref, 1, day_ini, start_time*86400, zjulian_start)
+         CALL ymds2ju(annee_ref, 1, day_ini, start_time*rday, zjulian_start)
      END IF