Changeset 2465


Ignore:
Timestamp:
Mar 14, 2016, 5:11:59 PM (8 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:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2463 r2465  
    439439      endif
    440440      print *,'fnday=',fnday
    441       start_time=time_ini*3600.
     441
     442      start_time=time_ini/24.
    442443
    443444! Special case for arm_cu which lasts less than one day : 53100s !! (MPL 20111026)

  • LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

    r2463 r2465  
    2828    INTEGER,SAVE :: itaufin_phy      ! final iteration (in itau_phy steps)
    2929!$OMP THREADPRIVATE(itaufin_phy)
    30     REAL,SAVE    :: current_time ! current elapsed time (s) from the begining of the run
     30    REAL,SAVE    :: current_time ! current elapsed time (fraction of day) from the begining of the run
    3131!$OMP THREADPRIVATE(current_time)
    3232   
    … …  
    6161    CALL getin_p('raz_date', raz_date)
    6262
    63     current_time=start_time
     63    current_time=0.
    6464   
    6565    CALL phys_cal_init(annee_ref,day_ref)
Note: See TracChangeset for help on using the changeset viewer.