Changeset 2551 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jun 9, 2016, 11:30:18 AM (8 years ago)
Author:
jyg
Message:

Some improvements to commits 2548 and 2549

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

Legend:

Unmodified
Added
Removed

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

    r2491 r2551  
    7676    year_len = ioget_year_len(year_cur)
    7777
     78    print *,'phys_cal_update: jH_cur, hour ',jH_cur, hour
     79
    7880  END SUBROUTINE phys_cal_update
    7981

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

    r2548 r2551  
    5656    include "clesphys.h"
    5757    include "thermcell.h"
     58    include "YOMCST.h"
    5859
    5960    ! ug Nouveaux arguments n\'ecessaires au histwrite_mod:
    … …  
    263264     ELSE
    264265         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    265          CALL ymds2ju(annee_ref, 1, day_ini, start_time*86400, zjulian_start)
     266         CALL ymds2ju(annee_ref, 1, day_ini, start_time*rday, zjulian_start)
    266267     END IF
    267268

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

    r2549 r2551  
    331331
    332332    ! On calcul le nouveau tau:
    333 !!    itau_w = itau_phy + itap + start_time * day_step_phy      !! essais jyg
    334     itau_w = itau_phy + itap                                    !! essais jyg
     333    itau_w = itau_phy + itap
    335334    ! On le donne à iophy pour que les histwrite y aient accès:
    336335    CALL set_itau_iophy(itau_w)

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

    r2548 r2551  
    8383  USE print_control_mod, ONLY: lunout
    8484  IMPLICIT NONE
     85  INCLUDE 'YOMCST.h'
    8586    REAL,INTENT(IN) :: pdtphys_
    8687    REAL            :: julian_date
    … …  
    9495   
    9596    ! Update elapsed time since begining of run:
    96     current_time=current_time+pdtphys/86400
     97    current_time=current_time+pdtphys/rday
     98       print *,'update_time: start_time, current_time ', start_time, current_time
    9799
    98100    ! Compute corresponding Julian date and update calendar
    99     CALL ymds2ju(annee_ref,1,day_ini,(start_time+current_time)*86400,julian_date)
     101    CALL ymds2ju(annee_ref,1,day_ini,(start_time+current_time)*rday,julian_date)
    100102    CALL phys_cal_update(julian_date)
    101103   
Note: See TracChangeset for help on using the changeset viewer.