Changeset 1915


Ignore:
Timestamp:
Dec 10, 2013, 1:24:44 PM (10 years ago)
Author:
musat
Message:

D'autres oublis pour les sorties annuelles
IM

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

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/moy_undefSTD.F

    r1912 r1915  
    6060c        print*,'moy_undefSTD n freq_out freq_moy =',
    6161c    $n,freq_moyNMC(n)
     62       ELSE
     63         freq_moyNMC(n)=freq_outNMC(n)/freq_calNMC(n)
    6264       ENDIF         
    6365c

  • LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

    r1907 r1915  
    1818       pplay, lmax_th, aerosol_couple,         &
    1919       ok_ade, ok_aie, ivap, new_aod, ok_sync, &
    20        ptconv, read_climoz, clevSTD, freq_moyNMC, ptconvth, &
     20       ptconv, read_climoz, clevSTD, ptconvth, &
    2121       d_t, qx, d_qx, zmasse, flag_aerosol_strat)
    2222
    … …  
    230230    USE wxios, only: wxios_update_calendar, wxios_closedef
    231231#endif
     232    USE phys_cal_mod, only : mth_len
    232233
    233234    IMPLICIT NONE
    … …  
    269270    REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
    270271    REAL, PARAMETER :: missing_val=nf90_fill_real
     272    REAL, PARAMETER :: un_jour=86400.
    271273
    272274    ! On calcul le nouveau tau:
    … …  
    11941196                DO i=1, klon
    11951197                   IF(tnondef(i,k,iff-6).NE.missing_val) THEN
     1198                      IF(freq_outNMC(iff-6).LT.0) THEN
     1199                         freq_moyNMC(iff-6)=(mth_len*un_jour)/freq_calNMC(iff-6)
     1200                      ELSE
     1201                         freq_moyNMC(iff-6)=freq_outNMC(iff-6)/freq_calNMC(iff-6)
     1202                      ENDIF
    11961203                      zx_tmp_fi3d(i,k) = (100.*tnondef(i,k,iff-6))/freq_moyNMC(iff-6)
    11971204                   ELSE

  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r1913 r1915  
    36523652       pplay, lmax_th, aerosol_couple,                 &
    36533653       ok_ade, ok_aie, ivap, new_aod, ok_sync,         &
    3654        ptconv, read_climoz, clevSTD, freq_moyNMC,      &
     3654       ptconv, read_climoz, clevSTD,                   &
    36553655       ptconvth, d_t, qx, d_qx, zmasse,                &
    36563656       flag_aerosol_strat)
Note: See TracChangeset for help on using the changeset viewer.