Ignore:
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:
1 edited

Legend:

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

    r1544 r1546  
    797797        ecrit_files(iff)=ecrit_files(iff)*86400.
    798798      else
    799         call convers_timesteps(chtimestep(iff),ecrit_files(iff))
     799        call convers_timesteps(chtimestep(iff),dtime,ecrit_files(iff))
    800800      endif
    801801       print*,'ecrit_files(',iff,')= ',ecrit_files(iff)
     
    18221822      END SUBROUTINE conf_physoutputs
    18231823
    1824       SUBROUTINE convers_timesteps(str,timestep)
     1824      SUBROUTINE convers_timesteps(str,dtime,timestep)
    18251825
    18261826        use ioipsl
     
    18321832        character(len=10)   :: type
    18331833        integer             :: ipos,il
    1834         real                :: ttt,xxx,timestep,dayseconde
     1834        real                :: ttt,xxx,timestep,dayseconde,dtime
    18351835        parameter (dayseconde=86400.)
    18361836        include "temps.h"
     
    18581858        if ( type == 'mn'.or.type == 'minutes'  ) timestep = ttt * 60.
    18591859        if ( type == 's'.or.type == 'sec'.or.type == 'secondes'   ) timestep = ttt
    1860         if ( type == 'TS' ) timestep = dtphys
     1860        if ( type == 'TS' ) timestep = dtime
    18611861
    18621862        print*,'type =      ',type
Note: See TracChangeset for help on using the changeset viewer.