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

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

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 323 by guez, Thu Jan 24 17:19:06 2019 UTC
# Line 5  module thermcell_m Line 5  module thermcell_m
5  contains  contains
6    
7    SUBROUTINE thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, &    SUBROUTINE thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, &
8         po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, &         po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0)
        tho)  
9    
10      ! Calcul du transport vertical dans la couche limite en pr\'esence      ! Calcul du transport vertical dans la couche limite en pr\'esence
11      ! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir      ! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir
# Line 25  contains Line 24  contains
24    
25      ! arguments:      ! arguments:
26    
27      INTEGER ngrid, nlay, w2di      INTEGER ngrid, nlay
28      real tho      real ptimestep
     real ptimestep, l_mix, r_aspect  
29      REAL, intent(in):: pt(ngrid, nlay)      REAL, intent(in):: pt(ngrid, nlay)
30      real pdtadj(ngrid, nlay)      real pdtadj(ngrid, nlay)
31      REAL, intent(in):: pu(ngrid, nlay)      REAL, intent(in):: pu(ngrid, nlay)
# Line 87  contains Line 85  contains
85      real f(klon)      real f(klon)
86      real zlevinter(klon)      real zlevinter(klon)
87    
88        real, parameter:: r_aspect = 4.
89        real, parameter:: l_mix = 10.
90        real, parameter:: tho = 0.
91        integer, parameter:: w2di = 0
92    
93      EXTERNAL SCOPY      EXTERNAL SCOPY
94    
95      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
Legend:
Removed from v.254  
changed lines
  Added in v.323
  ViewVC Help
Powered by ViewVC 1.1.21