Changeset 1843 for LMDZ5/trunk


Ignore:
Timestamp:
Aug 21, 2013, 12:01:48 PM (11 years ago)
Author:
idelkadi
Message:

Correction sur la frequence de sortie des fichiers "NMC" (Niveaux standards de pression)

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

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

    r1828 r1843  
    13011301!
    13021302!Config Key  = freq_outNMC
    1303 !Config Desc = freq_outNMC(1) = frequence en jour de sortie fichiers histmthNMC
    1304 !Config Desc = freq_outNMC(2) = frequence en jour de sortie fichiers histdayNMC
    1305 !Config Desc = freq_outNMC(3) = frequence en jour de sortie fichiers histhfNMC
    1306 !Config Def  = 30., 1., 0.25
    1307 !Config Help =
    1308 !
    1309   freq_outNMC_omp(1) = mth_len
    1310   freq_outNMC_omp(2) = 1.
    1311   freq_outNMC_omp(3) = 0.25
     1303!Config Desc = freq_outNMC(1) = frequence de sortie fichiers histmthNMC
     1304!Config Desc = freq_outNMC(2) = frequence de sortie fichiers histdayNMC
     1305!Config Desc = freq_outNMC(3) = frequence de sortie fichiers histhfNMC
     1306!Config Def  = 2592000., 86400., 21600.
     1307!Config Help =
     1308!
     1309  freq_outNMC_omp(1) = mth_len*86400.
     1310  freq_outNMC_omp(2) = 86400.
     1311  freq_outNMC_omp(3) = 21600.
    13121312  call getin('freq_outNMC',freq_outNMC_omp)
    13131313!
  • LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

    r1828 r1843  
    110110    INTEGER, DIMENSION(nfiles)            :: phys_out_levmin, phys_out_levmax
    111111    INTEGER, DIMENSION(nfiles)            :: phys_out_filelevels
    112     CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep   = (/ 'DefFreq', 'DefFreq','DefFreq', 'DefFreq', &
    113                                                         'DefFreq', 'DefFreq', 'DefFreq','DefFreq', 'DefFreq' /)
     112    CHARACTER(LEN=20), DIMENSION(nfiles)  :: chtimestep   = (/ '1mth', '1mth', '1mth', '1mth', '1mth', &
     113                                                               '1mth', '1mth', '1mth', '1mth' /)
    114114    LOGICAL, DIMENSION(nfiles)            :: phys_out_filekeys
    115115    LOGICAL, DIMENSION(nfiles)            :: phys_out_filestations
     
    205205    ecrit_files(5) = ecrit_LES
    206206    ecrit_files(6) = ecrit_ins
    207     ecrit_files(7) = freq_outNMC(1)
    208     ecrit_files(8) = freq_outNMC(2)
    209     ecrit_files(9) = freq_outNMC(3)
     207    ecrit_files(7) = freq_outNMC(1)/86400.
     208    ecrit_files(8) = freq_outNMC(2)/86400.
     209    ecrit_files(9) = freq_outNMC(3)/86400.
    210210
    211211    !! Lectures des parametres de sorties dans physiq.def
     
    467467    ecrit_LES = ecrit_files(5)
    468468    ecrit_ins = ecrit_files(6)
    469     freq_outNMC(1) = ecrit_files(7)
    470     freq_outNMC(2) = ecrit_files(8)
    471     freq_outNMC(3) = ecrit_files(9)
     469    freq_outNMC(1) = ecrit_files(7)*86400.
     470    freq_outNMC(2) = ecrit_files(8)*86400.
     471    freq_outNMC(3) = ecrit_files(9)*86400.
    472472
    473473    WRITE(lunout,*)'swaero_diag=',swaero_diag
Note: See TracChangeset for help on using the changeset viewer.