Changeset 1544 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

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:

• LMDZ5/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -1825 +1825 @@
 
         use ioipsl
+        USE phys_cal_mod
 
         IMPLICIT NONE
@@ -1852 +1853 @@
         if ( type == 'mounths'.or.type == 'mth'.or.type == 'mois' ) then
            print*,'annee_ref,day_ref mon_len',annee_ref,day_ref,ioget_mon_len(annee_ref,day_ref)
-           timestep = ttt * dayseconde * ioget_mon_len(annee_ref,day_ref)
+           timestep = ttt * dayseconde * mth_len
         endif
         if ( type == 'hours'.or.type == 'hr'.or.type == 'heurs') timestep = ttt * dayseconde / 24.