Ignore:
Timestamp:
Jun 12, 2011, 10:10:33 PM (13 years ago)
Author:
musat
Message:

Correction bogue sur la longueur du mois (mth) affectant le flag
phys_out_filetimesteps = 1.mth, 1.day, 0.25day, 0.125day, 0.125day, 1800.s
IM

File:
1 edited

Legend:

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

    r1539 r1544  
    18251825
    18261826        use ioipsl
     1827        USE phys_cal_mod
    18271828
    18281829        IMPLICIT NONE
     
    18521853        if ( type == 'mounths'.or.type == 'mth'.or.type == 'mois' ) then
    18531854           print*,'annee_ref,day_ref mon_len',annee_ref,day_ref,ioget_mon_len(annee_ref,day_ref)
    1854            timestep = ttt * dayseconde * ioget_mon_len(annee_ref,day_ref)
     1855           timestep = ttt * dayseconde * mth_len
    18551856        endif
    18561857        if ( type == 'hours'.or.type == 'hr'.or.type == 'heurs') timestep = ttt * dayseconde / 24.
Note: See TracChangeset for help on using the changeset viewer.