Changeset 1546 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jun 23, 2011, 3:10:53 PM (13 years ago)

Author:

idelkadi

Message:

Correction pour avoir des sorties en TS (pas de temps physique), prenant en compte le spliting du pas physique !

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -797 +797 @@
         ecrit_files(iff)=ecrit_files(iff)*86400.
       else
-        call convers_timesteps(chtimestep(iff),ecrit_files(iff)) 
+        call convers_timesteps(chtimestep(iff),dtime,ecrit_files(iff)) 
       endif
        print*,'ecrit_files(',iff,')= ',ecrit_files(iff)
@@ -1822 +1822 @@
       END SUBROUTINE conf_physoutputs
 
-      SUBROUTINE convers_timesteps(str,timestep)
+      SUBROUTINE convers_timesteps(str,dtime,timestep)
 
         use ioipsl
@@ -1832 +1832 @@
         character(len=10)   :: type
         integer             :: ipos,il
-        real                :: ttt,xxx,timestep,dayseconde
+        real                :: ttt,xxx,timestep,dayseconde,dtime
         parameter (dayseconde=86400.)
         include "temps.h"
@@ -1858 +1858 @@
         if ( type == 'mn'.or.type == 'minutes'  ) timestep = ttt * 60.
         if ( type == 's'.or.type == 'sec'.or.type == 'secondes'   ) timestep = ttt
-        if ( type == 'TS' ) timestep = dtphys
+        if ( type == 'TS' ) timestep = dtime
 
         print*,'type =      ',type