Changeset 1884


Ignore:
Timestamp:
Oct 3, 2013, 1:30:31 PM (11 years ago)
Author:
idelkadi
Message:

Prise en compte du cas par defaut ou les frequences de sorties (phys_out_filetimesteps) ne sont pas definies dans config.def ou output.def
Dans ce cas on utilise ecrit_mensuel ecrit_jour ecrit_hf ...

File:
1 edited

Legend:

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

    r1880 r1884  
    112112    INTEGER, DIMENSION(nfiles)            :: phys_out_levmin, phys_out_levmax
    113113    INTEGER, DIMENSION(nfiles)            :: phys_out_filelevels
    114     CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep   = (/ '1mth', '1mth', '1mth', '1mth', '1mth', &
    115                                                                '1mth', '1mth', '1mth', '1mth' /)
     114    CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep = (/ 'Default', 'Default', 'Default', 'Default', 'Default', &
     115                                                             'Default', 'Default', 'Default', 'Default' /)
    116116    LOGICAL, DIMENSION(nfiles)            :: phys_out_filekeys
    117117    LOGICAL, DIMENSION(nfiles)            :: phys_out_filestations
     
    274274
    275275       ! Calculate ecrit_files for all files
    276        IF ( chtimestep(iff).eq.'DefFreq' ) then
    277           ! Par defaut ecrit_files = (ecrit_mensuel ecrit_jour ecrit_hf ...)*86400.
     276      IF ( chtimestep(iff).eq.'Default' ) then
     277          ! Par defaut ecrit_files = (ecrit_mensuel ecrit_jour ecrit_hf
     278          ! ...)*86400.
    278279          ecrit_files(iff)=ecrit_files(iff)*86400.
    279        ELSE
    280           CALL convers_timesteps(chtimestep(iff),dtime,ecrit_files(iff))
    281        ENDIF
     280      else
     281       CALL convers_timesteps(chtimestep(iff),dtime,ecrit_files(iff))
     282      ENDIF
     283
    282284       WRITE(lunout,*)'ecrit_files(',iff,')= ',ecrit_files(iff)
    283 
    284285       zoutm(iff) = ecrit_files(iff) ! Frequence ou l on ecrit en seconde
    285 
    286286
    287287#ifdef CPP_XIOS
Note: See TracChangeset for help on using the changeset viewer.