Changeset 1543 for LMDZ4

Timestamp:

Jun 12, 2011, 8:06:04 PM (14 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:

• LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_output_mod.F90

@@ -1794 +1794 @@
 
         use ioipsl
+        USE phys_cal_mod
 
         IMPLICIT NONE
@@ -1821 +1822 @@
         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)
+!IMbug     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.