Changeset 2463

Timestamp:

Mar 10, 2016, 5:07:42 PM (9 years ago)

Author:

fhourdin

Message:

Correction du temps initial pour le 1D.

Location:

LMDZ5/trunk/libf/phylmd

Files:

• dyn1d/lmdz1d.F90 (modified) (1 diff)
• time_phylmdz_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -439 +439 @@
       endif
       print *,'fnday=',fnday
+      start_time=time_ini*3600.
 
 ! Special case for arm_cu which lasts less than one day : 53100s !! (MPL 20111026)

LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

@@ -61 +61 @@
     CALL getin_p('raz_date', raz_date)
 
-    current_time=0
+    current_time=start_time
     
     CALL phys_cal_init(annee_ref,day_ref)