Changeset 2548 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jun 8, 2016, 11:02:53 AM (8 years ago)
Author:
jyg
Message:

Bug fix concerning time.
Another fix is needed concerning time in phys_output_write.

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

    r2530 r2548  
    263263     ELSE
    264264         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    265          CALL ymds2ju(annee_ref, 1, day_ini, start_time, zjulian_start)
     265         CALL ymds2ju(annee_ref, 1, day_ini, start_time*86400, zjulian_start)
    266266     END IF
    267267
  • LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90

    r2465 r2548  
    9494   
    9595    ! Update elapsed time since begining of run:
    96     current_time=current_time+pdtphys
     96    current_time=current_time+pdtphys/86400
    9797
    9898    ! Compute corresponding Julian date and update calendar
    99     CALL ymds2ju(annee_ref,1,day_ini,start_time+current_time,julian_date)
     99    CALL ymds2ju(annee_ref,1,day_ini,(start_time+current_time)*86400,julian_date)
    100100    CALL phys_cal_update(julian_date)
    101101   
Note: See TracChangeset for help on using the changeset viewer.