Changeset 2465 for LMDZ5/trunk/libf/phylmd

Timestamp:

Mar 14, 2016, 5:11:59 PM (9 years ago)

Author:

fhourdin

Message:

Correction pour axe des temps en 1D. Correction d'une correction.
Bug fixing for 1D time axis

Location:

LMDZ5/trunk/libf/phylmd

Files:

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

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

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

LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

@@ -28 +28 @@
     INTEGER,SAVE :: itaufin_phy      ! final iteration (in itau_phy steps)
 !$OMP THREADPRIVATE(itaufin_phy)
-    REAL,SAVE    :: current_time ! current elapsed time (s) from the begining of the run
+    REAL,SAVE    :: current_time ! current elapsed time (fraction of day) from the begining of the run
 !$OMP THREADPRIVATE(current_time)
     
@@ -61 +61 @@
     CALL getin_p('raz_date', raz_date)
 
-    current_time=start_time
+    current_time=0.
     
     CALL phys_cal_init(annee_ref,day_ref)