/[lmdze]/trunk/phylmd/Thermcell/calltherm.f90
ViewVC logotype

Diff of /trunk/phylmd/Thermcell/calltherm.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/phylmd/calltherm.f revision 322 by guez, Thu Jan 24 16:17:39 2019 UTC trunk/phylmd/Thermcell/calltherm.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 12  contains Line 12  contains
12      ! Thermiques.      ! Thermiques.
13    
14      use comconst, only: dtphys      use comconst, only: dtphys
15      USE ctherm, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, &      USE ctherm_m, ONLY: nsplit_thermals
          tho_thermals, w2di_thermals  
16      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
17      use thermcell_m, only: thermcell      use thermcell_m, only: thermcell
18    
# Line 62  contains Line 61  contains
61      do isplit = 1, nsplit_thermals      do isplit = 1, nsplit_thermals
62         CALL thermcell(klon, klev, zdt, pplay, paprs, pphi, u_seri, v_seri, &         CALL thermcell(klon, klev, zdt, pplay, paprs, pphi, u_seri, v_seri, &
63              t_seri, q_seri, d_u_the, d_v_the, d_t_the, d_q_the, zfm_therm, &              t_seri, q_seri, d_u_the, d_v_the, d_t_the, d_q_the, zfm_therm, &
64              zentr_therm, r_aspect_thermals, l_mix_thermals, w2di_thermals, &              zentr_therm)
             tho_thermals)  
65    
66         ! transformation de la derivee en tendance         ! transformation de la derivee en tendance
67         d_t_the=d_t_the*dtphys/real(nsplit_thermals)         d_t_the=d_t_the*dtphys/real(nsplit_thermals)
Legend:
Removed from v.322  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21